t/oo/new-old.t

   1 #! perl
   2 # Copyright (C) 2009-2010, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( . lib ../lib ../../lib );
   8
   9 use Test::More;
  10 use Parrot::Test;
  11
  12 =head1 NAME
  13
  14 t/oo/new-old.t - old style tests for new
  15
  16 =head1 SYNOPSIS
  17
  18     % prove t/oo/new-old.t
  19
  20 =head1 DESCRIPTION
  21
  22 Tests instantiation
  23
  24 =cut
  25
  26 plan tests => 1;
  27
  28 pir_output_is( <<'CODE', <<'OUT', "exception in new", todo => 'TT #1151' );
  29 .sub main :main
  30     .local pmc type
  31     newclass type, 'Parent'
  32
  33     .local pmc obj, exception
  34     .local string message
  35     message = 'no error'
  36     push_eh handler
  37         obj = new 'Parent'
  38         print 'not '
  39     pop_eh
  40     goto finally
  41
  42   handler:
  43     .get_results(exception)
  44     pop_eh
  45     message = exception
  46
  47   finally:
  48     print "ok #"
  49     say message
  50 .end
  51
  52 .namespace ['Parent']
  53 .sub 'init' :vtable
  54     die 'test exception from init vtable'
  55 .end
  56 CODE
  57 ok #test exception from init vtable
  58 OUT
  59
  60 # Local Variables:
  61 #   mode: cperl
  62 #   cperl-indent-level: 4
  63 #   fill-column: 100
  64 # End:
  65 # vim: expandtab shiftwidth=4: