better test clean up (#382)

* better test clean up

This makes it so that you don't need to manually delete a bunch of files on test failure.

* back to example.com

This output is a lot more compact

Author: Anton-4

ci/expect_scripts/file.exp

@@ -64,12 +64,13 @@ expect "Testing some File functions..." {
                                                                                                                                 expect "✓ File.exists! returns true for a file that exists" {
                                                                                                                                     expect "✓ File.exists! returns false for a file that does not exist" {
 
-                                                                                                                                        # Cleanup phase
-                                                                                                                                        expect "Cleaning up test files..." {
-                                                                                                                                            expect "✓ Deleted all files." {
+                                                                                                                                        expect "I ran all file function tests." {
+
+                                                                                                                                            expect "Cleaning up test files..." {
+                                                                                                                                                expect "✓ Deleted all files." {
+                                                                                                                                                
+                                                                                                                                                    # Final completion message
 
-                                                                                                                                                # Final completion message
-                                                                                                                                                expect "I ran all file function tests." {
                                                                                                                                                     expect eof {
                                                                                                                                                         check_exit_and_segfault
                                                                                                                                                     }

ci/expect_scripts/path-test.exp

@@ -91,24 +91,23 @@ expect "Testing Path functions..." {
                                                                                                                                                                                                                                                                                     expect "✓ Path.exists! returns true for a file that exists" {
                                                                                                                                                                                                                                                                                         expect "✓ Path.exists! returns false for a file that does not exist" {
                                                                                                                                                                                                                                                                                             expect "" {
-                                                                                                                                                                                                                                                                                                
-                                                                                                                                                                                                                                                                                                # Cleanup phase
-                                                                                                                                                                                                                                                                                                expect "Cleaning up test files..." {
-                                                                                                                                                                                                                                                                                                    expect "Files to clean up:" {
-                                                                                                                                                                                                                                                                                                        expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_bytes\\.txt" {
-                                                                                                                                                                                                                                                                                                            expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_hardlink\\.txt" {
-                                                                                                                                                                                                                                                                                                                expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_json\\.json" {
-                                                                                                                                                                                                                                                                                                                    expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_original\\.txt" {
-                                                                                                                                                                                                                                                                                                                        expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_rename_new\\.txt" {
-                                                                                                                                                                                                                                                                                                                            expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_utf8\\.txt" {
-                                                                                                                                                                                                                                                                                                                                expect "" {
-                                                                                                                                                                                                                                                                                                                                    expect "Files remaining after cleanup: Bool.false" {
+                                                                                                                                                                                                                                                                                                expect "I ran all Path function tests." {
+                                                                                                                                                                                                                                                                                                    expect "" {
+
+                                                                                                                                                                                                                                                                                                        # Cleanup phase
+                                                                                                                                                                                                                                                                                                        expect "Cleaning up test files..." {
+                                                                                                                                                                                                                                                                                                            expect "Files to clean up:" {
+                                                                                                                                                                                                                                                                                                                expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_bytes\\.txt" {
+                                                                                                                                                                                                                                                                                                                    expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_hardlink\\.txt" {
+                                                                                                                                                                                                                                                                                                                        expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_json\\.json" {
+                                                                                                                                                                                                                                                                                                                            expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_original\\.txt" {
+                                                                                                                                                                                                                                                                                                                                expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_rename_new\\.txt" {
+                                                                                                                                                                                                                                                                                                                                    expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_utf8\\.txt" {
                                                                                                                                                                                                                                                                                                                                         expect "" {
-                                                                                                                                                                                                                                                                                                                                            
-                                                                                                                                                                                                                                                                                                                                            # Final completion message
-                                                                                                                                                                                                                                                                                                                                            expect "I ran all Path function tests." {
+                                                                                                                                                                                                                                                                                                                                            expect "Files remaining after cleanup: Bool.false" {        
                                                                                                                                                                                                                                                                                                                                                 expect eof {
-                                                                                                                                                                                                                                                                                                                                                    check_exit_and_segfault
+                                                                                                                                                                                                                                                                                                                                                        check_exit_and_segfault
+                                                                                                                                                                                                                                                                                                                                                    }
                                                                                                                                                                                                                                                                                                                                                 }
                                                                                                                                                                                                                                                                                                                                             }
                                                                                                                                                                                                                                                                                                                                         }
@@ -121,7 +120,6 @@ expect "Testing Path functions..." {
                                                                                                                                                                                                                                                                                                             }
                                                                                                                                                                                                                                                                                                         }
                                                                                                                                                                                                                                                                                                     }
-                                                                                                                                                                                                                                                                                                }
                                                                                                                                                                                                                                                                                             }
                                                                                                                                                                                                                                                                                         }
                                                                                                                                                                                                                                                                                     }

examples/http.roc

@@ -48,7 +48,7 @@ main! = |_args|
         {
             method: GET,
             headers: [],
-            uri: "https://github.com",
+            uri: "https://www.example.com",
             body: [],
             timeout_ms: TimeoutMilliseconds(5000),
         },
@@ -63,7 +63,7 @@ main! = |_args|
     
     response_2 =
         Http.default_request
-        |> &uri "https://github.com"
+        |> &uri "https://www.example.com"
         |> &headers [Http.header(("Accept", "text/html"))]
         |> Http.send!()?