Fix #4: undefine_all() should carp if no option is given

pauloscustodio · Jul 23, 2015 · 9acf90d · 9acf90d
1 parent fa4f332
commit 9acf90d
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/t/fix_004.t b/t/fix_004.t
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+# Copyright (c) 2015 Paulo Custodio. All Rights Reserved.
+# May be used/distributed under the GPL.
+
+use strict;
+use warnings;
+use Test::More;
+
+my $ms;
+use_ok 'Text::MacroScript';
+require_ok 't/mytests.pl';
+
+$ms = new_ok('Text::MacroScript');
+eval {$ms->undefine_all()};
+check_error(__LINE__-1, $@, " method not supported __LOC__.\n");
+eval {$ms->undefine_all(-xxx)};
+check_error(__LINE__-1, $@, "-xxx method not supported __LOC__.\n");
+
+done_testing;