diff options
| author | Dan Collins <dcollinsn@gmail.com> | 2016-07-03 19:09:04 -0400 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2016-10-21 09:09:43 +0200 |
| commit | f35ddf907306e8905ee293df4826f67a9fe5e1c5 (patch) | |
| tree | 5b9134b99688ab414dc1e0cf962e2d5f4a0c302b /t/uni | |
| parent | 111da7867221d4c747d002c775d64f4cc5c00f80 (diff) | |
| download | perl-f35ddf907306e8905ee293df4826f67a9fe5e1c5.tar.gz | |
t/uni/overload.t: test for RT #3270
Diffstat (limited to 't/uni')
| -rw-r--r-- | t/uni/overload.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/t/uni/overload.t b/t/uni/overload.t index 21d81ec78a..c534ecfdf3 100644 --- a/t/uni/overload.t +++ b/t/uni/overload.t @@ -9,7 +9,7 @@ BEGIN { set_up_inc( '../lib' ); } -plan(tests => 216); +plan(tests => 217); package UTF8Toggle; use strict; @@ -296,3 +296,13 @@ TODO: { print "ok\n"; EOP } + +TODO: { + local $::TODO = 'RT #3270: Overloaded operators can not be treated as lvalues'; + fresh_perl_is(<<'EOP', '', {stderr => 1}, 'RT #3270: Overloaded operator that returns an lvalue can be used as an lvalue'); + use overload '.' => \˙ + sub dot : lvalue {my ($obj, $method) = @_; $obj -> {$method};} + my $o = bless {} => "main"; + $o.foo = "bar"; +EOP +} |