package option for perl5

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10393 626c5289-ae23-0410-ae9c-e8d60b6d4f22

Examples/test-suite/perl5/README

@@ -12,4 +12,6 @@ adding a new test to this suite, please use Test::More.
 Currently converted test cases include:
 
 * operator_overload
+* operator_overload_break
+* package
 * overload_simple

Examples/test-suite/perl5/package_runme.pl

@@ -0,0 +1,24 @@
+#!/usr/bin/perl -w
+use strict;
+use Test::More tests => 4;
+
+BEGIN { use_ok('package_a'); }
+BEGIN { use_ok('package_b'); }
+
+# Workaround for 
+#   ok( not (expression) , "test description" );
+# does not working in older versions of Perl, eg 5.004_04
+sub ok_not ($;$) {
+    my($test, $name) = @_;
+    $test = not $test;
+    ok($test, $name);
+}
+
+my $a = C::A->new();
+
+isa_ok($a, 'C::A');
+
+my $b = C::B->new();
+
+isa_ok($b, 'C::B');
+