shithub: regress

Info  •  Files  •  Log  •  Branches

make test.rc less verbose

--- a/cmd/test.rc

+++ b/cmd/test.rc

@@ -12,18 +12,14 @@

 	expect=$1

 	shift

-	echo -n $expect^': test' $*

-

 	# check for syntax errors

 	syntax=`{test $* >[2=1]}

 	if(~ $"syntax ''){

 		switch($expect){

 		case 0

-			if(test $*) echo '	OK'

-			if not failed

+			if(! test $*) failed $expect $*

 		case 1

-			if(test $*) failed

-			if not echo '	OK'

+			if(test $*) failed $expect $*

 		}

 	}

 	if not

@@ -37,6 +33,7 @@

 }

 fn failed{

+	echo -n $1^': test' $*(2-)^'^:	failed'

 	echo '	failed'

 	FAILED=`{echo $FAILED 1 + p | dc}

 }

@@ -129,8 +126,10 @@

 t 1 ! '(' XXX -o XXX ')'

 t 0 ! '(' ! '(' XXX -o XXX ')' ')'

-echo

-echo 'Syntax errors:' $ERROR 'Failed:' $FAILED

+if(! ~ $ERROR 0 || ! ~ $FAILED 0){

+	echo

+	echo 'Syntax errors:' $ERROR 'Failed:' $FAILED

+}

 if(! ~ $ERROR 0 || ! ~ $FAILED 0)

 	exit 'failures'

 exit ''