.\" start test
.de test
. nr t +1
. tmc test \\nt (\\$*):
..
.
.\" make assertion
.de assert
.ec `
.ie `$1 \{\
. tm 	success
.\}
.ec
.el \{\
. if \\nF<\\nt .tm 	failure:
.ec `
. ds *exp `$1
.ec
. tm {	\\*[*exp]
. if !'\\*[*exp]'\\$1' . tm }	\\$1
. nr f +1
. nr F \\nt
.\}
..
.\" end tests
.de end
. ie \\nf=0 .tm ** \\nt test(s) succeeded **
. el \{
.  ab !! \\nf test(s) failed !!
. \}
..
.