t/oo/names.t

   1 #!perl
   2 # Copyright (C) 2007, The Perl Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( . lib ../lib ../../lib );
   8 use Test::More;
   9 use Parrot::Test tests => 1;
  10
  11 =head1 NAME
  12
  13 t/oo/names.t - Test OO name-related items
  14
  15 =head1 SYNOPSIS
  16
  17     % prove t/oo/names.t
  18
  19 =head1 DESCRIPTION
  20
  21 Tests OO features related to names and namespaces.
  22
  23 =cut
  24
  25 pir_output_is(
  26     <<'CODE', <<'OUT', 'Create HLL class same-named as Parrot class', todo => 'RT#43419' );
  27     .HLL "perl6", ""
  28
  29     .namespace []
  30
  31     .sub main :main
  32         # works
  33         $P0 = new 'Class'
  34         $P0.'name'('AnObject')
  35         $S0 = $P0
  36         say $S0
  37
  38         # fails
  39         $P0 = new 'Class'
  40         $P0.'name'('Object')
  41         $S0 = $P0
  42         say $S0
  43     .end
  44 CODE
  45 perl6;AnObject
  46 perl6;Object
  47 OUT
  48
  49 # Local Variables:
  50 #   mode: cperl
  51 #   cperl-indent-level: 4
  52 #   fill-column: 100
  53 # End:
  54 # vim: expandtab shiftwidth=4: