#!/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'); if True: print "True" else: print "False" CODE OUTPUT language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg'); if not True: print "True" else: print "False" CODE OUTPUT language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg'); a = 1 if a == 1: print "a == 1" elif a ==2: print "a == 2" elif a ==2: print "a == 3" else: print "a != 1,2,3" CODE OUTPUT