ok(! eval { test_foo(a=>2) ; 1}, 'test_foo() should fail for a=2');
is($@, 'invalid argument', 'expected error');