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 Name: Sheet1
  18 Number of columns: 256
  19 Number of rows: 65536
  20
  21 As string:
  22 10
  23 101.25
  24 111.25
  25 01
  26 zzz
  27 abc
  28 TRUE
  29
  30 As int:
  31 10
  32 101
  33 111
  34 1
  35 0
  36 0
  37 1
  38
  39 Formatted value:
  40 Value: 101.25  Format: 0.0000  Rendered: 101.2500
  41
  42 List of cells in sheet:
  43 A1: 10 [bold]
  44 C1: 10
  45 A2: 101.2500 [bold]
  46 C2: 101.25
  47 A3: =A1+A2
  48 C3: =C1+C2
  49 A4: '01
  50 C4: '01
  51 A5: zzz
  52 C5: zzz
  53 A6: abc
  54 C6: abc
  55 A7: TRUE
  56 C7: TRUE