[p5sagit/p5-mst-13.2.git] / cpan / File-Temp / t / cmp.t

#!perl -w
# Test overloading

use Test::More tests => 3;
use strict;

BEGIN {use_ok( "File::Temp" ); }

my $fh = new File::Temp();
ok( "$fh" ne "foo", "compare stringified object with string");
ok( $fh ne "foo", "compare object with string");
Commit	Line	Data
0dae80a2	1	#!perl -w
	2	# Test overloading
	3
	4	use Test::More tests => 3;
	5	use strict;
	6
	7	BEGIN {use_ok( "File::Temp" ); }
	8
	9	my $fh = new File::Temp();
	10	ok( "$fh" ne "foo", "compare stringified object with string");
	11	ok( $fh ne "foo", "compare object with string");