2009-10-08 14:10:51 -04:00
|
|
|
! Copyright (C) 2009 Daniel Ehrenberg
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2010-01-14 10:10:13 -05:00
|
|
|
USING: classes.struct.bit-accessors tools.test effects kernel
|
|
|
|
|
sequences random stack-checker ;
|
2009-10-08 14:10:51 -04:00
|
|
|
IN: classes.struct.bit-accessors.test
|
|
|
|
|
|
2010-01-14 13:48:57 -05:00
|
|
|
[ t ] [ 20 random 20 random bit-reader infer (( alien -- n )) effect= ] unit-test
|
|
|
|
|
[ t ] [ 20 random 20 random bit-writer infer (( n alien -- )) effect= ] unit-test
|
