[Module-build-checkins] Module-Build/t ext.t,1.1,1.2 basic.t,1.31,1.32

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

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

Modified Files:
	basic.t 
Added Files:
	ext.t 
Log Message:
integrate split_like_shell() changes from bugfix branch

Index: basic.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/basic.t,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** basic.t	14 Nov 2004 11:30:55 -0000	1.31
--- basic.t	15 Nov 2004 02:56:28 -0000	1.32
***************
*** 3,7 ****
  use strict;
  use Test;
! BEGIN { plan tests => 49 }
  use Module::Build;
  ok(1);
--- 3,7 ----
  use strict;
  use Test;
! BEGIN { plan tests => 37 }
  use Module::Build;
  ok(1);
***************
*** 155,182 ****
    ok $build->dist_author->[0], 'Foo Meister <fo...@ex...>';
  }
- 
- # Test shell emulation stuff
- {
-   my @words = Module::Build->split_like_shell(q{one t'wo th'ree f"o\"ur " "five" });
-   ok @words, 4;
-   ok $words[0], 'one';
-   ok $words[1], 'two three';
-   ok $words[2], 'fo"ur ';
-   ok $words[3], 'five';
- 
-   # Test whitespace handling
-   @words = Module::Build->split_like_shell(q{ foo bar });
-   ok @words, 2;
-   ok $words[0], 'foo';
-   ok $words[1], 'bar';
- 
-   # Test some Win32-specific stuff
-   my $win = 'Module::Build::Platform::Windows';
-   eval "use $win; 1" or die $@;
-   
-   @words = $win->split_like_shell(q{foo "\bar\baz" "b\"nai"});
-   ok @words, 3;
-   ok $words[0], 'foo';
-   ok $words[1], '\bar\baz';
-   ok $words[2], 'b"nai';
- }
--- 155,156 ----

--- NEW FILE: ext.t ---

use strict;
use Test;

my @unix_splits = 
  (
   { q{one t'wo th'ree f"o\"ur " "five" } => [ 'one', 'two three', 'fo"ur ', 'five' ] },
   { q{ foo bar }                         => [ 'foo', 'bar'                         ] },
  );

my @win_splits = 
  (
   { 'a" "b\\c" "d'         => [ 'a b\c d'       ] },
   { '"a b\\c d"'           => [ 'a b\c d'       ] },
   { '"a b"\\"c d"'         => [ 'a b"c', 'd'    ] },
   { '"a b"\\\\"c d"'       => [ 'a b\c d'       ] },
   { '"a"\\"b" "a\\"b"'     => [ 'a"b a"b'       ] },
   { '"a"\\\\"b" "a\\\\"b"' => [ 'a\b', 'a\b'    ] },
   { '"a"\\"b a\\"b"'       => [ 'a"b', 'a"b'    ] },
   { 'a"\\"b" "a\\"b'       => [ 'a"b', 'a"b'    ] },
   { 'a"\\"b"  "a\\"b'      => [ 'a"b', 'a"b'    ] },
   { 'a           b'        => [ 'a', 'b'        ] },
   { 'a"\\"b a\\"b'         => [ 'a"b a"b'       ] },
   { '"a""b" "a"b"'         => [ 'a"b ab'        ] },
   { '\\"a\\"'              => [ '"a"'           ] },
   { '"a"" "b"'             => [ 'a"', 'b'       ] },
   { 'a"b'                  => [ 'ab'            ] },
   { 'a""b'                 => [ 'ab'            ] },
   { 'a"""b'                => [ 'a"b'           ] },
   { 'a""""b'               => [ 'a"b'           ] },
   { 'a"""""b'              => [ 'a"b'           ] },
   { 'a""""""b'             => [ 'a""b'          ] },
   { '"a"b"'                => [ 'ab'            ] },
   { '"a""b"'               => [ 'a"b'           ] },
   { '"a"""b"'              => [ 'a"b'           ] },
   { '"a""""b"'             => [ 'a"b'           ] },
   { '"a"""""b"'            => [ 'a""b'          ] },
   { '"a""""""b"'           => [ 'a""b'          ] },
   { ''                     => [                 ] },
   { ' '                    => [                 ] },
   { '""'                   => [ ''              ] },
   { '" "'                  => [ ' '             ] },
   { '""a'                  => [ 'a'             ] },
   { '""a b'                => [ 'a', 'b'        ] },
   { 'a""'                  => [ 'a'             ] },
   { 'a"" b'                => [ 'a', 'b'        ] },
   { '"" a'                 => [ '', 'a'         ] },
   { 'a ""'                 => [ 'a', ''         ] },
   { 'a "" b'               => [ 'a', '', 'b'    ] },
   { 'a " " b'              => [ 'a', ' ', 'b'   ] },
   { 'a " b " c'            => [ 'a', ' b ', 'c' ] },
);

plan tests => 1 + 2*@unix_splits + 2*@win_splits;

use Module::Build;
ok(1);


use Module::Build::Platform::Unix;
foreach my $test (@unix_splits) {
  do_split_tests('Module::Build::Platform::Unix', $test);
}

use Module::Build::Platform::Windows;
foreach my $test (@win_splits) {
  do_split_tests('Module::Build::Platform::Windows', $test);
}

sub do_split_tests {
  my ($package, $test) = @_;

  my ($string, $expected) = %$test;
  my @result = $package->split_like_shell($string);
  ok( grep( {!defined()} @result ), # all defined
      0,
      "'$string' result all defined" );
  ok( join(' ', map "{$_}", @result),
      join(' ', map "{$_}", @$expected),
      join(' ', map "{$_}", @$expected) );
}