#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Test::Warn;
use Test::Exception;
use Method::Signatures;
plan tests => 4;
subtest 'yada after positional' => sub {
plan tests => 2;
func yada_after_positional ($pos1, $pos2, ...) {
subtest @_ . ' args' => sub {
is $pos1, 'pos1' => '$pos1 okay';
is $pos2, 'pos2' => '$pos2 okay';
done_testing; # for Test::More's before 0.96
};
return 1;
}
yada_after_positional('pos1', 'pos2', 'pos3', named => 'named');
yada_after_positional('pos1', 'pos2', 'pos3', named => 'named', other => 'other');
};
subtest 'yada after named' => sub {
plan tests => 2;
func yada_after_named (:$named1, :$named2, ...) {
subtest @_ . ' args' => sub {
is $named1, 'named1' => '$named1 okay';
is $named2, 'named2' => '$named2 okay';
done_testing; # for Test::More's before 0.96
};
return 1;
}
yada_after_named(named2 => 'named2', named1 => 'named1');
yada_after_named(named2 => 'named2', named1 => 'named1', other => 'other');
};
subtest 'yada after both' => sub {
plan tests => 2;
func yada_after_both ($pos1, $pos2, :$named1, :$named2, ...) {
subtest @_ . ' args' => sub {
is $pos1, 'pos1' => '$pos1 okay';
is $pos2, 'pos2' => '$pos2 okay';
is $named1, 'named1' => '$named1 okay';
is $named2, 'named2' => '$named2 okay';
done_testing; # for Test::More's before 0.96
};
return 1;
}
yada_after_named('pos1', 'pos2', named2 => 'named2', named1 => 'named1');
yada_after_named('pos1', 'pos2', named2 => 'named2', named1 => 'named1', other => 'other');
};
subtest 'non-yada' => sub {
plan tests => 2;
func non_yada ($pos1, $pos2, :$named1, :$named2) {
subtest @_ . ' args' => sub {
is $pos1, 'pos1' => '$pos1 okay';
is $pos2, 'pos2' => '$pos2 okay';
is $named1, 'named1' => '$named1 okay';
is $named2, 'named2' => '$named2 okay';
done_testing; # for Test::More's before 0.96
};
return 1;
}
non_yada('pos1', 'pos2', named2 => 'named2', named1 => 'named1');
ok !eval{ non_yada('pos1', 'pos2', named2 => 'named2', named1 => 'named1', other => 'other') }
=> 'Extra args rejected';
};