From 307fc5fcd99776572cd14a14c9fd50287857f13b Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 7 May 2010 05:49:16 -0500 Subject: bit more testing --- t/001-basic.t | 2 ++ 1 file changed, 2 insertions(+) diff --git a/t/001-basic.t b/t/001-basic.t index 139e33c..eeaf168 100644 --- a/t/001-basic.t +++ b/t/001-basic.t @@ -65,11 +65,13 @@ is($bar->public, 'PUBLIC', "gets a lazy value"); ok($bar->has_public, "has a value now"); $bar->clear_public; ok(!$bar->has_public, "doesn't have a value again"); +dies_ok { $bar->public('sldkfj') } "other options aren't overwritten"; ok(!$bar->_has_private, "doesn't have a value yet"); is($bar->_private, 'PRIVATE', "gets a lazy value"); ok($bar->_has_private, "has a value now"); $bar->_clear_private; ok(!$bar->_has_private, "doesn't have a value again"); +dies_ok { $bar->_private('sldkfj') } "other options aren't overwritten"; done_testing; -- cgit v1.2.3-54-g00ecf