source: trunk/essentials/dev-lang/perl/lib/English.t@ 3314

#!./perl -i.inplace
# note the extra switch, for the test below

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

use Test::More tests => 55;

use English qw( -no_match_vars ) ;
use Config;
use Errno;

is( $PID, $$, '$PID' );

$_ = 1;
is( $ARG, $_, '$ARG' );

sub foo {
        is($ARG[0], $_[0], '@ARG' );
}
foo(1);

"abc" =~ /b/;

ok( !$PREMATCH, '$PREMATCH undefined' );
ok( !$MATCH, '$MATCH undefined' );
ok( !$POSTMATCH, '$POSTMATCH undefined' );

$OFS = " ";
$ORS = "\n";

{
        local(*IN, *OUT);
        if ($^O ne 'dos') {
            pipe(IN, OUT);
        } else {
            open(OUT, ">en.tmp");
        }
        select(OUT);
        $| = 1;
        print 'ok', '7';

        # since $| is 1, this should be true
        ok( $OUTPUT_AUTOFLUSH, '$OUTPUT_AUTOFLUSH should be true' );

        my $close = close OUT;
        ok( !($close) == $CHILD_ERROR, '$CHILD_ERROR should be false' );