1#!./perl
2
3use strict;
4use warnings;
5
6my @subs;
7BEGIN { @subs = qw(reduce first none all any notall pairfirst pairgrep pairmap) };
8use List::Util @subs;
9use Test::More;
10plan tests => @subs * 2;
11
12for my $sub (@subs) {
13    eval { no strict 'refs';  no warnings 'uninitialized'; &{$sub}(undef, 1, 2) };
14    like($@, qr{^Not a subroutine reference}, "$sub(undef, ...) croaks");
15
16    eval { no strict 'refs'; &{$sub}(\&undefined, 1, 2) };
17    like($@, qr{^Undefined subroutine in $sub}, "$sub(\&undefined, ...) croaks");
18}
19