#!/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 - 0
print 0 - 1
print 1 - 1
print -1 - -1
print 1 - -1
print -1 - 1
print 2 - 2
print 789 - 442
print -444 - 222
print 444 - -222
CODE
OUTPUT

language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg');
print 0.0 - 0.0
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 -1.1 - 1.1
print 2.1 - 2.1
print 789.1 - 442.1
print -444.1 - 222.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