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";