From 9b7f5129dbc47f42d215b2c51151c655b658fe10 Mon Sep 17 00:00:00 2001 From: scivision Date: Wed, 27 Nov 2024 21:29:59 -0500 Subject: [PATCH] test:as_posix:fortran: print diff --- test/core/test_path_t.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/test/core/test_path_t.f90 b/test/core/test_path_t.f90 index dec0e0f3..9247fb39 100644 --- 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