Add test for RT #118875

Author: usev6

S06-other/misc.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 5;
+plan 6;
 
 #not really much of a test (no links to the spec either). Please improve, I only wrote what was required! --lue
 
@@ -13,5 +13,15 @@ eval_dies_ok 'pi("wtz")',"pi should not be defined to accept arguments either :)
 dies_ok { EVAL('a(3)') }, "this should die, no arguments defined";
 
 # RT #76096
-lives_ok {  sub foo($ where 1 --> Int) { return 42 } }, "where clause combined with --> works";
-lives_ok {  sub foo($ where 1, $y  --> Int) { return 42 } }, "where clause combined with --> works";
+{
+    lives_ok {  sub foo($ where 1 --> Int) { return 42 } },
+        "where clause combined with --> works";
+    lives_ok {  sub foo($ where 1, $y  --> Int) { return 42 } },
+        "where clause combined with --> works";
+}
+
+# RT #118875
+{
+    lives_ok { sub ndr($r where ($r ||= 10) > 0 && 1) { } },
+        'where clause followed by (non-parenthesized) expression with "&&" in it does parse';
+}