[svn:parrot] r37146 - trunk/t/pharness
jkeenan at svn.parrot.org
jkeenan at svn.parrot.org
Fri Mar 6 13:07:13 UTC 2009
Author: jkeenan
Date: Fri Mar 6 13:07:12 2009
New Revision: 37146
URL: https://trac.parrot.org/parrot/changeset/37146
Log:
Add tests to cover --archive and --send-to-smolder options.
Modified:
trunk/t/pharness/03-handle_long_options.t
Modified: trunk/t/pharness/03-handle_long_options.t
==============================================================================
--- trunk/t/pharness/03-handle_long_options.t Fri Mar 6 10:01:15 2009 (r37145)
+++ trunk/t/pharness/03-handle_long_options.t Fri Mar 6 13:07:12 2009 (r37146)
@@ -13,11 +13,12 @@
};
plan( skip_all => 't/harness only runs once configuration has completed' )
if $@;
-plan( tests => 6 );
+plan( tests => 12 );
use Carp;
use Parrot::Harness::Options qw( handle_long_options );
my (@argv, $longopts);
+my %still_argv;
@argv = qw(
-wv
-O2
@@ -29,10 +30,33 @@
($longopts, @argv) = handle_long_options(@argv);
ok($longopts->{running_make_test}, "Captured long option");
ok($longopts->{gc_debug}, "Captured long option");
-my %still_argv = map {$_, 1} @argv;
-ok($still_argv{'-wv'}, "Combined short options still present in @ARGV");
-ok($still_argv{'-O2'}, "Short options with values still present in @ARGV");
-ok($still_argv{'t/postconfigure/*.t'}, "Arguments still present in @ARGV");
+%still_argv = map {$_, 1} @argv;
+ok($still_argv{'-wv'}, "Combined short options still present in \@ARGV");
+ok($still_argv{'-O2'}, "Short options with values still present in \@ARGV");
+ok($still_argv{'t/postconfigure/*.t'}, "Arguments still present in \@ARGV");
+
+ at argv = qw(
+ --archive
+ t/postconfigure/*.t
+); # */
+
+($longopts, @argv) = handle_long_options(@argv);
+ok($longopts->{archive}, "Captured long option");
+ok(! $longopts->{send_to_smolder}, "Smolder test not requested");
+%still_argv = map {$_, 1} @argv;
+ok($still_argv{'t/postconfigure/*.t'}, "Arguments still present in \@ARGV");
+
+ at argv = qw(
+ --archive
+ --send-to-smolder
+ t/postconfigure/*.t
+); # */
+
+($longopts, @argv) = handle_long_options(@argv);
+ok($longopts->{archive}, "Captured long option");
+ok($longopts->{send_to_smolder}, "Smolder test requested");
+%still_argv = map {$_, 1} @argv;
+ok($still_argv{'t/postconfigure/*.t'}, "Arguments still present in \@ARGV");
pass("Completed all tests in $0");
More information about the parrot-commits
mailing list