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

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

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

Modified Files:
	ext.t 
Log Message:
Integrate from branch


Index: ext.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/ext.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ext.t	28 Nov 2004 02:27:42 -0000	1.3
--- ext.t	6 Dec 2004 03:57:07 -0000	1.4
***************
*** 52,60 ****
  );
  
! plan tests => 1 + 2*@unix_splits + 2*@win_splits;
  
  use Module::Build;
  ok(1);
  
  
  use Module::Build::Platform::Unix;
--- 52,67 ----
  );
  
! 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;