Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libtest-exception-perl / libtest-exception-perl-0.27 / t / caller.t

diff --git a/dev/i386/libtest-exception-perl/libtest-exception-perl-0.27/t/caller.t b/dev/i386/libtest-exception-perl/libtest-exception-perl-0.27/t/caller.t
new file mode 100644 (file)
index 0000000..e24887a
--- /dev/null
+++ b/dev/i386/libtest-exception-perl/libtest-exception-perl-0.27/t/caller.t
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -Tw
+
+# Make sure caller() is undisturbed.
+
+use strict;
+use warnings;
+
+use Test::Exception;
+use Test::More tests => 2;
+
+eval { die caller() . "\n" };
+is( $@, "main\n" );
+
+throws_ok { die caller() . "\n" }  qr/^main$/;