X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F003_basic_hash.t;fp=t%2F003_basic_hash.t;h=7b1b7794e31911eaa11c502c01990b369b2e8955;hb=57f29c327d2c5bac9123d7ceb6cffcfcfea6e509;hp=1f48afcb3a78c560520adc44fc55adfe32eaf1b5;hpb=9bfd5e92528d455492b20b507c3d1e1e93dc4a0f;p=gitmo%2FMooseX-AttributeHelpers.git diff --git a/t/003_basic_hash.t b/t/003_basic_hash.t index 1f48afc..7b1b779 100644 --- a/t/003_basic_hash.t +++ b/t/003_basic_hash.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 39; +use Test::More tests => 40; use Test::Exception; BEGIN { @@ -54,6 +54,7 @@ ok(!$stuff->has_options, '... we have no options'); is($stuff->num_options, 0, '... we have no options'); is_deeply($stuff->options, {}, '... no options yet'); +ok(!$stuff->has_option('foo'), '... we have no foo option'); lives_ok { $stuff->set_option(foo => 'bar');