test/t9999-epilogue.pl

   1 #!/usr/bin/perl -w
   2 # -----------------------------------------------------------------------------
   3
   4 use strict;
   5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
   6 use GnumericTest;
   7
   8 &message ("Warnings about things that might affect tests.");
   9
  10 my $HOME = $ENV{'HOME'};
  11
  12 # ----------------------------------------
  13
  14 # No longer true.  We use the tree's plugins, at least on Linux.
  15 #print STDERR "Warning: tests are run using installed plugins.  (\"make install\".)\n";
  16
  17 # ----------------------------------------
  18
  19 print STDERR "Warning: goal seek tests use random numbers.  Report sporadic failures.\n";
  20
  21 # ----------------------------------------
  22
  23 print STDERR "Warning: you have a ~/.valgrindrc file that might affect tests.\n"
  24     if defined ($HOME) && -r "$HOME/.valgrindrc";
  25
  26 # ----------------------------------------
  27
  28 my $deffont = `gconftool-2 -g /apps/gnumeric/core/defaultfont/name 2>/dev/null`;
  29 chomp $deffont;
  30 if ($deffont eq '') {
  31     print STDERR "Warning: the default font is not set.\n";
  32 } elsif ($deffont ne 'Sans') {
  33     print STDERR "Warning: the default font is \"$deffont\", not \"Sans\".  This may affect tests.\n";
  34 }
  35
  36 # ----------------------------------------
  37
  38 print STDERR "Pass\n";