Add the original source packages to maemo, source lenny

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

diff --git a/dev/i386/libtest-exception-perl/libtest-exception-perl-0.27/t/rt.t b/dev/i386/libtest-exception-perl/libtest-exception-perl-0.27/t/rt.t
new file mode 100644 (file)
index 0000000..d3bfcdd
--- /dev/null
+++ b/dev/i386/libtest-exception-perl/libtest-exception-perl-0.27/t/rt.t
@@ -0,0 +1,20 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More 'no_plan';
+use Test::Exception;
+
+{   package Foo;
+    use Carp qw( confess );
+    sub an_abstract_method { shift->subclass_responsibility; }
+    sub subclass_responsibility {
+        my $class = shift;
+        my $method = (caller(1))[3];
+        $method =~ s/.*:://;
+        confess( "abstract method '$method' not implemented for $class" );
+    }
+}
+
+throws_ok { Foo->an_abstract_method }
+    qr/abstract method 'an_abstract_method'/, 'RT 11846: throws_ok breaks tests that depend on caller stack: working';