t/01-sanity/03-equal.t

   1 use v6;
   2
   3 # Checking that testing is sane: equality and inequality
   4
   5
   6 say '1..4';
   7
   8 my $x = '0';
   9
  10 ($x eq $x) && say 'ok 1';
  11 ($x ne $x) && say 'not ok 1';
  12 ($x eq $x) || say 'not ok 2';
  13 ($x ne $x) || say 'ok 2';
  14
  15 ($x == $x) && say 'ok 3';
  16 ($x != $x) && say 'not ok 3';
  17 ($x == $x) || say 'not ok 4';
  18 ($x != $x) || say 'ok 4';