#!/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');
print 0 and 1
print 1 and 2
CODE
OUTPUT

language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg');
print 100000000000000000000000000000 and 2000000000000000000000000000000000000
print 0.0 and 2000000000000000000000000000000000000
CODE
OUTPUT

language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg');
print "a1" and "a2"
print "" and "a2"
CODE
OUTPUT

#language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg');
#CODE
#OUTPUT
#print True and True
#print True and False
#print False and True
#print False and False