Changeset 24304 for trunk/Nebulous-Server/t/75_parse_neb_key.t

Timestamp:

Jun 2, 2009, 4:29:49 PM (17 years ago)

Author:

jhoblitt

Message:

add params checking to Nebulous::Key::parse_neb_key()

File:

• trunk/Nebulous-Server/t/75_parse_neb_key.t (modified) (2 diffs)

trunk/Nebulous-Server/t/75_parse_neb_key.t

@@ -10 +10 @@
 use Test::More;
 
-plan tests => 99;
+plan tests => 103;
 
 use lib qw( ./t ./lib );
@@ -322 +322 @@
 };
 like( $@, qr/requires a path/, "no path" );
+
+# params
+eval {
+    my $key = parse_neb_key();
+};
+like( $@, qr/key param is not optional/, "no params" );
+
+eval {
+    my $key = parse_neb_key(undef);
+};
+like( $@, qr/key param is not optional/, "key is undef" );
+
+eval {
+    my $key = parse_neb_key(undef, 'bar');
+};
+like( $@, qr/key param is not optional/, "key is undef" );
+
+eval {
+    my $key = parse_neb_key('foo', 'bar', 'foo');
+};
+like( $@, qr/too many params/, "too many params" );