summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorglenda@drat <glenda@drat>2016-05-26 07:08:50 -0700
committerglenda@drat <glenda@drat>2016-05-26 07:08:50 -0700
commite2c2808a2a5f83c7c8f204cd01035a1713be8787 (patch)
tree3d47e731791aec5b05910a31ba7f8d3d699743d1 /test
parent0b99465823930170bb45c9264c10ed5936be5bb4 (diff)
downloadmc-e2c2808a2a5f83c7c8f204cd01035a1713be8787.tar.gz
Fix test scripts.
Some tests are still busted.
Diffstat (limited to 'test')
-rw-r--r--test/bld.sub3
-rwxr-xr-xtest/runtest.rc12
2 files changed, 8 insertions, 7 deletions
diff --git a/test/bld.sub b/test/bld.sub
index b206e06..aafba03 100644
--- a/test/bld.sub
+++ b/test/bld.sub
@@ -1 +1,2 @@
-cmd runtest {test} = ./runtest.sh ;;
+cmd runtest {test,tag=posixy} = ./runtest.sh ;;
+cmd runtest {test,tag=plan9} = ./runtest.rc ;;
diff --git a/test/runtest.rc b/test/runtest.rc
index 6b6a8c5..1425524 100755
--- a/test/runtest.rc
+++ b/test/runtest.rc
@@ -12,13 +12,13 @@ fn build {
fn pass {
passed=$passed ^ ' ' ^ $1
- echo "!}>> ok"
+ echo '!}>> ok'
}
fn fail {
echo FAIL: $1
- failed=$failed ^ ' ' ^ $1}
- echo "!}>> fail $1"
+ failed=$failed ^ ' ' ^ $1
+ echo '!}>> fail '
}
fn expectstatus {
@@ -64,7 +64,7 @@ fn B {
type=$1; shift
res=$1; shift
- echo "test $test <<{!"
+ echo 'test' $test '<<{!'
build $test
switch($type) {
case E
@@ -79,7 +79,7 @@ fn B {
}
fn F {
- echo "test $test <<{!"
+ echo 'test' ^ $1 '<<{!'
@{ build $1 } > /dev/null
if (~ $status ''/)
fail $1
@@ -87,7 +87,7 @@ fn F {
pass $1
}
-echo "MTEST `{grep '^[BF]' tests | wc -l}"
+echo 'MTEST ' `{grep '^[BF]' tests | wc -l}
. tests