use Test::More;

use Test::Differences;

## This mind-bender submitted by Yves Orton <demerphq@hotmail.com>
my ( $ar, $x, $y );
$ar->[0] = \$ar->[1];
$ar->[1] = \$ar->[0];
$x       = \$y;
$y       = \$x;

my @tests = (
    sub { eq_or_diff [ \"a", \"b" ], [ \"a", \"b" ] },
    sub { eq_or_diff $ar, [ $x, $y ] },
);

plan tests => scalar @tests;

$_->() for @tests;