Add filter_test_dir test utility

tests/node/node017/expected.in → tests/chez/chez017/expected

@@ -1,5 +1,5 @@
 File Exists
 False
 True
-Just "__PWD__testdir"
+Just "__TEST_DIR__/testdir"
 hello

tests/chez/chez017/run

@@ -1,6 +1,6 @@
 . ../../testutils.sh
 
-./gen_expected.sh
-run dir.idr
+run dir.idr | filter_test_dir
+
 cat testdir/test.txt
 rm -rf testdir

tests/idris2/pkg010/expected

@@ -0,0 +1,6 @@
+1/1: Building Main (Main.idr)
+Installing __TEST_DIR__/build/ttc/Main.ttc to __TEST_DIR__/currently/nonexistent/dir/idris2-0.6.0/testpkg-0
+Installing __TEST_DIR__/build/ttc/Main.ttm to __TEST_DIR__/currently/nonexistent/dir/idris2-0.6.0/testpkg-0
+Installing __TEST_DIR__/build/ttc/Main.ttc to __TEST_DIR__/currently/nonexistent/dir/idris2-0.6.0/testpkg-0
+Installing __TEST_DIR__/build/ttc/Main.ttm to __TEST_DIR__/currently/nonexistent/dir/idris2-0.6.0/testpkg-0
+Installing package file for testpkg to __TEST_DIR__/currently/nonexistent/dir/idris2-0.6.0/testpkg-0

tests/idris2/pkg010/run

@@ -1,19 +1,10 @@
 . ../../testutils.sh
 
-if [ "$OS" = "windows" ]; then
-    MY_PWD="$(cygpath -m "$(pwd)")\\\\"
-else
-    MY_PWD="$(pwd)/"
-fi
-
-MY_PWD="${MY_PWD}" ./gen_expected.sh
-
 export IDRIS2_PACKAGE_PATH=$IDRIS2_PREFIX/$NAME_VERSION
-export IDRIS2_PREFIX=${MY_PWD}currently/nonexistent/dir/
+export IDRIS2_PREFIX=$test_dir/currently/nonexistent/dir/
 
 export IDRIS2_INC_CGS=
 
-idris2 --install ./testpkg.ipkg | sed -r "s/.([0-9]){10}//g"
+idris2 --install ./testpkg.ipkg | sed -r "s/.([0-9]){10}//g" | filter_test_dir
 
-# ../ is there for some extra safety for using rm -rf
-rm -rf ../pkg010/build ../pkg010/currently
+rm -rf currently

tests/idris2/pkg013/expected

@@ -0,0 +1 @@
+LOG package.depends:10: all depends: ["__TEST_DIR__/depends/bar-0.7.2", "__TEST_DIR__/depends/foo-0.1.0"]

tests/idris2/pkg013/run

@@ -1,11 +1,3 @@
 . ../../testutils.sh
 
-if [ "$OS" = "windows" ]; then
-    MY_PWD="$(cygpath -m "$(pwd)")\\\\"
-else
-    MY_PWD="$(pwd)/"
-fi
-
-MY_PWD="${MY_PWD}" ./gen_expected.sh
-
-idris2 --build test.ipkg --log package.depends:10
+idris2 --build test.ipkg --log package.depends:10 | filter_test_dir

tests/idris2/pkg014/expected

@@ -0,0 +1 @@
+LOG package.depends:10: all depends: ["__TEST_DIR__/depends/bar-0.1.0", "__TEST_DIR__/depends/baz-0.2.0", "__TEST_DIR__/depends/foo-0.2.0"]

tests/idris2/pkg014/run

@@ -1,11 +1,3 @@
 . ../../testutils.sh
 
-if [ "$OS" = "windows" ]; then
-    MY_PWD="$(cygpath -m "$(pwd)")\\\\"
-else
-    MY_PWD="$(pwd)/"
-fi
-
-MY_PWD="${MY_PWD}" ./gen_expected.sh
-
-idris2 --build test.ipkg --log package.depends:10
+idris2 --build test.ipkg --log package.depends:10 | filter_test_dir

tests/idris2/pkg017/expected

@@ -0,0 +1,22 @@
+(:protocol-version 2 1)
+(:return (:ok "Current working directory is \"__TEST_DIR__/b1\"") 1)
+(:write-string "1/1: Building B1 (src/B1.idr)" 2)
+(:return (:ok ()) 2)
+(:return (:ok "1" ((0 1 ((:decor :data))))) 4)
+(:return (:ok (("A.i" (:filename "__TEST_DIR__/prefix/idris2-0.6.0/a1-0/A.idr") (:start 2 0) (:end 3 7)))) 5)
+(:return (:ok "Current working directory is \"__TEST_DIR__/b2\"") 6)
+(:write-string "1/1: Building B2 (src/B2.idr)" 7)
+(:return (:ok ()) 7)
+(:return (:ok "2" ((0 1 ((:decor :data))))) 8)
+(:return (:ok (("A.i" (:filename "__TEST_DIR__/prefix/idris2-0.6.0/a2-0/A.idr") (:start 2 0) (:end 3 7)))) 9)
+he file is done, aborting
+(:protocol-version 2 1)
+(:return (:ok "Current working directory is \"__TEST_DIR__/b2\"") 1)
+(:return (:ok ()) 2)
+(:return (:ok "2" ((0 1 ((:decor :data))))) 4)
+(:return (:ok (("A.i" (:filename "__TEST_DIR__/prefix/idris2-0.6.0/a2-0/A.idr") (:start 2 0) (:end 3 7)))) 5)
+(:return (:ok "Current working directory is \"__TEST_DIR__/b1\"") 6)
+(:return (:ok ()) 7)
+(:return (:ok "1" ((0 1 ((:decor :data))))) 8)
+(:return (:ok (("A.i" (:filename "__TEST_DIR__/prefix/idris2-0.6.0/a1-0/A.idr") (:start 2 0) (:end 3 7)))) 9)
+he file is done, aborting

tests/idris2/pkg017/run

@@ -1,20 +1,12 @@
 . ../../testutils.sh
 
-if [ "$OS" = "windows" ]; then
-    MY_PWD="$(cygpath -m "$(pwd)")\\\\"
-else
-    MY_PWD="$(pwd)/"
-fi
-
-MY_PWD="${MY_PWD}" ./gen_expected.sh
-
 mkdir prefix
 
-IDRIS2_PREFIX="${MY_PWD}/prefix" idris2 --install-with-src a1/a1.ipkg > /dev/null
-IDRIS2_PREFIX="${MY_PWD}/prefix" idris2 --install-with-src a2/a2.ipkg > /dev/null
+IDRIS2_PREFIX="$test_dir/prefix" idris2 --install-with-src a1/a1.ipkg > /dev/null
+IDRIS2_PREFIX="$test_dir/prefix" idris2 --install-with-src a2/a2.ipkg > /dev/null
 
-IDRIS2_PREFIX="${MY_PWD}/prefix" idris2 --no-prelude --ide-mode  < input1 | grep -v ":highlight-source" | cut -c 7-
-IDRIS2_PREFIX="${MY_PWD}/prefix" idris2 --no-prelude --ide-mode  < input2 | grep -v ":highlight-source" | cut -c 7-
+IDRIS2_PREFIX="$test_dir/prefix" idris2 --no-prelude --ide-mode  < input1 | grep -v ":highlight-source" | cut -c 7- | filter_test_dir
+IDRIS2_PREFIX="$test_dir/prefix" idris2 --no-prelude --ide-mode  < input2 | grep -v ":highlight-source" | cut -c 7- | filter_test_dir
 
 rm -r a1/build a2/build b1/build b2/build
 rm -rf prefix

tests/chez/chez017/expected.in → tests/node/node017/expected

@@ -1,5 +1,5 @@
 File Exists
 False
 True
-Just "__PWD__testdir"
+Just "__TEST_DIR__/testdir"
 hello

tests/node/node017/run

@@ -2,6 +2,5 @@
 
 rm -rf testdir
 
-./gen_expected.sh
-run --cg node dir.idr
+run --cg node dir.idr | filter_test_dir
 cat testdir/test.txt

tests/testutils.sh

@@ -21,3 +21,17 @@ check() {
 run() {
     idris2 --exec main "$@"
 }
+
+# Folder containing the currently running test
+if [ "$OS" = "windows" ]; then
+    test_dir="$(cygpath -m "$(pwd)")\\\\"
+else
+    test_dir="$(pwd)/"
+fi
+
+# Remove test directory from output
+# Useful for consistency of output between machines
+# Usage: run SomeTest.idr | filter_test_dir
+filter_test_dir() {
+    sed -e "s|$test_dir|__TEST_DIR__/|g"
+}