Author: jkeenan
Date: Sun Apr 8 06:36:48 2007
New Revision: 18039
Modified:
trunk/t/configure/01-options.t
Log:
Adding 1 test to see whether get_valid_options() handles invalid option
correctly.
Modified: trunk/t/configure/01-options.t
==============================================================================
--- trunk/t/configure/01-options.t (original)
+++ trunk/t/configure/01-options.t Sun Apr 8 06:36:48 2007
@@ -19,7 +19,7 @@
}
unshift @INC, qq{$topdir/lib};
}
-use Test::More tests => 32;
+use Test::More tests => 33;
use Carp;
use lib ("lib");
use_ok('Parrot::Configure::Options', qw|
@@ -30,6 +30,8 @@
my %valid;
+my $badoption = q{samsonanddelilah};
+
%valid = map {$_, 1} get_valid_options();
ok(scalar keys %valid, "non-zero quantity of valid options found");
ok(defined $valid{debugging}, "debugging option found");
@@ -37,6 +39,7 @@
ok(defined $valid{help}, "help option found");
ok(defined $valid{version}, "version option found");
ok(defined $valid{verbose}, "verbose option found");
+ok(! defined $valid{$badoption}, "invalid option not found");
open my $FH, "$main::topdir/Configure.pl"
or croak "Unable to open handle to Configure.pl";
@@ -133,7 +136,6 @@
ok(defined $args,
"process_options() returned successfully when options were specified");
-my $badoption = q{samsonanddelilah};
eval {
$args = process_options( {
argv => [ qq<--${badoption}=72> ],
