summaryrefslogtreecommitdiff
path: root/ext/autodie/t/fileno.t
diff options
context:
space:
mode:
Diffstat (limited to 'ext/autodie/t/fileno.t')
-rwxr-xr-xext/autodie/t/fileno.t35
1 files changed, 0 insertions, 35 deletions
diff --git a/ext/autodie/t/fileno.t b/ext/autodie/t/fileno.t
deleted file mode 100755
index 2b9c2598e7..0000000000
--- a/ext/autodie/t/fileno.t
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/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');