cpan/autodie/t/fileno.t

   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');