use 5.010;
use Test::More tests => 6;
use IO::Detect;
use IO::All;
use IO::Scalar;

my $filename = '/dev/null';

open my $fh, '>', $filename;
my $all = IO::All->new($filename);
my $scalar = IO::Scalar->new(\(my $dummy));

diag "Testing IO::Detect";
ok is_filehandle($fh);
ok is_filehandle($all);
ok is_filehandle($scalar);

diag "Testing fileno";
ok defined fileno($fh);
ok defined fileno($all);
ok defined fileno($scalar);