Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28142
Modified Files:
basic.t
Log Message:
reverted to 1.29
Index: basic.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/basic.t,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** basic.t 13 Nov 2004 09:30:48 -0000 1.30
--- basic.t 14 Nov 2004 11:30:55 -0000 1.31
***************
*** 3,7 ****
use strict;
use Test;
! BEGIN { plan tests => 85 }
use Module::Build;
ok(1);
--- 3,7 ----
use strict;
use Test;
! BEGIN { plan tests => 49 }
use Module::Build;
ok(1);
***************
*** 158,162 ****
# Test shell emulation stuff
{
! my @words = Module::Build::Base->split_like_shell(q{one t'wo th'ree f"o\"ur " "five" });
ok @words, 4;
ok $words[0], 'one';
--- 158,162 ----
# 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';
***************
*** 174,226 ****
my $win = 'Module::Build::Platform::Windows';
eval "use $win; 1" or die $@;
!
! my @tests = (
! { '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' ] },
! { 'a "\\b\\c" "d\\"e"' => [ 'a', '\b\c', 'd"e' ] },
! );
!
! local $" = ', ';
! foreach my $test ( @tests ) {
! my( $string, $expected ) = %$test;
! my @result = $win->split_like_shell( $string );
! ok array_eq( \@result, $expected );
! }
}
--- 174,182 ----
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';
}
|
