t/oo/names.t

   1 #! parrot
   2 # Copyright (C) 2007-2008, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/oo/names.t - Test OO name-related items
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/oo/names.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests OO features related to names and namespaces.
  16
  17 =cut
  18
  19 .HLL "perl6"
  20
  21 .namespace []
  22
  23 .sub main :main
  24     .include 'test_more.pir'
  25
  26     plan(2)
  27
  28     hll_object_different_than_parrot_name()
  29     hll_object_same_as_parrot_name()
  30 .end
  31
  32 .sub hll_object_different_than_parrot_name
  33     # works
  34     $P0 = new 'Class'
  35     $P0.'name'('AnObject')
  36     $S0 = $P0
  37     is ($S0, 'AnObject','HLL obj w/ name different than parrot obj created')
  38 .end
  39
  40 .sub hll_object_same_as_parrot_name
  41     # fails
  42     $P0 = new 'Class'
  43     push_eh OK_1
  44     $P0.'name'('Object')
  45     pop_eh
  46     $S0 = $P0
  47     ok (1, 'HLL obj created w/ same name as parrot obj')
  48     .return()
  49 OK_1:
  50     ok (0, 'HLL obj w/ same name as parrot obj not created')
  51 .end
  52
  53 # Local Variables:
  54 #   mode: pir
  55 #   fill-column: 100
  56 # End:
  57 # vim: expandtab shiftwidth=4 ft=pir: