test/t3004-introspection-overrides.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 my $ref = join("",<DATA>);
  13 &test_command ($PYTHON . ' ' . &GnumericTest::quotearg ($python_script),
  14                sub { $_ eq $ref });
  15
  16 __DATA__
  17 Using in-tree gi.overrides.Gnm
  18
  19 Testing GnmValue overrides:
  20 {EMPTY,None}
  21 {BOOLEAN,0}
  22 {BOOLEAN,1}
  23 {FLOAT,12}
  24 {FLOAT,12.5}
  25 {STRING,"howdy"}
  26 {FLOAT,12.5,"0.00"}
  27
  28 Testing GnmRange overrides:
  29 B3:D5