#!/usr/bin/perl

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

language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg');
a = 1
a += 1
print a
b = 1
b -= 1
print b
c = 2
c *= 2
print c
d = 10
d /= 2
print d
e = 11
e %= 4
print e
f = 2
f **= 4
print f
CODE
OUTPUT

language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg');
a = 0x80
a >>= 4
print a
b = 0x8
b <<= 4
print b
c = 0x1234
c &= 0x1030
print c
d = 0x1234
d ^= 0x1030
print d
e = 0x1234
e |= 0x1030
print e
CODE
OUTPUT

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