|
Revision 21719, 0.7 kB
(checked in by lwall, 5 months ago)
|
|
[STD] detect obsolete use of =cut
[t/*.t] delete obsolete uses of =cut
|
-
Property svn:mime-type set to
text/plain; charset=UTF-8
-
Property svn:eol-style set to
native
|
| Line | |
|---|
| 1 | use v6; |
|---|
| 2 | |
|---|
| 3 | use Test; |
|---|
| 4 | |
|---|
| 5 | plan 4; |
|---|
| 6 | |
|---|
| 7 | =begin pod |
|---|
| 8 | |
|---|
| 9 | Autopair tests with class instantiation from |
|---|
| 10 | L<S02/"Literals"/"There is now a generalized adverbial form"> |
|---|
| 11 | |
|---|
| 12 | =end pod |
|---|
| 13 | |
|---|
| 14 | # L<S02/"Literals"/"There is now a generalized adverbial form"> |
|---|
| 15 | { |
|---|
| 16 | ok(eval('my $a; class b { has $.a }; my b $c .= new(:$a)'), |
|---|
| 17 | 'class instantiation with autopair, no spaces'); |
|---|
| 18 | ok(eval('my $a; class b { has $.a }; my b $c .= new(:$a )'), |
|---|
| 19 | 'class instantiation with autopair, spaces'); |
|---|
| 20 | ok(eval('my $a; role b { has $.a }; my b $c .= new(:$a)'), |
|---|
| 21 | 'role instantiation with autopair, no spaces'); |
|---|
| 22 | ok(eval('my $a; role b { has $.a }; my b $c .= new(:$a )'), |
|---|
| 23 | 'role instantiation with autopair, spaces'); |
|---|
| 24 | } |
|---|
