t/reverse.t - libautobox-core-perl (HEAD)

Tree @HEAD (Download .tar.gz)

..
added.t
array-slice.t
bless.t
center.t
chomp.t
chop.t
chr.t
concat.t
crypt.t
curry.t
each.t
elements.t
elems.t
first_index.t
flatten.t
flip.t
for.t
foreach.t
grep.t
head.t
index.t
join.t
keys.t
last_index.t
lc.t
lcfirst.t
length.t
m.t
map.t
nm.t
number.t
numeric.t
ord.t
pack.t
pop.t
print.t
push.t
quotemeta.t
range.t
ref.t
reverse.t
rindex.t
s.t
say.t
scalar.t
shift.t
size.t
slice.t
sort.t
split.t
sprintf.t
strip.t
substr.t
synopsis.t
system.t
tail.t
uc.t
ucfirst.t
undef.t
unpack.t
unshift.t
values.t
vec.t

reverse.t @HEAD — raw · history · blame

use Test::More qw(no_plan);
use strict;
use warnings;

use autobox::Core;

# https://github.com/schwern/perl5i/issues/182
my $scalar = 'foo';
my($reverse) = $scalar->reverse;  # list context
is $reverse, 'oof', 'reverse in list context reverses the scalar';
is scalar $scalar->reverse, 'oof', 'reverse in scalar context reverses the scalar';

is "Hello"->reverse, "olleH";

my @list = qw(foo bar baz);

is_deeply [@list->reverse], [qw(baz bar foo)];

my $arrayref = @list->reverse;

is ref $arrayref, "ARRAY", "returns an arrayref in scalar context";