Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv492/t
Modified Files:
Tag: release-0_26_branch
ext.t
Log Message:
Accept --foo=bar as a synonym for --foo bar
Index: ext.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/ext.t,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -d -r1.1.2.6 -r1.1.2.7
--- ext.t 7 Jan 2005 02:17:42 -0000 1.1.2.6
+++ ext.t 23 Mar 2005 01:26:23 -0000 1.1.2.7
@@ -55,7 +55,7 @@
{ 'a " b " c' => [ 'a', ' b ', 'c' ] },
);
-plan tests => 13 + 2*@unix_splits + 2*@win_splits;
+plan tests => 14 + 2*@unix_splits + 2*@win_splits;
use Module::Build;
ok(1);
@@ -81,12 +81,13 @@
{
# Make sure read_args() functions properly as a class method
- my @args = qw(foo=bar --food bard);
+ my @args = qw(foo=bar --food bard --foods=bards);
my ($args) = Module::Build->read_args(@args);
- ok keys(%$args), 3;
+ ok keys(%$args), 4;
ok $args->{foo}, 'bar';
ok $args->{food}, 'bard';
+ ok $args->{foods}, 'bards';
ok exists $args->{ARGV}, 1;
ok @{$args->{ARGV}}, 0;
}
|
