X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001-basic.t;h=b6ad4ffd83c7be3c45e6c7d8ea9c5d070e162a8b;hb=ade9ece08d09a5a858e7978a970831f0f65ac3a4;hp=78caa638e0627b5fcef9f866dfcd1f72e3db8535;hpb=7afceec34ad9f9882ac0c9dd6fbe4d55896bff62;p=gitmo%2FMooseX-Singleton.git

diff --git a/t/001-basic.t b/t/001-basic.t
index 78caa63..b6ad4ff 100644
--- a/t/001-basic.t
+++ b/t/001-basic.t
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 15;
+use Test::More tests => 17;
 
 BEGIN {
     package MooseX::Singleton::Test;
@@ -43,6 +43,7 @@ $mst->add(bar => 5);
 is($mst->distinct_keys, 3, "added another key");
 
 my $mst2 = MooseX::Singleton::Test->instance;
+is($mst, $mst2, 'instances are the same object');
 isa_ok($mst2, 'MooseX::Singleton::Test', 'Singleton->instance returns a real instance');
 
 is($mst2->distinct_keys, 3, "keys from before");
@@ -66,3 +67,6 @@ is($mst->distinct_keys, 0, "Package->clear works");
 is($mst2->distinct_keys, 0, "Package->clear works");
 is(MooseX::Singleton::Test->distinct_keys, 0, "Package->clear works");
 
+MooseX::Singleton::Test->_clear_instance;
+$mst = $mst2 = undef;
+is(MooseX::Singleton::Test->new->distinct_keys, 1, "back to the default");