Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

59 lines (44 sloc) 1.495 kB
use v6;
use Test;
plan 5;
# See "=begin DATA" at the end of file.
# L<S02/Double-underscore forms/filehandle, "named as" %=pod{'DATA'}>
{
ok %=pod{'DATA'}, '=begin DATA works and %=pod<DATA> defined';
my $line = get %=pod<DATA>;
is($line, "hello, world!", q/%=pod{'DATA'} can be read/);
}
# L<S02/Double-underscore forms/Pod stream as a scalar>
{
# XXX isn't the iterator exhausted already, since it's been used
# previously?
my $line = get $=DATA;
is($line, "hello, world!", q/$=DATA contains the right string/);
}
# L<S02/Double-underscore forms/"Pod stream" "as an array" via @=DATA>
{
is @=DATA.elems, 1, '@=DATA contains a single elem';
is @=DATA[0], "hello, world!\n", '@=DATA[0] contains the right value';
}
# The following commented-out tests are currnetly unspecified:
# others will be added later, or you can do it.
#ok eval('
#=begin DATA LABEL1
#LABEL1.1
#LABEL1.2
#LABEL1.3
#=end DATA
#=begin DATA LABEL2
#LABEL2.1
#LABEL2.2
#=end DATA
#'), "=begin DATA works", :todo;
#is(eval('%=DATA<LABEL1>[0]'), 'LABEL1.1', '@=DATA<LABEL1>[0] is correct', :todo);
#is(eval('%=DATA<LABEL1>[2]'), 'LABEL1.3', '@=DATA<LABEL1>[2] is correct', :todo);
#is(eval('~ %=DATA<LABEL1>'), 'LABEL1.1LABEL1.2LABEL1.3', '~ %=DATA<LABEL1> is correct', :todo);
#is(eval('~ $=LABEL2'), 'LABEL2.1LABEL2.2', '~ $=LABEL2 is correct', :todo);
#is(eval('$=LABEL2[1]'), 'LABEL2.2', '$=LABEL2[1] is correct', :todo);
=begin DATA
hello, world!
=end DATA
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.