Lines Matching refs:reclen
727 my $reclen = 7 ;
728 my $expected_records = int(length($str) / $reclen)
729 + (length($str) % $reclen ? 1 : 0);
730 local $/ = \$reclen;
743 ok $lines[0] eq substr($str, 0, $reclen)
745 ok $lines[1] eq substr($str, $reclen, $reclen);
910 my $reclen = 7 ;
911 my $expected_records = int(length($str) / $reclen)
912 + (length($str) % $reclen ? 1 : 0);
913 local $/ = \$reclen;
926 ok $lines[0] eq substr($str, 0, $reclen)
928 ok $lines[1] eq substr($str, $reclen, $reclen);