[Module-build-checkins] Module-Build/t ext.t,1.1.2.6,1.1.2.7

[Ken W. <kwi...@us...>]

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;
 }