use strict;
use lib qw(./lib ./t/lib);
my $err;
BEGIN {
eval "use UtilExporterSimple qw/:all/;";
$err = $@;
}
use strict;
use Test::More qw/no_plan/;
SKIP: {
skip $err if $err;
ok(defined &first, 'defined first');
ok(defined &min, 'defined min');
ok(defined &minstr, 'defined minstr');
ok(defined &hello, 'defined hello - why defined?');
ok(!defined &askme, 'not defined askme');
ok(!defined &hi, 'not defined hi');
is((first { defined $_} ("abc","def", "ghi")), "abc", "first");
is(min(20, 50, 10), 10, "min");
is(hello(), "hello there", 'hello');
}