Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libtest-simple-perl / libtest-simple-perl-0.80 / t / tbt_03die.t

diff --git a/dev/i386/libtest-simple-perl/libtest-simple-perl-0.80/t/tbt_03die.t b/dev/i386/libtest-simple-perl/libtest-simple-perl-0.80/t/tbt_03die.t
new file mode 100644 (file)
index 0000000..b9dba80
--- /dev/null
+++ b/dev/i386/libtest-simple-perl/libtest-simple-perl-0.80/t/tbt_03die.t
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use Test::Builder::Tester tests => 1;
+use Test::More;
+
+eval {
+    test_test("foo");
+};
+like($@,
+     "/Not testing\.  You must declare output with a test function first\./",
+     "dies correctly on error");
+