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

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