The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::Base tests => 3;

run_compare in => 'out';

__DATA__
=== Compare strings
--- in split sort join=\s: ccc bbb aaa
--- out: aaa bbb ccc

=== Compare deeply
--- in eval: [1, 2, 3]
--- out eval Reverse: [3, 2, 1]

=== Compare like
--- in: You are here
--- out regexp: ere$