gnumeric r17156 - trunk/test

[mortenw svn gnome org]

Author: mortenw
Date: Mon Feb 23 00:47:17 2009
New Revision: 17156
URL: http://svn.gnome.org/viewvc/gnumeric?rev=17156&view=rev

Log:
2009-02-22  Morten Welinder  <terra gnome org>

	* t81*.pl: Skip if checker is not available, such as in distcheck
	tree.



Added:
   trunk/test/t8102-glade-visible.pl   (contents, props changed)
      - copied, changed from r17153, /trunk/test/t8102-glade-visible
Removed:
   trunk/test/t8102-glade-visible
Modified:
   trunk/test/ChangeLog
   trunk/test/t8100-null-false.pl
   trunk/test/t8101-gfree.pl
   trunk/test/t8103-gtk.pl

Modified: trunk/test/t8100-null-false.pl
==============================================================================
--- trunk/test/t8100-null-false.pl	(original)
+++ trunk/test/t8100-null-false.pl	Mon Feb 23 00:47:17 2009
@@ -6,5 +6,6 @@
 use GnumericTest;
 
 &message ("Check that code does not mix NULL and FALSE.");
-&test_command ("cd $topsrc && $PERL tools/check-null-false-returns",
-	       sub { /^$/ });
+my $checker = "tools/check-null-false-returns";
+&GnumericTest::report_skip ("Missing tester") unless -r "$topsrc/$checker";
+&test_command ("cd $topsrc && $PERL $checker", sub { /^$/ });

Modified: trunk/test/t8101-gfree.pl
==============================================================================
--- trunk/test/t8101-gfree.pl	(original)
+++ trunk/test/t8101-gfree.pl	Mon Feb 23 00:47:17 2009
@@ -6,4 +6,6 @@
 use GnumericTest;
 
 &message ("Check that code uses g_free and g_strdup right.");
+my $checker = "tools/check-gfrees";
+&GnumericTest::report_skip ("Missing tester") unless -r "$topsrc/$checker";
 &test_command ("cd $topsrc && $PERL tools/check-gfrees", sub { /^$/ });

Copied: trunk/test/t8102-glade-visible.pl (from r17153, /trunk/test/t8102-glade-visible)
==============================================================================
--- /trunk/test/t8102-glade-visible	(original)
+++ trunk/test/t8102-glade-visible.pl	Mon Feb 23 00:47:17 2009
@@ -6,4 +6,6 @@
 use GnumericTest;
 
 &message ("Check that glade files start out not visible.");
-&test_command ("cd $topsrc && $PERL tools/check-glade-visible", sub { /^$/ });
+my $checker = "tools/check-glade-visible";
+&GnumericTest::report_skip ("Missing tester") unless -r "$topsrc/$checker";
+&test_command ("cd $topsrc && $PERL $checker", sub { /^$/ });

Modified: trunk/test/t8103-gtk.pl
==============================================================================
--- trunk/test/t8103-gtk.pl	(original)
+++ trunk/test/t8103-gtk.pl	Mon Feb 23 00:47:17 2009
@@ -6,4 +6,6 @@
 use GnumericTest;
 
 &message ("Check that code includes gtk toplevel only.");
-&test_command ("cd $topsrc && $PERL tools/check-gtk-includes", sub { /^$/ });
+my $checker = "tools/check-gtk-includes";
+&GnumericTest::report_skip ("Missing tester") unless -r "$topsrc/$checker";
+&test_command ("cd $topsrc && $PERL $checker", sub { /^$/ });