[Module-build-checkins] Module-Build/t ext.t,1.1.2.3,1.1.2.4

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

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32711/t

Modified Files:
      Tag: release-0_26_branch
	ext.t 
Log Message:
Integrate from mainline

Index: ext.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/ext.t,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -C2 -d -r1.1.2.3 -r1.1.2.4
*** ext.t	28 Nov 2004 02:30:50 -0000	1.1.2.3
--- ext.t	6 Dec 2004 04:02:18 -0000	1.1.2.4
***************
*** 52,56 ****
  );
  
! plan tests => 7 + 2*@unix_splits + 2*@win_splits;
  
  use Module::Build;
--- 52,56 ----
  );
  
! plan tests => 12 + 2*@unix_splits + 2*@win_splits;
  
  use Module::Build;
***************
*** 65,69 ****
  }
  
- 
  use Module::Build::Platform::Unix;
  foreach my $test (@unix_splits) {
--- 65,68 ----
***************
*** 76,79 ****
--- 75,92 ----
  }
  
+ 
+ {
+   # Make sure read_args() functions properly as a class method
+   my @args = qw(foo=bar --food bard);
+   my ($args) = Module::Build->read_args(@args);
+ 
+   ok keys(%$args), 3;
+   ok $args->{foo}, 'bar';
+   ok $args->{food}, 'bard';
+   ok exists $args->{ARGV}, 1;
+   ok @{$args->{ARGV}}, 0;
+ }
+ 
+ ##################################################################
  sub do_split_tests {
    my ($package, $test) = @_;