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