
	* testing.scm (total-expected-count):  New variable.
	(test-init):  Take optional argument for setting total-expected-count.
	(report-display, report-newline):  New functions.
	(test-report):  Check that total matches total-expected-count.


git-svn-id: a878c62e23c3cdd7109267dfd9bdff0ba03a0163@902 1d09e943-a6e3-41c1-b8ec-f26b335f1fdb

maoueh/kawa-fork,maoueh/kawa-fork,maoueh/kawa-fork,maoueh/kawa-fork,maoueh/kawa-fork