1N/A# $RCSfile: dbm.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:43 $ 1N/A chdir 't' if -d 't'; 1N/A $^O eq 'NetWare' || $^O eq 'dos' || 1N/A skip( "different file permission semantics",1) 1N/A ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, 1N/A ok(($mode & 0777) == ($^O eq 'vos' ? 0750 : 0640) , "File permissions"); 1N/Aok(!$i,"Hash created empty");
1N/A$h{
'goner1'} =
'snork';
1N/A$h{
'jkl',
'mno'} =
"JKL\034MNO";
1N/A$h{
'a',
2,
3,
4,
5} =
join("\034",'A',2,3,4,5);
1N/A$h{
'goner2'} =
'snork';
1N/A$h{
'goner3'} =
'snork';
1N/Aok($i == 30,"keys and values match");
1N/A# check cache overflow and numeric keys and contents 1N/Afor ($i = 1; $i < 200; $i++) { $h{$i + 0} = $i + 0; } 1N/Afor ($i = 1; $i < 200; $i++) { $ok = 0 unless $h{$i} == $i; } 1N/Aok($ok, "cache overflow and numeric keys and contents");
1N/A($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, 1N/A@h{
0..
200} =
200..
400;
1N/A # anydbm.t test 12 will fail when AnyDBM_File uses the combination of 1N/A # DB_File and Berkeley DB 2.4.10 (or greater). 1N/A # You are using DB_File $DB_File::VERSION and Berkeley DB $compact 1N/A # Berkeley DB 2 from version 2.4.10 onwards does not allow null keys. 1N/A # This feature returned with version 3.1