<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl


@files = glob("xgrep-test*.sh");

foreach $file (@files)
{
	$file =~ /(.+)\.sh/;
	$basename = $1;

	print "Working on $basename...";
	$cmd = "./" . $file . " &gt; " . $basename . ".out";
	`$cmd`;
	$cmd = "diff $basename.base $basename.out";
	
	$diffs = `$cmd`;
	if($diffs ne "") {
		print "          FAILED\n";
		$failures = 1;
	} else {
		print "passed\n";
	}
}

if($failures == 1) {
	print "\nThere have been failures.\n";
} else {
	print "\nAll tests successful.\n";
	`rm *.out`;
}





</pre></body></html>