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