Add ARM files

[dh-make-perl] / dev / arm / libtest-exception-perl / libtest-exception-perl-0.27 / t / isa.t

diff --git a/dev/arm/libtest-exception-perl/libtest-exception-perl-0.27/t/isa.t b/dev/arm/libtest-exception-perl/libtest-exception-perl-0.27/t/isa.t
new file mode 100644 (file)
index 0000000..8fa4002
--- /dev/null
+++ b/dev/arm/libtest-exception-perl/libtest-exception-perl-0.27/t/isa.t
@@ -0,0 +1,21 @@
+#! /usr/bin/perl -Tw
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+use Test::Exception;
+
+{
+    package MockFooException;
+    
+    sub new { bless {}, shift };
+    sub isa { 
+        my ( $self, $class ) = @_;
+        return 1 if $class eq 'Foo';
+        return $self->SUPER::isa( $class );
+    }
+}
+
+throws_ok { die MockFooException->new } 'Foo', 
+    'Understand exception classes that override isa';
\ No newline at end of file