diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2018-02-11 17:01:26 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2018-02-18 16:25:42 -0800 |
| commit | eb2991224f3c7972426fe6ab6b3fe5c08699e502 (patch) | |
| tree | 77e5df379d65146315114d50c9a884f06f032037 /t/op | |
| parent | 1f1dcfb516e063c29a4b9823ad97b1fc58ffc930 (diff) | |
| download | perl-eb2991224f3c7972426fe6ab6b3fe5c08699e502.tar.gz | |
svleak.t: Test for leak fixed by prev. commit
Diffstat (limited to 't/op')
| -rw-r--r-- | t/op/svleak.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/t/op/svleak.t b/t/op/svleak.t index 5d99fddcbe..59bd7d9d7f 100644 --- a/t/op/svleak.t +++ b/t/op/svleak.t @@ -15,7 +15,7 @@ BEGIN { use Config; -plan tests => 146; +plan tests => 147; # run some code N times. If the number of SVs at the end of loop N is # greater than (N-1)*delta at the end of loop 1, we've got a leak @@ -214,6 +214,14 @@ leak_expr(5, 0, q{"YYYYYa" =~ /.+?(a(.+?)|b)/ }, "trie leak"); } +# Map plus sparse array +{ + my @a; + $a[10] = 10; + leak(3, 0, sub { my @b = map 1, @a }, + 'map reading from sparse array'); +} + SKIP: { # broken by 304474c3, fixed by cefd5c7c, but didn't seem to cause # any other test failures |