some more equality tests

Author: karenetheridge

t/equality.t

@@ -19,7 +19,10 @@ use Helper;
 subtest 'equality, using inflated data' => sub {
   foreach my $test (
     [ undef, undef, true ],
+    [ undef, false, false ],
+    [ undef, true , false ],
     [ undef, 1, false ],
+    [ undef, '1', false ],
     [ \0, 0, false ],
     [ \0, false, false ],
     [ \1, 1, false ],
@@ -33,6 +36,10 @@ subtest 'equality, using inflated data' => sub {
     [ [qw(a b)], [qw(b a)], false, '/0' ],
     [ 1, 1, true ],
     [ 1, 1.0, true ],
+    [ 1, '1.0', false ],
+    [ '1.1', 1.1, false ],
+    [ '1', 1, false ],
+    [ '1.1', 1.1, false ],
     [ [1,2], [2,1], false, '/0' ],
     [ { a => 1, b => 2 }, { b => 2, a => 1 }, true ],
     [ { a => 1 }, { a => 1.0 }, true ],
@@ -74,7 +81,6 @@ subtest 'equality, using JSON strings' => sub {
     [ '{"a":1,"b":2}', '{"b":3,"a":1}', false, '/b' ],
     [ '{"a":{"b":1,"c":2},"d":{"e":3,"f":4}}',
       '{"a":{"b":1,"c":2},"d":{"e":3,"f":5}}', false, '/d/f' ],
-
   ) {
     my ($x, $y, $expected, $diff_path) = @$test;
     ($x, $y) = map $decoder->decode($_), $x, $y;
@@ -91,4 +97,29 @@ subtest 'equality, using JSON strings' => sub {
   }
 };
 
+subtest 'equality, using scalarref booleans' => sub {
+  local $JSON::Schema::Tiny::SCALARREF_BOOLEANS = 1;
+
+  foreach my $test (
+    [ \0, true, false ],
+    [ \1, true, true ],
+    [ \0, false, true ],
+    [ \1, false, false ],
+    [ undef, \0, false ],
+    [ undef, false, false ],
+  ) {
+    my ($x, $y, $expected, $diff_path) = @$test;
+    my @types = map JSON::Schema::Tiny::get_type($_), $x, $y;
+    my $result = JSON::Schema::Tiny::is_equal($x, $y, my $state = {});
+
+    ok(!($result xor $expected), json_sprintf('%s == %s is %s', $x, $y, $expected));
+    is($state->{path}, $diff_path // '', 'two instances differ at the expected place') if not $expected;
+
+    ok(JSON::Schema::Tiny::is_type($types[0], $x), 'type of arg 0 was not mutated while making equality check');
+    ok(JSON::Schema::Tiny::is_type($types[1], $y), 'type of arg 1 was not mutated while making equality check');
+
+    note '';
+  }
+};
+
 done_testing;