From 4dca70c8eede95b1b2892ba4282a0e5d59521338 Mon Sep 17 00:00:00 2001
From: usev6 <use_v6@aglaz.de>
Date: Sat, 7 Feb 2015 17:52:39 +0100
Subject: [PATCH] Add test for RT #116649

---
 S03-metaops/reverse.t | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/S03-metaops/reverse.t b/S03-metaops/reverse.t
index 99694c5d87..d717215c15 100644
--- a/S03-metaops/reverse.t
+++ b/S03-metaops/reverse.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 37;
+plan 39;
 
 =begin pod
 
@@ -72,6 +72,17 @@ eval_dies_ok '("a" R~ "b") = 1', 'Cannot assign to return value of R~';
         'adequate error message on trying to metaop-reverse binding (:=)';
 }
 
+# RT #116649
+{
+    my $y = 5;
+    is $y [R/]= 1, 1/5, '[R/]= works correctly (1)';
+    sub r2cf(Rat $x is copy) {
+        gather $x [R/]= 1 while ($x -= take $x.floor) > 0
+    }
+    is r2cf(1.4142136).join(" "), '1 2 2 2 2 2 2 2 2 2 6 1 2 4 1 1 2',
+        '[R/]= works correctly (2)';
+}
+
 {
     my $foo = "foo";
     $foo [R~]= "bar";