use v6-alpha;
use Test;
use v6;


say "1..3";

{
    my $string = "Pugs";
    if $string.WHAT eq Str { say "ok 1" } else { say "not ok 1" }
}

{
    my $bool = ?1;
    if $bool.WHAT eq Bool { say "ok 2" } else { say "not ok 2" }
}

{
    my $bool = Bool::True;
    if $bool.WHAT eq Bool { say "ok 3" } else { say "not ok 3" }
}