test/t3000-introspection-basic.pl

   1 #!/usr/bin/perl -w
   2 # -----------------------------------------------------------------------------
   3
   4 use strict;
   5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
   6 use GnumericTest;
   7
   8 &setup_python_environment ();
   9
  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 });