test/t3003-introspection-plugins.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 &test_command ($PYTHON . ' ' . &GnumericTest::quotearg ($python_script),
  13                sub {
  14                    return (# A few important savers
  15                            /^Saver ID: Gnumeric_Excel:xlsx$/m &&
  16                            /^Saver ID: Gnumeric_stf:stf_csv$/m &&
  17                            /^Saver ID: Gnumeric_XmlIO:sax$/m &&
  18                            /^Saver ID: Gnumeric_pdf:pdf_assistant$/m &&
  19                            # A few important loaders
  20                            /^Loader ID: Gnumeric_Excel:xlsx$/m &&
  21                            /^Loader ID: Gnumeric_OpenCalc:openoffice$/m &&
  22                            # A few important plot types
  23                            /^Plot families: .*\bLine\b/m &&
  24                            /^Plot families: .*\bBar\b/m &&
  25                            /^Plot families: .*\bXY\b/m &&
  26                            # A few functions
  27                            /^Functions: .*\bsin\b/m &&
  28                            /^Functions: .*\bvar\b/m &&
  29                            /^Functions: .*\brandnorm\b/m &&
  30                            /^Functions: .*\bweekday\b/m &&
  31                            /^Functions: .*\bimsin\b/m
  32                        );
  33                });