use common::sense;

sub same_bool1 {
    my ($a, $b) = @_;
    !!$a eq !!$b
}
sub same_bool2 {
    my ($a, $b) = @_;
    $a ? $b : !$b
}



use Test::More;
use Data::Dumper;

sub uneval {
    local $Data::Dumper::Terse = 1;
    $_ = Dumper(@_);
    s/\A\s+//;
    s/\s+\Z//;
    $_;
}

for my $subname (qw/same_bool1 same_bool2/) {
    my $sub = $::{$subname};
    for my $t (
        [1, 2],
        [3, "s"],
        ["a", "b"],
        ['', ''],
        ['', 0],
        [-1, 1],
        [-1, 2],
    ) {
        ok $sub->($t->[0], $t->[1]), "$subname(" . uneval($t->[0]) . ", " . uneval($t->[1]) . ")"
    }
}

done_testing;