add *_strict variants of all symbolic types

[p5sagit/Function-Parameters.git] / t / imports.t

diff --git a/t/imports.t b/t/imports.t
index 526f64b..302ca69 100644 (file)
--- a/t/imports.t
+++ b/t/imports.t
@@ -1,6 +1,6 @@
 #!perl
 
-use Test::More tests => 25;
+use Test::More tests => 48;
 
 use warnings FATAL => 'all';
 use strict;
@@ -18,7 +18,7 @@ use strict;
        is eval('fun foo :() {}; 1'), undef;
        like $@, qr/syntax error/;
 
-       pound foo_1($x) { $x }
+       pound foo_1($x, $u) { $x }
        is foo_1(2 + 2), 4;
 
        no Function::Parameters qw(pound);
@@ -33,7 +33,7 @@ use strict;
        is eval('fun foo () {}; 1'), undef;
        like $@, qr/syntax error/;
 
-       pound foo_2() { $self }
+       pound foo_2($u) { $self }
        is foo_2(2 + 2), 4;
 
        no Function::Parameters qw(pound);
@@ -51,7 +51,7 @@ use strict;
        is eval('fun foo () {}; 1'), undef;
        like $@, qr/syntax error/;
 
-       pound foo_3() { $class }
+       pound foo_3($u) { $class }
        is foo_3(2 + 2), 4;
 
        no Function::Parameters;
@@ -60,6 +60,63 @@ use strict;
        like $@, qr/syntax error/;
 }
 
+{
+       use Function::Parameters { pound => 'function_strict' };
+
+       is eval('fun foo :() {}; 1'), undef;
+       like $@, qr/syntax error/;
+
+       pound foo_4($x) { $x }
+       is foo_4(2 + 2), 4;
+
+       is eval('foo_4(5, 6)'), undef;
+       like $@, qr/Too many arguments/;
+
+       no Function::Parameters qw(pound);
+
+       is eval('pound foo() {}; 1'), undef;
+       like $@, qr/syntax error/;
+}
+
+{
+       use Function::Parameters { pound => 'method_strict' };
+
+       is eval('fun foo () {}; 1'), undef;
+       like $@, qr/syntax error/;
+
+       pound foo_5() { $self }
+       is foo_5(2 + 2), 4;
+
+       is eval('foo_5(5, 6)'), undef;
+       like $@, qr/Too many arguments/;
+
+       no Function::Parameters qw(pound);
+
+       is eval('pound unfoo :() {}; 1'), undef;
+       like $@, qr/syntax error/;
+}
+
+{
+       is eval('pound unfoo( ){}; 1'), undef;
+       like $@, qr/syntax error/;
+
+       use Function::Parameters { pound => 'classmethod_strict' };
+
+       is eval('fun foo () {}; 1'), undef;
+       like $@, qr/syntax error/;
+
+       pound foo_6() { $class }
+       is foo_6(2 + 2), 4;
+
+       is eval('foo_6(5, 6)'), undef;
+       like $@, qr/Too many arguments/;
+
+       no Function::Parameters;
+
+       is eval('pound unfoo :lvalue{}; 1'), undef;
+       like $@, qr/syntax error/;
+}
+
 is eval('Function::Parameters->import(":QQQQ"); 1'), undef;
 like $@, qr/valid identifier/;