adding in the new junk to this

[gitmo/MooseX-AttributeHelpers.git] / t / 003_basic_hash.t

diff --git a/t/003_basic_hash.t b/t/003_basic_hash.t
index bf71ea9..c0b3a2a 100644 (file)
--- a/t/003_basic_hash.t
+++ b/t/003_basic_hash.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More no_plan => 1;
+use Test::More tests => 26;
 use Test::Exception;
 
 BEGIN {
@@ -13,6 +13,7 @@ BEGIN {
 {
     package Stuff;
     use Moose;
+    use MooseX::AttributeHelpers;
 
     has 'options' => (
         metaclass => 'Collection::Hash',
@@ -24,6 +25,7 @@ BEGIN {
             'get'    => 'get_option',            
             'empty'  => 'has_options',
             'count'  => 'num_options',
+            'clear'  => 'clear_options',
             'delete' => 'delete_option',
         }
     );
@@ -38,6 +40,7 @@ can_ok($stuff, $_) for qw[
     has_options
     num_options
     delete_option
+    clear_options
 ];
 
 ok(!$stuff->has_options, '... we have no options');
@@ -69,6 +72,10 @@ lives_ok {
 is($stuff->num_options, 1, '... we have 1 option(s)');
 is_deeply($stuff->options, { foo => 'bar' }, '... got more options now');
 
+$stuff->clear_options;
+
+is_deeply($stuff->options, { }, "... cleared options" );
+
 lives_ok {
     Stuff->new(options => { foo => 'BAR' });
 } '... good constructor params';