t/01-sanity/07-ref.t

   1 use v6;
   2
   3
   4 say "1..3";
   5
   6 {
   7     my $string = "Pugs";
   8     if $string.WHAT eq Str { say "ok 1" } else { say "not ok 1" }
   9 }
  10
  11 {
  12     my $bool = ?1;
  13     if $bool.WHAT eq Bool { say "ok 2" } else { say "not ok 2" }
  14 }
  15
  16 {
  17     my $bool = Bool::True;
  18     if $bool.WHAT eq Bool { say "ok 3" } else { say "not ok 3" }
  19 }