Test :: in parameters

sorear · May 27, 2011 · be60cde · be60cde
1 parent af8a3f2
commit be60cde
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/test2.pl b/test2.pl
@@ -23,6 +23,10 @@
     class X7140::X1122 { }
     my X7140::X1122 $obj .= new;
     isa_ok $obj, X7140::X1122, 'Type constraints via :: work';
+
+    sub foo(X7140::X1122 $) { }
+    lives_ok { foo($obj) }, 'Parameter :: constraints work (1)';
+    dies_ok { foo(5) }, 'Parameter :: constraints work (1)';
 }
 
 #is $?FILE, 'test.pl', '$?FILE works';