Added test for RT #116100.

Author: peschwa

S03-operators/precedence.t

@@ -235,4 +235,11 @@ eval_dies_ok '1, 2 Z 3, 4 X 5, 6',
     ok ~$! !~~ '73266', 'and after say is not interpreted as infix:<and>';
 }
 
+# RT #116100
+
+{ 
+    my $s = set; my $e = 5; $s = $s (|) $e;
+    is $s, set.new(5), '(|) has correct precedence.';
+}
+
 # vim: ft=perl6