[gnumeric] tests: run a few tests with G_SLICE=debug-blocks

[Morten Welinder <mortenw src gnome org>]

commit 3f5ceef5d3a5075586498078d25f776f811670d8
Author: Morten Welinder <terra gnome org>
Date:   Sun Nov 8 12:24:54 2009 -0500

    tests: run a few tests with G_SLICE=debug-blocks

 test/t8200-gslice1.pl |   17 +++++++++++++++++
 test/t8201-gslice2.pl |   17 +++++++++++++++++
 test/t8202-gslice3.pl |   17 +++++++++++++++++
 3 files changed, 51 insertions(+), 0 deletions(-)
---
diff --git a/test/t8200-gslice1.pl b/test/t8200-gslice1.pl
new file mode 100755
index 0000000..d3576ce
--- /dev/null
+++ b/test/t8200-gslice1.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w
+# -----------------------------------------------------------------------------
+
+use strict;
+use lib ($0 =~ m|^(.*/)| ? $1 : ".");
+use GnumericTest;
+
+&message ("Check core glib slice checker");
+$ENV{'G_SLICE'} = 'debug-blocks';
+
+my $src = "$samples/excel/statfuns.xls";
+&GnumericTest::report_skip ("file $src does not exist") unless -r $src;
+
+my $tmp = "statfuns.gnumeric";
+&GnumericTest::junkfile ($tmp);
+
+&test_command ("$ssconvert $src $tmp", sub { 1 } );
diff --git a/test/t8201-gslice2.pl b/test/t8201-gslice2.pl
new file mode 100755
index 0000000..3b38d64
--- /dev/null
+++ b/test/t8201-gslice2.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w
+# -----------------------------------------------------------------------------
+
+use strict;
+use lib ($0 =~ m|^(.*/)| ? $1 : ".");
+use GnumericTest;
+
+&message ("Check core glib slice checker");
+$ENV{'G_SLICE'} = 'debug-blocks';
+
+my $src = "$samples/excel/statfuns.xls";
+&GnumericTest::report_skip ("file $src does not exist") unless -r $src;
+
+my $tmp = "statfuns2.xls";
+&GnumericTest::junkfile ($tmp);
+
+&test_command ("$ssconvert $src $tmp", sub { 1 } );
diff --git a/test/t8202-gslice3.pl b/test/t8202-gslice3.pl
new file mode 100755
index 0000000..a7b2434
--- /dev/null
+++ b/test/t8202-gslice3.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w
+# -----------------------------------------------------------------------------
+
+use strict;
+use lib ($0 =~ m|^(.*/)| ? $1 : ".");
+use GnumericTest;
+
+&message ("Check core glib slice checker");
+$ENV{'G_SLICE'} = 'debug-blocks';
+
+my $src = "$samples/regress.gnumeric";
+&GnumericTest::report_skip ("file $src does not exist") unless -r $src;
+
+my $tmp = "regress.xls";
+&GnumericTest::junkfile ($tmp);
+
+&test_command ("$ssconvert $src $tmp", sub { 1 } );