test/t6501-numbers.pl

   1 #!/usr/bin/perl -w
   2 # -----------------------------------------------------------------------------
   3
   4 use strict;
   5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
   6 use GnumericTest;
   7
   8 my $file = "$samples/number-tests.gnumeric";
   9
  10 if (&subtest ("eval")) {
  11     &message ("Check that $file evaluates correctly.");
  12     &test_sheet_calc ($file, "F1", sub { /TRUE/ });
  13 }
  14
  15 if (&subtest ("gnumeric")) {
  16     &message ("Check number gnumeric roundtrip.");
  17     &test_roundtrip ($file,
  18                      'format' => 'Gnumeric_XmlIO:sax',
  19                      'ext' => "gnm");
  20 }
  21
  22 if (&subtest ("ods")) {
  23     &message ("Check number ods roundtrip.");
  24     &test_roundtrip ($file,
  25                      'format' => 'Gnumeric_OpenCalc:odf',
  26                      'ext' => "ods",
  27                      'filter2' => 'std:drop_generator');
  28 }
  29
  30 if (&subtest ("biff7")) {
  31     &message ("Check number xls/BIFF7 roundtrip.");
  32     &test_roundtrip ($file,
  33                      'format' => 'Gnumeric_Excel:excel_biff7',
  34                      'ext' => "xls",
  35                      'resize' => '16384x256',
  36                      'filter2' => 'std:drop_codepage',
  37                      'ignore_failure' => 1);
  38 }
  39
  40 if (&subtest ("biff8")) {
  41     &message ("Check number xls/BIFF8 roundtrip.");
  42     &test_roundtrip ($file,
  43                      'format' => 'Gnumeric_Excel:excel_biff8',
  44                      'ext' => "xls",
  45                      'filter2' => 'std:drop_codepage',
  46                      'ignore_failure' => 1);
  47 }
  48
  49 if (&subtest ("xlsx")) {
  50     &message ("Check number xlsx roundtrip.");
  51     &test_roundtrip ($file,
  52                      'format' => 'Gnumeric_Excel:xlsx',
  53                      'ext' => "xlsx",
  54                      'resize' => '1048576x16384');
  55 }