Lines Matching refs:rec_len
51 my $rec_len = 10 ;
56 -Len => $rec_len,
65 ok $value eq fillout("some value", $rec_len, $pad) ;
68 ok $value eq fillout("value", $rec_len, $pad) ;
71 ok $value eq fillout("value", $rec_len, $pad) ;
94 ok $value eq fillout("some value", $rec_len, $pad) ;
106 my $rec_len = 11 ;
114 -Len => $rec_len;
120 ok $value eq fillout("some value", $rec_len) ;
132 my $rec_len = 5 ;
136 -Len => $rec_len;
163 if ( fillout($copy{$k}, $rec_len) eq $v )
181 if ( fillout($copy{$k}, $rec_len) eq $v )
200 my $rec_len = 10 ;
204 -Len => $rec_len;
222 ok $array[1] eq fillout("some value", $rec_len);
255 ok $array[0] eq fillout("red", $rec_len) ;
258 ok $v eq fillout("red", $rec_len) ;
259 ok $array[1] eq fillout("green", $rec_len) ;
262 ok $v eq fillout("green", $rec_len) ;
263 ok $array[2] eq fillout("blue", $rec_len) ;
266 ok $v eq fillout("blue", $rec_len) ;
273 ok (($FA ? shift @array : $db->shift()) eq fillout("red", $rec_len)) ;
274 ok (($FA ? shift @array : $db->shift()) eq fillout("green", $rec_len)) ;
275 ok (($FA ? shift @array : $db->shift()) eq fillout("blue", $rec_len)) ;
283 ok $v eq fillout("end", $rec_len) ;
286 ok $v eq fillout("the", $rec_len) ;
292 ok (( $FA ? pop @array : $db->pop ) eq fillout("end", $rec_len)) ;
293 ok (( $FA ? pop @array : $db->pop ) eq fillout("the", $rec_len)) ;
312 my $rec_len = 15 ;
314 -Len => $rec_len;
318 ok $value eq fillout("some value", $rec_len) ;
328 my $rec_len = 8 ;
331 -Len => $rec_len,
371 ok $db->db_get(1, $value) == 0 && $value eq fillout("boat", $rec_len) ;
372 ok $db->db_get(2, $value) == 0 && $value eq fillout("house", $rec_len) ;
373 ok $db->db_get(3, $value) == 0 && $value eq fillout("sea", $rec_len) ;
387 ok $db->db_get(1, $value) == 0 && $value eq fillout("boat", $rec_len) ;
388 ok $db->db_get(2, $value) == 0 && $value eq fillout("ABuse", $rec_len) ;
389 ok $db->db_get(3, $value) == 0 && $value eq fillout("XYa", $rec_len) ;
390 ok $db->db_get(4, $value) == 0 && $value eq fillout("KL", $rec_len) ;
403 ok $db->db_get(1, $value) == 0 && $value eq fillout("boaPP", $rec_len) ;
404 ok $db->db_get(2, $value) == 0 && $value eq fillout("ABuse",$rec_len) ;
405 ok $db->db_get(3, $value) == 0 && $value eq fillout("XYaXY", $rec_len) ;
406 ok $db->db_get(4, $value) == 0 && $value eq fillout("KL TU", $rec_len) ;
416 my $rec_len = 8 ;
419 -Len => $rec_len,
453 ok $array[1] eq fillout("boat", $rec_len) ;
454 ok $array[2] eq fillout("house", $rec_len) ;
455 ok $array[3] eq fillout("sea", $rec_len) ;
469 ok $array[1] eq fillout("boat", $rec_len) ;
470 ok $array[2] eq fillout("ABuse", $rec_len) ;
471 ok $array[3] eq fillout("XYa", $rec_len) ;
472 ok $array[4] eq fillout("KL", $rec_len) ;
486 ok $array[1] eq fillout("boaPP", $rec_len) ;
487 ok $array[2] eq fillout("ABuse", $rec_len) ;
488 ok $array[3] eq fillout("XYaXY", $rec_len) ;
489 ok $array[4] eq fillout("KL TU", $rec_len) ;
501 my $rec_len = 9 ;
512 -Len => $rec_len,
573 my $rec_len = 7 ;
577 -Len => $rec_len,
654 my $rec_len = 34 ;
659 -Len => $rec_len,
695 my $rec_len = 21 ;
699 -Len => $rec_len,
709 ok $array[4] eq fillout("fred", $rec_len) ;
720 my $rec_len = 21 ;
724 -Len => $rec_len,
730 ok (($FA ? pop @array : $db->pop()) eq fillout("first", $rec_len)) ;
743 my $rec_len = 10 ;
755 -Len => $rec_len;
777 ok $array[1] eq fillout("some value", $rec_len);
810 ok $array[0] eq fillout("red", $rec_len) ;
813 ok $v eq fillout("red", $rec_len) ;
814 ok $array[1] eq fillout("green", $rec_len) ;
817 ok $v eq fillout("green", $rec_len) ;
818 ok $array[2] eq fillout("blue", $rec_len) ;
821 ok $v eq fillout("blue", $rec_len) ;
828 ok (($FA ? shift @array : $db->shift()) eq fillout("red", $rec_len)) ;
829 ok (($FA ? shift @array : $db->shift()) eq fillout("green", $rec_len)) ;
830 ok (($FA ? shift @array : $db->shift()) eq fillout("blue", $rec_len)) ;
838 ok $v eq fillout("end", $rec_len) ;
841 ok $v eq fillout("the", $rec_len) ;
847 ok (( $FA ? pop @array : $db->pop ) eq fillout("end", $rec_len)) ;
848 ok (( $FA ? pop @array : $db->pop ) eq fillout("the", $rec_len)) ;