[perl5.git] / ext / IO / lib / IO / t / io_const.t


BEGIN {
    unless(grep /blib/, @INC) {
	chdir 't' if -d 't';
	@INC = '../lib';
    }
}

use Config;

BEGIN {
    if(-d "lib" && -f "TEST") {
        if ($Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') {
	    print "1..0\n";
	    exit 0;
        }
    }
}

use IO::Handle;

print "1..6\n";
my $i = 1;
foreach (qw(SEEK_SET SEEK_CUR SEEK_END     _IOFBF    _IOLBF    _IONBF)) {
    my $d1 = defined(&{"IO::Handle::" . $_}) ? 1 : 0;
    my $v1 = $d1 ? &{"IO::Handle::" . $_}() : undef;
    my $v2 = IO::Handle::constant($_);
    my $d2 = defined($v2);

    print "not "
	if($d1 != $d2 || ($d1 && ($v1 != $v2)));
    print "ok ",$i++,"\n";
}
Commit	Line	Data
cf7fe8a2 GS	1
	2	BEGIN {
	3	unless(grep /blib/, @INC) {
	4	chdir 't' if -d 't';
20822f61	5	@INC = '../lib';
cf7fe8a2 GS	6	}
	7	}
	8
	9	use Config;
	10
	11	BEGIN {
	12	if(-d "lib" && -f "TEST") {
	13	if ($Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') {
	14	print "1..0\n";
	15	exit 0;
	16	}
	17	}
	18	}
	19
	20	use IO::Handle;
	21
	22	print "1..6\n";
	23	my $i = 1;
	24	foreach (qw(SEEK_SET SEEK_CUR SEEK_END _IOFBF _IOLBF _IONBF)) {
	25	my $d1 = defined(&{"IO::Handle::" . $_}) ? 1 : 0;
	26	my $v1 = $d1 ? &{"IO::Handle::" . $_}() : undef;
	27	my $v2 = IO::Handle::constant($_);
	28	my $d2 = defined($v2);
	29
	30	print "not "
	31	if($d1 != $d2 \|\| ($d1 && ($v1 != $v2)));
	32	print "ok ",$i++,"\n";
	33	}