module-build-checkins

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

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

Modified Files:
      Tag: release-0_26_branch
	ext.t 
Log Message:
Make sure split_like_shell() always handles arrayrefs properly

Index: ext.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/ext.t,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -d -r1.1.2.1 -r1.1.2.2
*** ext.t	13 Nov 2004 15:07:10 -0000	1.1.2.1
--- ext.t	17 Nov 2004 16:16:54 -0000	1.1.2.2
***************
*** 52,60 ****
  );
  
! plan tests => 1 + 2*@unix_splits + 2*@win_splits;
  
  use Module::Build;
  ok(1);
  
  
  use Module::Build::Platform::Unix;
--- 52,68 ----
  );
  
! plan tests => 7 + 2*@unix_splits + 2*@win_splits;
  
  use Module::Build;
  ok(1);
  
+ # Should always return an array unscathed
+ foreach my $platform ('', '::Platform::Unix', '::Platform::Windows') {
+   my $pkg = "Module::Build$platform";
+   my @result = $pkg->split_like_shell(['foo', 'bar', 'baz']);
+   ok @result, 3, "Split using $pkg";
+   ok "@result", "foo bar baz", "Split using $pkg";
+ }
+ 
  
  use Module::Build::Platform::Unix;