cmp.t

source of perl for linux application,

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