zyppe/Perl-UnQLite
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed EXISTS

Browse source
This commit is contained in:
Kenichi Ishigaki 2013-07-04 13:40:10 +09:00
parent a94bdc6ca2
commit 879640f4c5
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
t/03_tie.t
View file

@ -31,6 +31,8 @@ my $tmp = tempdir( CLEANUP => 1 );
$hash{delete} = 'delete';
is(delete $hash{delete}, 'delete');
is(delete $hash{delete}, undef);
ok(exists $hash{foo});
ok(!exists $hash{delete});
is(join(" ", sort keys %hash), "foo yay");
is(join(" ", sort values %hash), "baz yappo");