Add Path.exists! (#381)

Author: Anton-4

ci/expect_scripts/path-test.exp

@@ -84,23 +84,35 @@ expect "Testing Path functions..." {
                                                                                                                                                                                                                                                                 expect "✓ Original file no longer exists" {
                                                                                                                                                                                                                                                                     expect "✓ Renamed file exists" {
                                                                                                                                                                                                                                                                         expect "✓ Renamed file has correct content" {
-                                                                                                                                                                                                                                                                                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_utf8\\.txt" {
-                                                                                                                                                                                                                                                                                                                expect "" {
-                                                                                                                                                                                                                                                                                                                    expect "Files remaining after cleanup: Bool.false" {
-                                                                                                                                                                                                                                                                                                                        expect "" {
-                                                                                                                                                                                                                                                                                                                            
-                                                                                                                                                                                                                                                                                                                            # Final completion message
-                                                                                                                                                                                                                                                                                                                            expect "I ran all Path function tests." {
-                                                                                                                                                                                                                                                                                                                                expect eof {
-                                                                                                                                                                                                                                                                                                                                    check_exit_and_segfault
+                                                                                                                                                                                                                                                                            expect "" {
+                                                                                                                                                                                                                                                                                
+                                                                                                                                                                                                                                                                                # Test Path.exists!
+                                                                                                                                                                                                                                                                                expect "Testing Path.exists!:" {
+                                                                                                                                                                                                                                                                                    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 "" {
+                                                                                                                                                                                                                                                                                                                                            
+                                                                                                                                                                                                                                                                                                                                            # Final completion message
+                                                                                                                                                                                                                                                                                                                                            expect "I ran all Path function tests." {
+                                                                                                                                                                                                                                                                                                                                                expect eof {
+                                                                                                                                                                                                                                                                                                                                                    check_exit_and_segfault
+                                                                                                                                                                                                                                                                                                                                                }
+                                                                                                                                                                                                                                                                                                                                            }
+                                                                                                                                                                                                                                                                                                                                        }
+                                                                                                                                                                                                                                                                                                                                    }
                                                                                                                                                                                                                                                                                                                                 }
                                                                                                                                                                                                                                                                                                                             }
                                                                                                                                                                                                                                                                                                                         }
@@ -114,6 +126,7 @@ expect "Testing Path functions..." {
                                                                                                                                                                                                                                                                                         }
                                                                                                                                                                                                                                                                                     }
                                                                                                                                                                                                                                                                                 }
+                                                                                                                                                                                                                                                                            }
                                                                                                                                                                                                                                                                         }
                                                                                                                                                                                                                                                                     }
                                                                                                                                                                                                                                                                 }

examples/http.roc

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