t3004-introspection-overrides.pl 588 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------

use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;

&setup_python_environment ();

my $python_script = $0;
$python_script =~ s/\.pl$/.py/;
12
my $ref = join("",<DATA>);
13
&test_command ($PYTHON . ' ' . &GnumericTest::quotearg ($python_script),
14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
	       sub { $_ eq $ref });

__DATA__
Using in-tree gi.overrides.Gnm

Testing GnmValue overrides:
{EMPTY,None}
{BOOLEAN,0}
{BOOLEAN,1}
{FLOAT,12}
{FLOAT,12.5}
{STRING,"howdy"}
{FLOAT,12.5,"0.00"}

Testing GnmRange overrides:
B3:D5