#!/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 2 * 2
print 789 * 442
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 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