Tests for say on self-referencing object RT #124242

S02-names-vars/perl.t

@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 102;
+plan 103;
 # L<S02/Names and Variables/To get a Perlish representation of any object>
 
 my @tests = (
@@ -92,6 +92,19 @@ my @tests = (
         ".perl worked correctly on a mixed arrayref/hashref recursive structure";
 }
 
+{
+    class Bug {
+        has @.myself;
+        method bind( $myself ) {
+            @.myself[0] = $myself;
+        }
+    }
+    my $a1 = Bug.new;
+    $a1.bind( $a1 );
+    say $a1;
+    ok("survived saying a self-referencing object");
+}
+
 {
     # test a bug reported by Chewie[] - apparently this is from S03
     is(EVAL((("f","oo","bar").keys.List).perl), <0 1 2>, ".perl on a .keys list");