1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $expected;
{ local $/; $expected = <DATA>; }
&message ("Checking function help text sanity.");
&sstest ("test_func_help", $expected);
__DATA__
-----------------------------------------------------------------------------
Start: test_func_help
-----------------------------------------------------------------------------
Result = 0
End: test_func_help
|