t/06-BadConstructor.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use feature ':5.10';
   5
   6 use Test::More tests => 2;
   7 use DataExtract::FixedWidth;
   8
   9 {
  10         eval {
  11                 my $de = DataExtract::FixedWidth->new({
  12                         cols => [qw/foo bar baz/]
  13                 });
  14         };
  15         like ( $@, qr/You must.*header_row/, 'cols only');
  16         undef $@;
  17 }
  18
  19 {
  20         eval {
  21                 my $de = DataExtract::FixedWidth->new;
  22         };
  23         say "bar $@";
  24         like ( $@, qr/You must/, 'nothing only');
  25 }
  26