#!perl

# Copyright (C) 2007, The Perl Foundation.
# $Id: /mirror/trunk/languages/PIR/t/branch.t 21235 2007-09-12T19:38:38.373920Z paultcochrane  $

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

language_output_like( 'PIR_PGE', <<'CODE', qr/Parse successful!/, 'if statement' );
.sub main			
	
	if 1 < 2 goto L1
L1:
	if 2 > 3 goto L2
L2:
	if 1 <= 2 goto L3
L3:
	if 2 >= 2 goto L4
L4:
	if 3 == 3 goto L5
L5:
	if 3 != 4 goto L6
L6:

.end
CODE


language_output_like( 'PIR_PGE', <<'CODE', qr/Parse successful!/, 'unless statement' );
.sub main			
	
	unless 1 < 2 goto L1
L1:
	unless 2 > 3 goto L2
L2:
	unless 1 <= 2 goto L3
L3:
	unless 2 >= 2 goto L4
L4:
	unless 3 == 3 goto L5
L5:
	unless 3 != 4 goto L6
L6:

.end
CODE

language_output_like( 'PIR_PGE', <<'CODE', qr/Parse successful!/, 'goto statement' );
.sub main			
	
	goto L1
L1:

.end
CODE
