2 # -----------------------------------------------------------------------------
5 use lib
($0 =~ m
|^(.*/)| ?
$1 : ".");
8 &setup_python_environment
();
10 my $python_script = $0;
11 $python_script =~ s/\.pl$/.py/;
12 &test_command
($PYTHON . ' ' . &GnumericTest
::quotearg
($python_script),
13 sub { /^[-+.0-9]+$/ && abs ($_ - -0.253347103136) < 1e-10 });