add new dot feature (-> is now ., . is now ~)
[perl.git] / t / lib / feature / dot
1 Check feature bundles.
2
3 __END__
4 # Test dot without feature
5 use feature qw(say);
6 say "Hello" . "world";
7 EXPECT
8 Helloworld
9 ########
10 # Test ~ with feature
11 use feature qw(say dot);
12 say "Hello" ~ "world";
13 EXPECT
14 Helloworld
15 ########
16 # Test -> for method calls without feature
17 use feature qw(say);
18 use CGI;
19 my $q = CGI->new;
20 say ref($q);
21 say $q->blockquote(
22   "Many years ago on the island of",
23   $q->a({href=>"http://crete.org/"},"Crete"),
24   "there lived a Minotaur named",
25   $q->strong("Fred."),
26 ),
27 $q->hr;
28 EXPECT
29 CGI
30 <blockquote>Many years ago on the island of <a href="http://crete.org/">Crete</a> there lived a Minotaur named <strong>Fred.</strong></blockquote><hr />
31 ########
32 # Test . for method calls with feature
33 use feature qw(say dot);
34 use CGI;
35 my $q = CGI.new;
36 say ref($q);
37 say $q.blockquote(
38   "Many years ago on the island of",
39   $q.a({href=>"http://crete.org/"},"Crete"),
40   "there lived a Minotaur named",
41   $q.strong("Fred.") ,
42 ),
43 $q.hr;
44 EXPECT
45 CGI
46 <blockquote>Many years ago on the island of <a href="http://crete.org/">Crete</a> there lived a Minotaur named <strong>Fred.</strong></blockquote><hr />
47 ########
48 # Test -> for array/hash dereference without feature
49 use feature qw(say);
50 my $arrayref = [1,2,3,4,5];
51 say $arrayref->[-1];
52 my $hashref = {a => 1, b => 2};
53 say $hashref->{b};
54 EXPECT
55 5
56 2
57 ########
58 # Test . for array/hash dereference with feature
59 use feature qw(say dot);
60 my $arrayref = [1,2,3,4,5];
61 say $arrayref.[-1];
62 my $hashref = {a => 1, b => 2};
63 say $hashref.{b};
64 EXPECT
65 5
66 2