use v6;
use Test;

plan 10;

#?DOES 2
sub same-type ($x, $y) {
    is $x.WHAT, $y.WHAT;
    ok $x.WHAT ~~ $y.WHAT;
}

#?v6.0.5+ 4
#?impl 2 skip 'NYI'
skip('NYI', 1); # { is "Life, the Universe and Everything".WHY, 42;
#  }
skip('NYI', 1); # { is 42.WHAT, Int, 'some reason';
#  }
#?impl todo 'NYI'
{
    todo('NYI'); same-type(42, 4);
} 
#?impl skip 'NYI'
skip('NYI', 1); # { is 2+2, 4;
#  }
#?impl skip 'NYI'
skip('NYI', 1); # { is 2-2, 0;
#  }

{
    same-type(42, 4);
}

{
    is 1, 1;
    #?impl skip 'NYI'
skip('NYI', 1); # {     is 2, 2;
#  }
}

say "# FUDGED!";
exit(1);
