_clear_instance and tests

[gitmo/MooseX-Singleton.git] / t / 001-basic.t

diff --git a/t/001-basic.t b/t/001-basic.t
index 9cd90b0..b6ad4ff 100644 (file)
--- a/t/001-basic.t
+++ b/t/001-basic.t
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 16;
+use Test::More tests => 17;
 
 BEGIN {
     package MooseX::Singleton::Test;
@@ -67,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");