t/13-RightAlignFirstCol.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use feature ':5.10';
   5
   6 use DataExtract::FixedWidth;
   7 use IO::File;
   8
   9 use Test::More tests => 1;
  10
  11 use File::Spec;
  12 my $file = File::Spec->catfile( 't', 'data', 'RightAlign1Col.txt' );
  13 my $fh = IO::File->new( $file );
  14 my @lines = grep /\w/, $fh->getlines;
  15
  16 my $defw = DataExtract::FixedWidth->new({
  17         heuristic => \@lines
  18 });
  19
  20 # 'a8a5a7a7A*' In pre v0.9 releases.
  21 #say $defw->unpack_string;
  22
  23 is (
  24         $defw->unpack_string
  25         , 'a11a5a7a7A*'
  26         , 'Spaces on left pass - right align ready'
  27 );