t/checkered.t

   1 #!perl
   2
   3 use Test::More tests => 108;
   4
   5 use warnings FATAL => 'all';
   6 use strict;
   7
   8 use Function::Parameters {
   9         fun => {
  10                 check_argument_count => 1,
  11                 default_arguments => 1,
  12         },
  13
  14         sad => {
  15                 check_argument_count => 0,
  16         },
  17 };
  18
  19 fun error_like($re, $body, $name = undef) {
  20         local $@;
  21         ok !eval { $body->(); 1 };
  22         like $@, $re, $name;
  23 }
  24
  25 fun foo_any { [@_] }
  26 fun foo_any_a(@args) { [@args] }
  27 fun foo_any_b($x = undef, @rest) { [@_] }
  28 fun foo_0() { [@_] }
  29 fun foo_1($x) { [@_] }
  30 fun foo_2($x, $y) { [@_] }
  31 fun foo_3($x, $y, $z) { [@_] }
  32 fun foo_0_1($x = 'D0') { [$x] }
  33 fun foo_0_2($x = 'D0', $y = 'D1') { [$x, $y] }
  34 fun foo_0_3($x = 'D0', $y, $z = 'D2') { [$x, $y, $z] }
  35 fun foo_1_2($x, $y = 'D1') { [$x, $y] }
  36 fun foo_1_3($x, $y = 'D1', $z = 'D2') { [$x, $y, $z] }
  37 fun foo_2_3($x, $y, $z = 'D2') { [$x, $y, $z] }
  38 fun foo_1_($x, @y) { [@_] }
  39
  40 is_deeply foo_any, [];
  41 is_deeply foo_any('a'), ['a'];
  42 is_deeply foo_any('a', 'b'), ['a', 'b'];
  43 is_deeply foo_any('a', 'b', 'c'), ['a', 'b', 'c'];
  44 is_deeply foo_any('a', 'b', 'c', 'd'), ['a', 'b', 'c', 'd'];
  45
  46 is_deeply foo_any_a, [];
  47 is_deeply foo_any_a('a'), ['a'];
  48 is_deeply foo_any_a('a', 'b'), ['a', 'b'];
  49 is_deeply foo_any_a('a', 'b', 'c'), ['a', 'b', 'c'];
  50 is_deeply foo_any_a('a', 'b', 'c', 'd'), ['a', 'b', 'c', 'd'];
  51
  52 is_deeply foo_any_b, [];
  53 is_deeply foo_any_b('a'), ['a'];
  54 is_deeply foo_any_b('a', 'b'), ['a', 'b'];
  55 is_deeply foo_any_b('a', 'b', 'c'), ['a', 'b', 'c'];
  56 is_deeply foo_any_b('a', 'b', 'c', 'd'), ['a', 'b', 'c', 'd'];
  57
  58 is_deeply foo_0, [];
  59 error_like qr/Too many arguments.*foo_0/, fun { foo_0 'a' };
  60 error_like qr/Too many arguments.*foo_0/, fun { foo_0 'a', 'b' };
  61 error_like qr/Too many arguments.*foo_0/, fun { foo_0 'a', 'b', 'c' };
  62 error_like qr/Too many arguments.*foo_0/, fun { foo_0 'a', 'b', 'c', 'd' };
  63
  64 error_like qr/Not enough arguments.*foo_1/, fun { foo_1 };
  65 is_deeply foo_1('a'), ['a'];
  66 error_like qr/Too many arguments.*foo_1/, fun { foo_1 'a', 'b' };
  67 error_like qr/Too many arguments.*foo_1/, fun { foo_1 'a', 'b', 'c' };
  68 error_like qr/Too many arguments.*foo_1/, fun { foo_1 'a', 'b', 'c', 'd' };
  69
  70 error_like qr/Not enough arguments.*foo_2/, fun { foo_2 };
  71 error_like qr/Not enough arguments.*foo_2/, fun { foo_2 'a' };
  72 is_deeply foo_2('a', 'b'), ['a', 'b'];
  73 error_like qr/Too many arguments.*foo_2/, fun { foo_2 'a', 'b', 'c' };
  74 error_like qr/Too many arguments.*foo_2/, fun { foo_2 'a', 'b', 'c', 'd' };
  75
  76 error_like qr/Not enough arguments.*foo_3/, fun { foo_3 };
  77 error_like qr/Not enough arguments.*foo_3/, fun { foo_3 'a' };
  78 error_like qr/Not enough arguments.*foo_3/, fun { foo_3 'a', 'b' };
  79 is_deeply foo_3('a', 'b', 'c'), ['a', 'b', 'c'];
  80 error_like qr/Too many arguments.*foo_3/, fun { foo_3 'a', 'b', 'c', 'd' };
  81
  82 is_deeply foo_0_1, ['D0'];
  83 is_deeply foo_0_1('a'), ['a'];
  84 error_like qr/Too many arguments.*foo_0_1/, fun { foo_0_1 'a', 'b' };
  85 error_like qr/Too many arguments.*foo_0_1/, fun { foo_0_1 'a', 'b', 'c' };
  86 error_like qr/Too many arguments.*foo_0_1/, fun { foo_0_1 'a', 'b', 'c', 'd' };
  87
  88 is_deeply foo_0_2, ['D0', 'D1'];
  89 is_deeply foo_0_2('a'), ['a', 'D1'];
  90 is_deeply foo_0_2('a', 'b'), ['a', 'b'];
  91 error_like qr/Too many arguments.*foo_0_2/, fun { foo_0_2 'a', 'b', 'c' };
  92 error_like qr/Too many arguments.*foo_0_2/, fun { foo_0_2 'a', 'b', 'c', 'd' };
  93
  94 is_deeply foo_0_3, ['D0', undef, 'D2'];
  95 is_deeply foo_0_3('a'), ['a', undef, 'D2'];
  96 is_deeply foo_0_3('a', 'b'), ['a', 'b', 'D2'];
  97 is_deeply foo_0_3('a', 'b', 'c'), ['a', 'b', 'c'];
  98 error_like qr/Too many arguments.*foo_0_3/, fun { foo_0_3 'a', 'b', 'c', 'd' };
  99
 100 error_like qr/Not enough arguments.*foo_1_2/, fun { foo_1_2 };
 101 is_deeply foo_1_2('a'), ['a', 'D1'];
 102 is_deeply foo_1_2('a', 'b'), ['a', 'b'];
 103 error_like qr/Too many arguments.*foo_1_2/, fun { foo_1_2 'a', 'b', 'c' };
 104 error_like qr/Too many arguments.*foo_1_2/, fun { foo_1_2 'a', 'b', 'c', 'd' };
 105
 106 error_like qr/Not enough arguments.*foo_1_3/, fun { foo_1_3 };
 107 is_deeply foo_1_3('a'), ['a', 'D1', 'D2'];
 108 is_deeply foo_1_3('a', 'b'), ['a', 'b', 'D2'];
 109 is_deeply foo_1_3('a', 'b', 'c'), ['a', 'b', 'c'];
 110 error_like qr/Too many arguments.*foo_1_3/, fun { foo_1_3 'a', 'b', 'c', 'd' };
 111
 112 error_like qr/Not enough arguments.*foo_2_3/, fun { foo_2_3 };
 113 error_like qr/Not enough arguments.*foo_2_3/, fun { foo_2_3 'a' };
 114 is_deeply foo_2_3('a', 'b'), ['a', 'b', 'D2'];
 115 is_deeply foo_2_3('a', 'b', 'c'), ['a', 'b', 'c'];
 116 error_like qr/Too many arguments.*foo_2_3/, fun { foo_2_3 'a', 'b', 'c', 'd' };
 117
 118 error_like qr/Not enough arguments.*foo_1_/, fun { foo_1_ };
 119 is_deeply foo_1_('a'), ['a'];
 120 is_deeply foo_1_('a', 'b'), ['a', 'b'];
 121 is_deeply foo_1_('a', 'b', 'c'), ['a', 'b', 'c'];
 122 is_deeply foo_1_('a', 'b', 'c', 'd'), ['a', 'b', 'c', 'd'];
 123
 124
 125 sad puppy($eyes) { [@_] }
 126 sad frog($will, $never) { $will * 3 + (pop) - $never }
 127
 128 is_deeply puppy, [];
 129 is_deeply puppy('a'), ['a'];
 130 is_deeply puppy('a', 'b'), ['a', 'b'];
 131 is_deeply puppy('a', 'b', 'c'), ['a', 'b', 'c'];
 132 is_deeply puppy('a', 'b', 'c', 'd'), ['a', 'b', 'c', 'd'];
 133
 134 is frog(7, 4, 1), 18;
 135 is frog(7, 4), 21;