#!/usr/bin/perl

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

language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg');
print 0 // 0
CODE
OUTPUT

language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg');
print 0.0 // 0.0
CODE
OUTPUT


language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg');
print 0 // 1
print 1 // 1
print -1 // -1
print -1 // 1
print 2 // 2
print 789 // 442
print -444 // 222
CODE
OUTPUT

language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg');
print 0.1 // 0.1
print 0.0 // 1.1
print 1.1 // 1.1
print -1.1 // -1.1
print -1.1 // 1.1
print 2.1 // 2.1
print 789.1 // 442.1
print -444.1 // 222.1
CODE
OUTPUT

language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg');
print 14387438147308473847 // 4731803470394870
print -14387438147308473847 // 4731803470394870
print -14387438147308473847 // -4731803470394870
CODE
OUTPUT

#language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg');
#CODE
#OUTPUT