← Back to branch summary

~dexter/parrot-pkg/maverick

« back to all changes in this revision

Viewing changes to t/oo/new.t

  • Committer: Piotr Roszatycki
  • Date: 2011-01-11 14:34:28 UTC
  • mfrom: (1.1.13 upstream)
  • Revision ID: piotr.roszatycki@gmail.com-20110111143428-s7pa7qz38m61o4tw
New upstream release.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/oo/new.t
1
1
#!./parrot
2
2
# Copyright (C) 2007-2010, Parrot Foundation.
3
 
# $Id: new.t 46007 2010-04-25 11:44:15Z fperrad $
4
3
 
5
4
=head1 NAME
6
5
 
241
240
  try:
242
241
    eh = new 'ExceptionHandler'
243
242
    eh.'handle_types'(.EXCEPTION_INVALID_OPERATION)
244
 
    set_addr eh, catch
 
243
    set_label eh, catch
245
244
 
246
245
    push_eh eh
247
246
    $P1 = newclass $P0
461
460
  try:
462
461
    eh = new 'ExceptionHandler'
463
462
    eh.'handle_types'(.EXCEPTION_NO_CLASS)
464
 
    set_addr eh, catch
 
463
    set_label eh, catch
465
464
 
466
465
    push_eh eh
467
466
    $P0 = new [ 'Foo'; 'Bar'; 'Baz' ]