X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Fi386%2Flibtest-exception-perl%2Flibtest-exception-perl-0.27%2Ft%2Fpreserve.t;fp=dev%2Fi386%2Flibtest-exception-perl%2Flibtest-exception-perl-0.27%2Ft%2Fpreserve.t;h=dd852f6cd74ce150b6c61697d5623297f1c6dce2;hp=0000000000000000000000000000000000000000;hb=8977e561d8a9eae6959218b0306c9df2056a38a9;hpb=df794b845212301ea0d267c919232538bfef356a

diff --git a/dev/i386/libtest-exception-perl/libtest-exception-perl-0.27/t/preserve.t b/dev/i386/libtest-exception-perl/libtest-exception-perl-0.27/t/preserve.t
new file mode 100755
index 0000000..dd852f6
--- /dev/null
+++ b/dev/i386/libtest-exception-perl/libtest-exception-perl-0.27/t/preserve.t
@@ -0,0 +1,19 @@
+#! /usr/bin/perl -Tw
+
+use strict;
+use warnings;
+
+use Test::More tests => 5;
+
+BEGIN { use_ok( 'Test::Exception' ) };
+
+sub div {
+   my ($a, $b) = @_;
+   return( $a / $b );
+};
+
+dies_ok { div(1, 0) } 'exception thrown okay in dies_ok';
+like( $@, '/^Illegal division by zero/', 'exception preserved after dies_ok' );
+
+throws_ok { div(1, 0) } '/^Illegal division by zero/', 'exception thrown okay in throws_ok';
+like( $@, '/^Illegal division by zero/', 'exception preserved after thrown_ok' );