use Test::More tests => 3;
BEGIN { use_ok('Tie::File::AsHash') };
my %hash;
ok((tie %hash, "Tie::File::AsHash", "t/testfile", split => ":", recsep => "\n"), "tie");
$hash{newkey} = "newval";
ok($hash{newkey} eq "newval", "store");
use Test::More tests => 3;
BEGIN { use_ok('Tie::File::AsHash') };
my %hash;
ok((tie %hash, "Tie::File::AsHash", "t/testfile", split => ":", recsep => "\n"), "tie");
$hash{newkey} = "newval";
ok($hash{newkey} eq "newval", "store");