qa: simple infrastructure to test output expectations

qa/check

@@ -9,13 +9,17 @@ if(~ $dir '') dir=/qa
 l = `{du -a /arch/$objtype/$dir|awk '{print $2}'|sort}
 
 failed = ()
+ce=.check
 
 for(t in $l){
 	if(test -x $t) {
 		echo -n $t: 
 		$t > /tmp/qa.log >[2=1]
 		st = $status
-		if(~ `{echo $st|field 3} PASS) { rm /tmp/qa.log && echo PASS }
+		if(~ `{echo $st|field 3} PASS) {
+			if( test -x $t$ce ) { cp /tmp/qa.log /tmp/qa.previous.log }
+			rm /tmp/qa.log && echo PASS
+		}
 		if not { echo $st && cat /tmp/qa.log; exit $st}
 	}
 }

qa/lib/newlib/testsuite/atexit.check

@@ -0,0 +1,12 @@
+#!/cmd/rc
+
+if ( cat /tmp/qa.previous.log | grep a0cba > /dev/null ) {
+	rm /tmp/qa.previous.log
+	echo PASS
+	exit PASS
+}
+if not {
+	echo FAIL
+	cat /tmp/qa.previous.log
+	exit FAIL
+}

qa/lib/newlib/testsuite/build.json

@@ -24,6 +24,7 @@
 		"Post": [
 			"mkdir -p $JEHANNE/arch/$ARCH/qa/lib/newlib/testsuite",
 			"find -type f -perm /a+x -exec cp {} $JEHANNE/arch/$ARCH/qa/lib/newlib/testsuite/ \\;",
+			"cp *.check $JEHANNE/arch/$ARCH/qa/lib/newlib/testsuite/",
 			"git clean -xdf ."
 		],
 		"Pre": [