more tests for adverbed things in ternaries

S03-operators/ternary.t

@@ -4,7 +4,7 @@ use Test;
 
 #Ternary operator ?? !!
 
-plan 22;
+plan 25;
 #L<S03/Changes to Perl 5 operators/"The ? : conditional operator becomes ?? !!">
 
 my $str1 = "aaa";
@@ -77,6 +77,21 @@ throws_like { EVAL '1 ?? 3 :: 2' },
     second-part => "::",
     'conditional operator written as ?? :: throws typed exception';
 
+throws_like { EVAL '1 ?? 3:foo :: 2' },
+    X::Syntax::ConditionalOperator::PrecedenceTooLoose,
+    operator => ":foo",
+    'adverbed literal in second part of ternary';
+
+throws_like { EVAL '1 ?? (3:foo) !! 2' },
+    X::Syntax::Adverb,
+    'parenthesized adverbed literal in second part of ternary';
+
+{
+    my $three = 3;
+    my $thing = 1 ?? $three:foo !! 2;
+    is $three, 3, 'variable and adverb in second part of ternary';
+}
+
 throws_like { EVAL '1 ?? 3 : 2' },
     X::Syntax::ConditionalOperator::SecondPartInvalid,
     second-part => ":",