diff options
| author | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2024-09-19 04:22:20 +0200 |
|---|---|---|
| committer | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2024-09-19 04:22:20 +0200 |
| commit | 5b3906f9255f43018c2bd9683cedddf3df37fa61 (patch) | |
| tree | 352720f1d703518c5bf497247d5b5eea7d71e2da | |
| parent | 8fbd0b3ff42ae10c3735801ad17f5345fdc77766 (diff) | |
| download | sciteco-5b3906f9255f43018c2bd9683cedddf3df37fa61.tar.gz | |
fixed Load/Save Q-Reg tests on Mac OS and Win32
| -rw-r--r-- | tests/testsuite.at | 11 |
1 files changed, 3 insertions, 8 deletions
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]) |