Cross Reference: /freebsd-10.1-release/lib/libkse/test/verify

122 # Run sequence test(s).
130 foreach $test (@ARGV)
132     # Strip out any whitespace in $test.
133     $test =~ s/^\s*(.*)\s*$/$1/;
137     if (-e "$opt_srcdir/$test.exp")
141 	($okay, $utime, $stime) = &run_test($test);
143 	if (-e "$opt_objdir/$test.out")
145 	    `diff $opt_srcdir/$test.exp $opt_objdir/$test.out > $opt_objdir/$test.diff 2>&1`;
158 		    "Nonexistent output file \"$opt_objdir/$test.out\"\n";
162 	($hutime, $hstime) = &print_stats($test, $okay, 0, 0, $utime, $stime);
168 	($okay, $utime, $stime) = &run_test($test);
170 	if (open (STEST_OUT, "<$opt_objdir/$test.out"))
244 		print STDERR "Cannot open output file \"$opt_objdir/$test.out\"\n";
249 	($hutime, $hstime) = &print_stats($test, $okay,
264 	@FAILED_TESTS = (@FAILED_TESTS, $test);
315     my ($test) = @_;
323     # Get the path component of $test, if any.
324     @TPATH = split(/\//, $test);
331     $t_str = sprintf ("%s%s", $test, ' ' x (40 - length($test)));
343     `$opt_objdir/$test $srcdir $objdir > $opt_objdir/$test.out 2>&1`;
358 		    "\"$opt_objdir/$test > $opt_objdir/$test.out 2>&1\" returned $?\n";
368     my ($test, $okay, $failed_subtests, $subtests, $utime, $stime) = @_;
381     if (-r "$test.perf")
383 	if (!open (TEST_PERF, "<$opt_objdir/$test.perf"))
385 	    print STDERR "Unable to open \"$opt_objdir/$test.perf\"\n";
424 	if (!open (TEST_PERF, ">$opt_objdir/$test.perf"))
428 		print STDERR "Unable to update \"$opt_objdir/$test.perf\"\n";
445     $0 [<options>] <test>+
454     -u --ustats   | Update historical statistics (stored in "<test>.perf".
458     If <test>.exp exists, <test>'s output is diff'ed with <test>.exp.  Any
461     If <test>.exp does not exist, output to stdout of the following form is