#!/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