DB_File/t/db-recno.t

569    my ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
576        print "# Fetch Key   : expected '$fk' got '$fetch_key'\n"
577            if $fetch_key ne $fk ;
588            $fetch_key   eq $fk && $store_key   eq $sk &&
595    $db->filter_fetch_key   (sub { $fetch_key = $_ }) ;
606    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
611    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
618                         (sub { ++ $_ ; $fetch_key = $_ }) ;
626    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
631    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
636    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
647    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
651    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
655    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
665    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
669    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
673    ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;