use v6-alpha;
use Test;
plan 9;
=pod
Basic tests for the chomp() builtin working on an array of strings
=cut
# L<S29/Str/=item chomp>
# Also see L<"http://use.perl.org/~autrijus/journal/25351">
# &chomp and &wrap are now nondestructive; chomp returns the chomped part,
# which can be defined by the filehandle that obtains the default string at
# the first place. To get destructive behaviour, use the .= form.
# Since currently the behaviour with regards to arrays is not defined, I'm
# assuming the correct behaviour is an extension of the behaviour for
# a single string.
{
my @foo = ("foo\n","bar\n","baz\n");
chomp(@foo);
is(@foo[0], "foo\n", '1st element was not yet chomped');
is(@foo[1], "bar\n", '2nd element was not yet chomped');
is(@foo[2], "baz\n", '3rd element was not yet chomped');
@foo .= chomp;
is(@foo[0], 'foo', '1st element chomped correctly');
is(@foo[1], 'bar', '2nd element chomped correctly');
is(@foo[2], 'baz', '3rd element chomped correctly');
@foo .= chomp;
is(@foo[0], 'foo', '1st element is chomped again with no effect');
is(@foo[1], 'bar', '2nd element is chomped again with no effect');
is(@foo[2], 'baz', '3rd element is chomped again with no effect');
}