Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 36 lines (27 sloc) 0.774 kB
0402949 [t/spec] test for RT #68554 - say()ing stringification of $!.WHAT seg…
moritz authored
1 use v6;
2 use Test;
3 BEGIN { @*INC.push: 't/spec/packages' };
4 use Test::Util;
5
1fee361 [t/spec] test for <foo=.bar> aliasing in regex
moritz authored
6 plan 4;
0402949 [t/spec] test for RT #68554 - say()ing stringification of $!.WHAT seg…
moritz authored
7
8 # this used to segfault in rakudo
9 is_run(
10 'try { 1/0 }; my $x = $!.WHAT; say ~$x',
11 { status => 0, out => sub { .chars > 2 }},
12 'Can stringify $!.WHAT without segfault',
13 );
14
860cd72 [t/spec] test for RT #69308, segfault on "say $!:WHAT" in a CATCH block
moritz authored
15 is_run(
16 'try { 1/0; CATCH { when * { say $!.WHAT } }; };',
17 { status => 0, out => sub { .chars > 2 }},
18 'Can say $!.WHAT in a CATCH block',
19 );
0402949 [t/spec] test for RT #68554 - say()ing stringification of $!.WHAT seg…
moritz authored
20
519066c [t/spec] test for RT #72960, Null PMC access when doing [].WHAT.say
moritz authored
21 is_run(
22 '[].WHAT.say',
23 { status => 0, out => "Array()\n"},
24 'Can [].WHAT.say',
25 );
26
1fee361 [t/spec] test for <foo=.bar> aliasing in regex
moritz authored
27 # RT #70922
28 is_run(
29 'class A { method postcircumfix:<{ }>() {} }; my &r = {;}; if 0 { if 0 { my $a } }',
30 { status => 0, out => '', err => ''},
31 'presence of postcircumfix does not lead to redeclaration warnings',
32 );
33
0402949 [t/spec] test for RT #68554 - say()ing stringification of $!.WHAT seg…
moritz authored
34
35
Something went wrong with that request. Please try again.