[perl5.git] / cpan / autodie / t / fileno.t

#!/usr/bin/perl -w
use strict;
use Test::More tests => 8;

# Basic sanity tests.
is(fileno(STDIN), 0, "STDIN fileno looks sane");
is(fileno(STDOUT),1, "STDOUT looks sane");

my $dummy = "foo";

ok(!defined(fileno($dummy)), "Non-filehandles shouldn't be defined.");


my $fileno = eval {
    use autodie qw(fileno);
    fileno(STDIN);
};

is($@,"","fileno(STDIN) shouldn't die");
is($fileno,0,"autodying fileno(STDIN) should be 0");

$fileno = eval {
    use autodie qw(fileno);
    fileno(STDOUT);
};

is($@,"","fileno(STDOUT) shouldn't die");
is($fileno,1,"autodying fileno(STDOUT) should be 1");

$fileno = eval {
    use autodie qw(fileno);
    fileno($dummy);
};

isa_ok($@,"autodie::exception", 'autodying fileno($dummy) should die');
Commit	Line	Data
0b09a93a PF	1	#!/usr/bin/perl -w
	2	use strict;
	3	use Test::More tests => 8;
	4
	5	# Basic sanity tests.
	6	is(fileno(STDIN), 0, "STDIN fileno looks sane");
	7	is(fileno(STDOUT),1, "STDOUT looks sane");
	8
	9	my $dummy = "foo";
	10
	11	ok(!defined(fileno($dummy)), "Non-filehandles shouldn't be defined.");
	12
	13
	14	my $fileno = eval {
	15	use autodie qw(fileno);
	16	fileno(STDIN);
	17	};
	18
	19	is($@,"","fileno(STDIN) shouldn't die");
	20	is($fileno,0,"autodying fileno(STDIN) should be 0");
	21
	22	$fileno = eval {
	23	use autodie qw(fileno);
	24	fileno(STDOUT);
	25	};
	26
	27	is($@,"","fileno(STDOUT) shouldn't die");
	28	is($fileno,1,"autodying fileno(STDOUT) should be 1");
	29
	30	$fileno = eval {
	31	use autodie qw(fileno);
	32	fileno($dummy);
	33	};
	34
	35	isa_ok($@,"autodie::exception", 'autodying fileno($dummy) should die');