# vim: set ft=perl :

use Test::More tests => 81;
BEGIN { use_ok('Getargs::Mixed') };

sub foo {
	my ($self, %args) = parameters('main', [ qw(x y z ) ], @_);

	is($self, 'main');
	is($args{x}, 1);
	is($args{y}, 2);
	is($args{z}, 3);
}

main->foo(1, 2, 3);
main->foo(1, 2, -z => 3);
main->foo(1, -y => 2, -z => 3);
main->foo(1, -z => 3, -y => 2);
main->foo(-x => 1, -y => 2, -z => 3);
main->foo(-x => 1, -z => 3, -y => 2);
main->foo(-y => 2, -x => 1, -z => 3);
main->foo(-z => 3, -x => 1, -y => 2);
main->foo(-z => 3, -y => 2, -x => 1);
main->foo(-y => 2, -z => 3, -x => 1);

foo(1, 2, 3);
foo(1, 2, -z => 3);
foo(1, -y => 2, -z => 3);
foo(1, -z => 3, -y => 2);
foo(-x => 1, -y => 2, -z => 3);
foo(-x => 1, -z => 3, -y => 2);
foo(-y => 2, -x => 1, -z => 3);
foo(-z => 3, -x => 1, -y => 2);
foo(-z => 3, -y => 2, -x => 1);
foo(-y => 2, -z => 3, -x => 1);