basis/classes/struct/bit-accessors/bit-accessors-tests.factor

   1 ! Copyright (C) 2009 Daniel Ehrenberg
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: classes.struct.bit-accessors tools.test effects kernel
   4 sequences random stack-checker ;
   5 IN: classes.struct.bit-accessors.test
   6
   7 [ t ] [ 20 random 20 random bit-reader infer (( alien -- n )) effect= ] unit-test
   8 [ t ] [ 20 random 20 random bit-writer infer (( n alien -- )) effect= ] unit-test