ok( 1,
'Module loading'
);
my
$p
=
'SVN::Dumpfile'
;
ok(
$p
->_is_valid_fh(
*STDIN
) );
ok(
$p
->_is_valid_fh(\
*STDIN
) );
ok(
$p
->_is_valid_fh(new IO::Handle) );
ok(
$p
->_is_valid_fh(STDIN) );
ok(
$p
->_is_valid_fh(
'STDIN'
) );
ok( !
$p
->_is_valid_fh(
'file name'
) );
ok( !
$p
->_is_valid_fh( {
hash
=>
'ref'
} ) );
ok( !
$p
->_is_valid_fh( [
'array'
,
'ref'
] ) );
ok( !
$p
->_is_valid_fh(
sub
{
shift
() + 1 } ) );
ok( !
$p
->_is_valid_fh(
do
{
my
$s
; \
$s
} ) );
ok(
$p
->_is_stdin() );
ok(
$p
->_is_stdin(
''
) );
ok(
$p
->_is_stdin(
undef
) );
ok(
$p
->_is_stdin(
'-'
) );
ok(
$p
->_is_stdin(
'STDIN'
) );
ok( !
$p
->_is_stdin(
'filename'
) );
ok(
$p
->_is_stdout() );
ok(
$p
->_is_stdout(
''
) );
ok(
$p
->_is_stdout(
undef
) );
ok(
$p
->_is_stdout(
'-'
) );
ok(
$p
->_is_stdout(
'STDOUT'
) );
ok( !
$p
->_is_stdout(
'filename'
) );