fixup more unit tests inspired by remaining comments in PPC0024

Author: leonerd

t/class/method.t

@@ -26,15 +26,19 @@ no warnings 'experimental::class';
     # Turn off the 'signatures' feature to prove that 'method' is always
     # signatured even without it
     no feature 'signatures';
+    no warnings 'experimental::signature_named_parameters';
 
     class Testcase2 {
         method retfirst ( $x = 123 ) { return $x; }
+        method retnamed ( :$named = 456 ) { return $named; }
     }
 
     my $obj = Testcase2->new;
     is($obj->retfirst,      123, 'method signature params work');
     is($obj->retfirst(456), 456, 'method signature params skip $self');
 
+    is($obj->retnamed(named => 789), 789, 'method signature supports named parameters');
+
     # argument counts take account of implicit $self
     my $e = eval { $obj->retfirst(1, 2) } ? undef : $@;
     like($e, qr/^Too many arguments for subroutine 'Testcase2::retfirst' \(got 3; expected at most 2\) /,

t/op/signatures.t

@@ -933,6 +933,8 @@ like $@, qr/^Missing required named parameter 'beta' to subroutine 'main::tnamed
 is eval("tnamed01(alpha => 1, beta => 2, gamma => 3)"), undef;
 like $@, qr/^Unrecognized named parameter 'gamma' to subroutine 'main::tnamed01' at /;
 is eval("tnamed01(alpha => 1, beta => 2, beta => 3, beta => 4)"), "alpha=1 beta=4";
+is eval("tnamed01(alpha => 'first', beta => 456, alpha => 'second')"), "alpha=second beta=456",
+    "last value wins";
 
 sub tnamed02 (:$alpha = "A", :$beta = "B") { "alpha=$alpha beta=$beta"; }
 is prototype(\&tnamed02), undef;