@@ -213,6 +213,9 @@ sub _is_deeply(Object $got, Object $expected) { elsif $got ~~ undef && $expected ~~ undef && $got.WHAT eq $expected.WHAT { return True; } + elsif $got ~~ Bool && $expected ~~ Bool { + return ($got && $expected) || (!$got && !$expected); + } return; } Test.pm c0ba8477f77c9f8f8b9866c2c6f6f089da4425cb Kyle Hasselbacher kyleha@gmail.com http://github.com/rakudo/rakudo/commit/f8fb41b213c6703a9b080a1b5d05ac67b66dddbf f8fb41b213c6703a9b080a1b5d05ac67b66dddbf 2009-10-28T07:32:04-07:00 2009-10-28T07:32:04-07:00 [Test.pm] Teach is_deeply how to compare Bool 9bce6f63d99bfa287188e82adc310315b876b357 Kyle Hasselbacher kyleha@gmail.com