Add tests that various setting methods do proper type checking
Dave Rolsky [Sun, 14 Dec 2008 23:22:49 +0000 (23:22 +0000)]
t/002_basic_array.t

index 8aab0a4..1153247 100644 (file)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 52;
+use Test::More tests => 55;
 use Test::Exception;
 
 BEGIN {
@@ -148,6 +148,21 @@ dies_ok {
     Stuff->new(options => [ undef, 10, undef, 20 ]);
 } '... bad constructor params';
 
+dies_ok {
+    my $stuff = Stuff->new();
+    $stuff->add_options(undef);
+} '... rejects push of an invalid type';
+
+dies_ok {
+    my $stuff = Stuff->new();
+    $stuff->insert_options(undef);
+} '... rejects unshift of an invalid type';
+
+dies_ok {
+    my $stuff = Stuff->new();
+    $stuff->set_option_at( 0, undef );
+} '... rejects set of an invalid type';
+
 ## test the meta
 
 my $options = $stuff->meta->get_attribute('options');