t/06-BadConstructor.t

   1 #!/usr/bin/env perl
   2 ## Example from http://en.wikipedia.org/w/index.php?title=Flat_file_database&oldid=209112999
   3 ## Default options with column header name deduction
   4 use strict;
   5 use warnings;
   6
   7 use feature ':5.10';
   8
   9 use Test::More tests => 2;
  10 use DataExtract::FixedWidth;
  11
  12 {
  13         eval {
  14                 my $de = DataExtract::FixedWidth->new({
  15                         cols => [qw/foo bar baz/]
  16                 });
  17         };
  18         like ( $@, qr/You must.*header_row/, 'cols only');
  19         undef $@;
  20 }
  21
  22 {
  23         eval {
  24                 my $de = DataExtract::FixedWidth->new;
  25         };
  26         say "bar $@";
  27         like ( $@, qr/You must/, 'nothing only');
  28 }
  29