test:as_posix:fortran: print diff

scivision · Nov 28, 2024 · 9b7f512 · 9b7f512
1 parent 14dd92e
commit 9b7f512
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/test/core/test_path_t.f90 b/test/core/test_path_t.f90
@@ -46,12 +46,14 @@ program path_methods
 if(is_windows()) then
   p1 = path_t("C:\a")
   p1 = p1%as_posix()
-  if(p1%path() /= "C:/a") error stop "as_posix"
+  s1 = "C:/a"
+
 else
   p1 = path_t("/a")
   p1 = p1%as_posix()
-  if(p1%path() /= "/a") error stop "as_posix"
+  s1 = "/a"
 end if
+if(p1%path() /= s1) error stop "as_posix: expected " // s1 // " but got " // p1%path()
 
 !> absolute
 if(is_windows()) then