#!perl

use strict;
use warnings;

use Test::More tests => 3;

my ($var1, $var2) = (1, 2);

# Test1
ok($var1 == $var2, 'Fail: ok()');

# Test2
is($var1, $var2, 'Fail: is()');

# Test3
ok($var2 == $var1, 'Fail: ok()')
    or diag "\$var1[$var1] \$var2[$var2]";