v6/v6-KindaPerl6/t/kp6/32-oo-isa.t

   1 use v6-alpha;
   2 class Foo {
   3     method ok1() {
   4         1
   5     };
   6 }
   7 module Main {
   8     say '1..4';
   9     my $foo = Foo.new();
  10     if $foo.isa( 'Foo' ) {
  11         say "ok 1"
  12     }
  13     else {
  14         say "not ok 1"
  15     };
  16
  17     $foo = "Foo";
  18     if $foo.isa( 'Foo' ) {
  19         say "not ok 2"
  20     }
  21     else {
  22         say "ok 2"
  23     };
  24     if $foo.isa( 'Str' ) {
  25         say "ok 3"
  26     }
  27     else {
  28         say "not ok 3"
  29     };
  30     if $foo.isa( 'Object' ) {
  31         say "ok 4"
  32     }
  33     else {
  34         say "not ok 4 - inheritance"
  35     };
  36 }
  37
  38 =begin
  39
  40 =head1 AUTHORS
  41
  42 The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.
  43
  44 =head1 SEE ALSO
  45
  46 The Perl 6 homepage at L<http://dev.perl.org/perl6>.
  47
  48 The Pugs homepage at L<http://pugscode.org/>.
  49
  50 =head1 COPYRIGHT
  51
  52 Copyright 2007 by Flavio Soibelmann Glock and others.
  53
  54 This program is free software; you can redistribute it and/or modify it
  55 under the same terms as Perl itself.
  56
  57 See L<http://www.perl.com/perl/misc/Artistic.html>
  58
  59 =end
  60