@INC = '../lib';
}
-use Test::More tests => 54;
+use Test::More tests => 55;
use English qw( -no_match_vars ) ;
use Config;
{
local(*IN, *OUT);
- pipe(IN, OUT);
+ if ($^O ne 'dos') {
+ pipe(IN, OUT);
+ } else {
+ open(OUT, ">en.tmp");
+ }
select(OUT);
$| = 1;
print 'ok', '7';
my $close = close OUT;
ok( !($close) == $CHILD_ERROR, '$CHILD_ERROR should be false' );
+ open(IN, "<en.tmp") if ($^O eq 'dos');
my $foo = <IN>;
like( $foo, qr/ok 7/, '$OFS' );
is( $UID, $<, '$UID' );
is( $GID, $(, '$GID' );
-is( $EUID, $>, '$EUID' );
+is( $EUID, $>, '$EUID' );
is( $EGID, $), '$EGID' );
is( $PROGRAM_NAME, $0, '$PROGRAM_NAME' );
is( $DEBUGGING, $^D, '$DEBUGGING' );
is( $WARNING, 0, '$WARNING' );
-like( $EXECUTABLE_NAME, qr/perl/, '$EXECUTABLE_NAME' );
+like( $EXECUTABLE_NAME, qr/perl/i, '$EXECUTABLE_NAME' );
is( $OSNAME, $Config{osname}, '$OSNAME' );
# may be non-portable
my %hash;
$SUBSCRIPT_SEPARATOR = '|';
-$hash{1,2,3} = 1;
+$hash{d,e,f} = 1;
$SUBSEP = ',';
$hash{'a', 'b', 'c'} = 1;
my @keys = sort keys %hash;
-is( $keys[0], '1|2|3', '$SUBSCRIPT_SEPARATOR' );
-is( $keys[1], 'a,b,c', '$SUBSCRIPT_SEPARATOR' );
+is( $keys[0], 'a,b,c', '$SUBSCRIPT_SEPARATOR' );
+is( $keys[1], 'd|e|f', '$SUBSCRIPT_SEPARATOR' );
eval { is( $EXCEPTIONS_BEING_CAUGHT, 1, '$EXCEPTIONS_BEING_CAUGHT' ) };
ok( !$EXCEPTIONS_BEING_CAUGHT, '$EXCEPTIONS_BEING_CAUGHT should be false' );
-eval { open('') };
+eval { local *F; my $f = 'asdasdasd'; ++$f while -e $f; open(F, $f); };
is( $OS_ERROR, $ERRNO, '$OS_ERROR' );
ok( $OS_ERROR{ENOENT}, '%OS_ERROR (ENOENT should be set)' );
main::is( $MATCH, 'b', '$MATCH defined' );
main::is( $POSTMATCH, 'c', '$POSTMATCH defined' );
+{
+ my $s = "xyz";
+ $s =~ s/y/t$MATCH/;
+ main::is( $s, "xtyz", '$MATCH defined in right side of s///' );
+}
+
package C;
use English qw( -no_match_vars ) ;