octets foo

#
#  left shift octets
#
foo := 0xabcdef
foo <<= 2

if (foo != 0xef) {
	test_fail
}

#
#  And right shift
#
foo := 0xabcdef


foo >>= 2
if (foo != 0xab) {
	test_fail
}
success
