1use Test::More tests => 3; 2 3BEGIN { use_ok('Tie::File::AsHash') }; 4 5my %hash; 6 7ok((tie %hash, "Tie::File::AsHash", "t/testfile", split => ":", recsep => "\n"), "tie"); 8 9ok(exists $hash{foo}, "exists"); 10