#!/usr/bin/perl

use strict;
use lib qw(t . lib ../lib ../../lib ../../../lib ../../../../lib );
use Parrot::Test tests => 3;

language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg');
try:
  print "GOOD"
finally:
  print "GOOD1"
CODE
OUTPUT

language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg');
try:
  raise "Real bad"
  print "BAD"
finally:
  print "GOOD"
CODE
OUTPUT

language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg');
try:
  try:
    print "GOOD"
  finally:
    print "GOOD1"
finally:
  print "GOOD2"
CODE
OUTPUT