Index: t/op/bitwise.t
===================================================================
RCS file: /cvs/public/parrot/t/op/bitwise.t,v
retrieving revision 1.10
diff -u -3 -p -u -r1.10 bitwise.t
--- t/op/bitwise.t	28 Apr 2004 10:06:24 -0000	1.10
+++ t/op/bitwise.t	11 May 2004 02:11:43 -0000
@@ -16,7 +16,16 @@ Tests various bitwise logical operations
 
 =cut
 
-use Parrot::Test tests => 25;
+use Parrot::Test;
+use Test::More;
+use Parrot::Config;
+
+if ($PConfig{intvalsize} == 8) {
+   plan tests => 26;
+}
+else {
+   plan tests => 25;
+}
 
 output_is(<<'CODE', <<'OUTPUT', "shr_i_i_i (>>)");
 	set I0, 0b001100
@@ -481,4 +490,35 @@ CODE
 51
 12
 OUTPUT
+
+if ($PConfig{intvalsize} == 8) {
+	# check bitops for 8-byte ints
+	output_is(<<'CODE', <<'OUTPUT', "bitops64");
+	set I0, 0xffffffffffffffff 
+	print I0 # -1
+	print "\n"
+	set I1, 0x00000000ffffffff 
+	print I1 # 4294967295
+	print "\n"
+	set I0, I1
+	shl I0, I0, 32 
+	print I0 # -4294967296 
+	print "\n"
+	band I2, I0, I1 
+	print I2 # 0 
+	print "\n"
+	bor I2, I0, I1 
+	print I2 # -1 
+	print "\n"
+	end  
+
+CODE
+-1
+4294967295
+-4294967296
+0
+-1
+OUTPUT
+
+}
 1;