use strict;
use warnings;
use Test::More tests => 7;
use autobox::Core;

is "Hello, World\n"->uc, "HELLO, WORLD\n";

my @list = (1, 5, 9, 2, 0, 4, 2, 1);
is_deeply [@list->sort->reverse], [9,5,4,2,2,1,1,0]; 

# works with references too!
my $list = [1, 5, 9, 2, 0, 4, 2, 1];
is_deeply [$list->sort->reverse], [9,5,4,2,2,1,1,0];

my %hash = (
      grass => 'green',
      apple => 'red',
      sky   => 'blue',
);

is [10, 20, 30, 40, 50]->pop, 50;
is [10, 20, 30, 40, 50]->shift, 10;

my $lala = "Lalalalala\n"; 
is "chomp: "->concat($lala->chomp, " ", $lala), "chomp: 1 Lalalalala";

my $hashref = { foo => 10, bar => 20, baz => 30, qux => 40 };

is $hashref->keys->sort->join(' '), "bar baz foo qux";