use Path.display

Author: Anton-4

ci/expect_scripts/env.exp

@@ -12,12 +12,11 @@ spawn $env(TESTS_DIR)env
 expect "Testing Env module functions..." {
     expect -re "Testing Env.cwd!:" {
         # Match cwd path that has ArbitraryBytes with non-empty list of integers
-        # Use curly braces for the regex pattern to avoid Tcl interpretation of [ and ]
-        expect -re {cwd: \(@InternalPath \(ArbitraryBytes \[\d+(, \d+)*\]\)\)} {
+        expect -re {cwd: /[^\r\n]*\r\n} {
 
             expect -re "Testing Env.exe_path!:" {
                 # Match exe_path with any valid format
-                expect -re {exe_path: \(@InternalPath \(.*\[\d+(, \d+)*\].*\)\)} {
+                expect -re {exe_path: /[^\r\n]*\r\n} {
 
                     expect -re "Testing Env.platform!:" {
                         # Match platform info with any arch and OS
@@ -28,19 +27,18 @@ expect "Testing Env module functions..." {
                                 # Match environment variables count as non-zero number
                                 expect -re {Environment variables count: (\d+)} {
                                     set env_count $expect_out(1,string)
-                                    if {$env_count == 0} {
-                                        puts stderr "\nExpect script failed: environment variable count is zero."
+                                    if {$env_count < 1} {
+                                        puts stderr "\nExpect script failed: environment variable count is $env_count."
                                         exit 1
                                     }
-                                    
                                     # Match sample environment variables with non-empty strings
                                     # Literal brackets [], parentheses (), and quotes "" need escaping or careful handling
                                     expect -re {Sample environment variables:\[\("\w+", ".*"\)(, \("\w+", ".*"\))*\]} {
 
                                         expect -re "Testing Env.set_cwd!:" {
                                             # Match changed directory path with non-empty list of integers
-                                            expect -re {Changed current directory to: \(@InternalPath \(ArbitraryBytes \[\d+(, \d+)*\]\)\)} {
-                                                
+                                            expect -re {Changed current directory to: /[^\r\n]*\r\n} {
+                
                                                 expect "All tests executed!" {
                                                     expect eof {
                                                         check_exit_and_segfault

flake.lock

@@ -11,11 +11,11 @@ main! = |_args|
 
     Stdout.line!("\nTesting Env.cwd!:")?
     cwd = Env.cwd!({})?
-    Stdout.line!("cwd: ${Inspect.to_str(cwd)}")?
+    Stdout.line!("cwd: ${Path.display(cwd)}")?
 
     Stdout.line!("\nTesting Env.exe_path!:")?
     exe_path = Env.exe_path!({})?
-    Stdout.line!("exe_path: ${Inspect.to_str(exe_path)}")?
+    Stdout.line!("exe_path: ${Path.display(exe_path)}")?
 
     # Test Env.platform!
     Stdout.line!("\nTesting Env.platform!:")?
@@ -47,7 +47,7 @@ main! = |_args|
 
     Env.set_cwd!(first_dir)?
     new_cwd = Env.cwd!({})?
-    Stdout.line!("Changed current directory to: ${Inspect.to_str(new_cwd)}")?
+    Stdout.line!("Changed current directory to: ${Path.display(new_cwd)}")?
 
     Stdout.line!("\nAll tests executed!")?