Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
fudge test because of a bug and lang spec reasons
  • Loading branch information
FROGGS committed May 7, 2015
1 parent 80cd397 commit 66f2576
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions S02-literals/pod.t
Expand Up @@ -7,6 +7,7 @@ plan 5;
# See "=begin DATA" at the end of file.

# L<S02/Double-underscore forms/filehandle, "named as" $=pod{'DATA'}>
#?rakudo skip 'postcircumfix:<{ }> not defined for type Array RT #125130'
{
ok $=pod{'DATA'}, '=begin DATA works and $=pod<DATA> defined';

Expand All @@ -15,14 +16,14 @@ plan 5;
}

# L<S02/Double-underscore forms/Pod stream as a scalar>
#?v6.0.0+ skip 'isn\'t the iterator exhausted already, since it\'s been used previously?'
{
# 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>
#?v6.0.0+ skip 'isn\'t the iterator exhausted already, since it\'s been used previously?'
{
is @=DATA.elems, 1, '@=DATA contains a single elem';
is @=DATA[0], "hello, world!\n", '@=DATA[0] contains the right value';
Expand Down

0 comments on commit 66f2576

Please sign in to comment.