test that optional params really are optional

Signed-off-by: Florian Ragwitz <rafl@debian.org>
rafl · Mar 1, 2009 · 0aad982 · 0aad982
1 parent 260557b
commit 0aad982
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/t/sigs-optional.t b/t/sigs-optional.t
@@ -0,0 +1,14 @@
+use strict;
+use warnings;
+use Test::More tests => 2;
+
+{
+    package Optional;
+    use MooseX::Method::Signatures;
+    method foo ($class: $arg?) {
+        $arg;
+    }
+}
+
+is( Optional->foo(), undef);
+is( Optional->foo(1), 1);