ext/File-Temp/t/cmp.t

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