t/default_import.t

   1 use strict;
   2 use warnings;
   3
   4 use lib 't/lib';
   5
   6 use DefaultImportLogger;
   7 use Test::More qw(no_plan);
   8
   9 my @levels = qw(lol wut zomg);
  10
  11 VANILLA: {
  12    for (@levels) {
  13       main->can("log_$_")->(sub { 'fiSMBoC' });
  14       is( $DumbLogger2::var, "[$_] fiSMBoC\n", "$_ works");
  15
  16       my @vars = main->can("log_$_")->(sub { 'fiSMBoC: ' . $_[1] }, qw{foo bar baz});
  17       is( $DumbLogger2::var, "[$_] fiSMBoC: bar\n", "log_$_ works with input");
  18       ok( eq_array(\@vars, [qw{foo bar baz}]), "log_$_ passes data through correctly");
  19
  20       my $val = main->can("logS_$_")->(sub { 'fiSMBoC: ' . $_[0] }, 'foo');
  21       is( $DumbLogger2::var, "[$_] fiSMBoC: foo\n", "logS_$_ works with input");
  22       is( $val, 'foo', "logS_$_ passes data through correctly");
  23    }
  24 }
  25