Add test for RT #119473

usev6 · usev6 · commit 11ec63aadd34 · 2014-10-16T21:30:39.000+02:00
diff --git a/S13-overloading/operators.t b/S13-overloading/operators.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 4;
+plan 5;
 
 #L<S06/Operator overloading>
 
@@ -18,6 +18,8 @@ plan 4;
         else { ($arg-1)! * $arg;}
     };
     is 5!, 120, 'Can define recursive postfix operator';
+    # RT #119473
+    is 5.!, 120, 'Can use newly defined postfix operator with leading dot';
 }
 
 {

Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,7 @@`
`1`	`1`	`use v6;`
`2`	`2`	`use Test;`
`3`	`3`
`4`		`-plan 4;`
	`4`	`+plan 5;`
`5`	`5`
`6`	`6`	`#L<S06/Operator overloading>`
`7`	`7`
`@@ -18,6 +18,8 @@ plan 4;`
`18`	`18`	`else { ($arg-1)! * $arg;}`
`19`	`19`	`};`
`20`	`20`	`is 5!, 120, 'Can define recursive postfix operator';`
	`21`	`+ # RT #119473`
	`22`	`+ is 5.!, 120, 'Can use newly defined postfix operator with leading dot';`
`21`	`23`	`}`
`22`	`24`
`23`	`25`	`{`