Add another test for constants and circumfix.

S06-operator-overloading/sub.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 88;
+plan 90;
 
 =begin pod
 
@@ -506,13 +506,17 @@ Testing operator overloading subroutines
     lives-ok { constant $x = "µ, @"; sub circumfix:<<$x>>($) { 42 } },
         'can define circumfix using << >> and both delimiters from the same constant';
     my $test = EVAL 'constant $x = "µ, @"; sub circumfix:<<$x>>($) { 42 }; µ 5 @';
-    is $test, 42, 'can define and use circumfix using << >> and both delimiters from the same constant';
+    is $test, 42, 'can define and use circumfix using << >> and both delimiters from the same constant (1)';
+
+    lives-ok { constant $x = "µµ, @@"; sub circumfix:<<$x>>($) { 42 } },
+        'can define circumfix using << >> and both delimiters from the same constant';
+    my $test = EVAL 'constant $x = "µµ, @@"; sub circumfix:<<$x>>($) { 42 }; µµ 5 @@';
+    is $test, 42, 'can define and use circumfix using << >> and both delimiters from the same constant (2)';
 
     lives-ok { constant sym = "µ, @"; sub circumfix:<< {sym} >>($) { 42 } },
         'can define circumfix using << {sym} >> and both delimiters from the same constant';
        $test = EVAL 'constant sym = "µ, @"; sub circumfix:<< {sym} >>($) { 42 }; µ 5 @';
     is $test, 42, 'can define and use circumfix using << >> and both delimiters from the same constant'
-
 }
 
 # vim: ft=perl6