From 5b3906f9255f43018c2bd9683cedddf3df37fa61 Mon Sep 17 00:00:00 2001 From: Robin Haberkorn Date: Thu, 19 Sep 2024 04:22:20 +0200 Subject: fixed Load/Save Q-Reg tests on Mac OS and Win32 --- tests/testsuite.at | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) (limited to 'tests') diff --git a/tests/testsuite.at b/tests/testsuite.at index fa14140..8a3ba96 100644 --- a/tests/testsuite.at +++ b/tests/testsuite.at @@ -85,19 +85,14 @@ AT_CHECK([$SCITECO -e '@^Ua{@EQ.x//} Ma @^U.x/FOO/'], 1, ignore, ignore) AT_CLEANUP AT_SETUP([Loading files into Q-Registers]) -AT_CHECK([echo -n ".." >loadqreg.txt], 0, ignore, ignore) -AT_CHECK([$SCITECO -e "@EQa/loadqreg.txt/ :Qa-2\"N(0/0)'"], 0, ignore, ignore) +AT_CHECK([$SCITECO -e "@I/../ @EW/loadqreg.txt/ @EQa/loadqreg.txt/ :Qa-2\"N(0/0)'"], 0, ignore, ignore) # Does the same as FG..$. Afterwards, the parent directory should be shorter. AT_CHECK([$SCITECO -e ":Q\$Ul @EQ\$/loadqreg.txt/ :Q\$-Ql+1\">(0/0)'"], 0, ignore, ignore) AT_CLEANUP AT_SETUP([Saving Q-Registers contents to files]) -AT_CHECK([$SCITECO -e '@^Ua/test/ @E%a/saveqreg.txt/'], 0, ignore, ignore) -AT_CHECK([test "`cat saveqreg.txt`" = test], 0, ignore, ignore) -# The result of E%$ should always have forward slashes, -# so this check will work on Win32 as well. -AT_CHECK([$SCITECO -e '@E%$/saveqreg.txt/'], 0, ignore, ignore) -AT_CHECK([test "`cat saveqreg.txt`" = "$PWD"], 0, ignore, ignore) +AT_CHECK([$SCITECO -e "@^Ua/test/ @E%a/saveqreg.txt/ @EB/saveqreg.txt/ Z-4\"N(0/0)'"], 0, ignore, ignore) +AT_CHECK([$SCITECO -e "@E%\$/saveqreg.txt/ @EB/saveqreg.txt/ Z-:Q\$\"N(0/0)'"], 0, ignore, ignore) AT_CLEANUP AT_SETUP([8-bit cleanliness]) -- cgit v1.2.3