test difference betwen nonassoc and nonlistassoc

also, check precedence level of structural infix

Author: TimToady

S03-operators/precedence.t

@@ -13,7 +13,7 @@ proper separation of the two levels.
 
 =end pod
 
-plan 65;
+plan 69;
 
 
 # terms
@@ -81,10 +81,10 @@ ok(?(!(1 & 2 ^ 4) != 3), "blah blah blah");
 
 { # test that | and ^ are on the same level but parsefail
     throws-like 'my Mu $a = (1 | 2 ^ 3)',
-        X::Syntax::NonAssociative,
+        X::Syntax::NonListAssociative,
         '| and ^ may not associate';
     throws-like 'my Mu $a = (1 ^ 2 | 3)',
-        X::Syntax::NonAssociative,
+        X::Syntax::NonListAssociative,
         '^ and | may not associate';
 };
 
@@ -99,6 +99,18 @@ ok(?(!(1 & 2 ^ 4) != 3), "blah blah blah");
 
 ok(0 < 2 <=> 1 < 2, "0 < 2 <=> 1 < 2 means 0 < 1 < 2");
 
+# structural infix
+
+is (1 | 3 <=> 2).gist, 'any(Less, More)', '<=> binds looser than |';
+is (1 == 3 <=> 2).gist, 'True', '<=> binds tighter than ==';
+throws-like '1 .. 2 .. 3',
+    X::Syntax::NonAssociative,
+    'identical .. is not associative';
+throws-like '1 <=> 2 leg 3',
+    X::Syntax::NonAssociative,
+    '<=> and leg are not associative';
+
+
 # chaining
 
 is((0 != 1 && "foo"), "foo", "!= binds tighter than &&");
@@ -164,10 +176,10 @@ is(((not 1,42)[1]), 42, "not is tighter than comma");
 # RT #77848
 {
     throws-like '4 X+> 1...2',
-         X::Syntax::NonAssociative,
+         X::Syntax::NonListAssociative,
         'X+> must not associate with ...';
     throws-like q['08:12:23'.split(':') Z* 60 X** reverse ^3],
-        X::Syntax::NonAssociative,
+        X::Syntax::NonListAssociative,
         'Z* and X** are non associative';
 }
 
@@ -221,7 +233,7 @@ ok ((1 => 2 => 3).value ~~ Pair), '=> is right-assoc (2)';
 # L<S03/Operator precedence/only works between identical operators>
 
 throws-like '1, 2 Z 3, 4 X 5, 6',
-    X::Syntax::NonAssociative,
+    X::Syntax::NonListAssociative,
     'list associativity only works between identical operators';
 
 #?niecza skip 'assigning to readonly value'