Add tests for RT #112288

S03-sequence/misc.t

@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 27;
+plan 29;
 
 
 # L<S03/List infix precedence/constraints implied by the signature of the function>
@@ -122,4 +122,12 @@ is (1, { $^n*2 + 1 } ... 31, *+5 ... { $^n**2 > 2000 }, 'a', *~'z' ... { $_.char
     throws_like { 1, 2, 5 ... 10 }, X::Sequence::Deduction, from => '1,2,5'
 }
 
+# RT #112288
+{
+    throws_like { (1, 2, 6 ... *)[5] }, X::Sequence::Deduction, from => '1,2,6',
+        'non-deducible sequence ending in * throws X::Sequence::Deduction (1)';
+    throws_like { ~(1, 2, 6 ... *)[5] }, X::Sequence::Deduction, from => '1,2,6',
+        'non-deducible sequence ending in * throws X::Sequence::Deduction (2)';
+}
+
 # vim: ft=perl6