#!/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', 'bitand');
print 1 & 3
print 2 & 6
print 0 & 3
print 1 & 3 & 5 & 7
print 0xFFF & 0xAAA
CODE
1
2
1
0xAAA
OUTPUT

language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'bitor');
print 1 | 2
print 2 | 4
print 0 | 3
print 0x555 | 0xAAA
CODE
3
6
3
0xFFF
OUTPUT

language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'bitxor');
print 1 ^ 5
print 1 ^ 4
print 1 ^ 1
CODE
4
5
0
OUTPUT

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