[Module-build-checkins] Module-Build/t ext.t,1.4,1.5

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

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

Modified Files:
	ext.t 
Log Message:
Add a test for read_args()


Index: ext.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/ext.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** ext.t	6 Dec 2004 03:57:07 -0000	1.4
--- ext.t	6 Dec 2004 04:01:19 -0000	1.5
***************
*** 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;
***************
*** 75,78 ****
--- 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) = @_;