7 ## In version .06 this test failed
8 ## I got the longer a19a9a14a13a5A* instead of a19a9a14a13A*
9 ## This was because the length for the heuristic was set statically to the
10 ## first row rather than the longest row
13 use DataExtract
::FixedWidth
;
16 use Test
::More tests
=> 1;
19 my $file = File
::Spec
->catfile( 't', 'data', 'larochenew.TXT' );
20 my $fh = IO
::File
->new( $file );
21 my @lines = grep /\w/, $fh->getlines;
23 my $defw = DataExtract
::FixedWidth
->new({
25 , cols
=> [ qw
/vin stock color price miles/ ]
29 is
( $defw->unpack_string, 'a19a9a14a13A*', 'Heuristic not affected by being short' );