[p5sagit/p5-mst-13.2.git] / lib / Test / Simple / t / is_fh.t

#!/usr/bin/perl -w

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't';
        @INC = ('../lib', 'lib');
    }
    else {
        unshift @INC, 't/lib';
    }
}

use strict;
use Test::More tests => 8;
use TieOut;

ok( !Test::Builder->_is_fh("foo"), 'string is not a filehandle' );
ok( !Test::Builder->_is_fh(''),    'empty string' );
ok( !Test::Builder->_is_fh(undef), 'undef' );

ok( open(FILE, '>foo') );
END { close FILE; unlink 'foo' }

ok( Test::Builder->_is_fh(*FILE) );
ok( Test::Builder->_is_fh(\*FILE) );
ok( Test::Builder->_is_fh(*FILE{IO}) );

tie *OUT, 'TieOut';
ok( Test::Builder->_is_fh(*OUT) );
Commit	Line	Data
0257f296	1	#!/usr/bin/perl -w
	2
	3	BEGIN {
	4	if( $ENV{PERL_CORE} ) {
	5	chdir 't';
	6	@INC = ('../lib', 'lib');
	7	}
	8	else {
	9	unshift @INC, 't/lib';
	10	}
	11	}
	12
	13	use strict;
5143c659	14	use Test::More tests => 8;
0257f296	15	use TieOut;
0257f296	16
b7f9bbeb	17	ok( !Test::Builder->_is_fh("foo"), 'string is not a filehandle' );
	18	ok( !Test::Builder->_is_fh(''), 'empty string' );
	19	ok( !Test::Builder->_is_fh(undef), 'undef' );
0257f296	20
0257f296	21	ok( open(FILE, '>foo') );
5143c659	22	END { close FILE; unlink 'foo' }
0257f296	23
b7f9bbeb	24	ok( Test::Builder->_is_fh(*FILE) );
	25	ok( Test::Builder->_is_fh(\*FILE) );
	26	ok( Test::Builder->_is_fh(*FILE{IO}) );
0257f296	27
0257f296	28	tie *OUT, 'TieOut';
b7f9bbeb	29	ok( Test::Builder->_is_fh(*OUT) );