test/t3001-introspection-simple.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 Number of columns: 256
  18 Number of rows: 65536
  19
  20 As string:
  21 10
  22 101.25
  23 111.25
  24 01
  25 zzz
  26 abc
  27 TRUE
  28
  29 As int:
  30 10
  31 101
  32 111
  33 1
  34 0
  35 0
  36 1
  37
  38 List of cells in sheet:
  39 A1
  40 A2
  41 A3
  42 A4
  43 A5
  44 A6
  45 A7