basis/simple-flat-file/simple-flat-file-tests.factor

   1 ! Copyright (C) 2009 Yun, Jonghyouk.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: simple-flat-file tools.test memoize assocs ;
   4 IN: simple-flat-file.tests
   5
   6
   7 MEMO: <test1> ( -- code-table )
   8     "vocab:simple-flat-file/test1.txt" flat-file>biassoc ;
   9
  10
  11 [ 0 ] [ 0 <test1> at ] unit-test
  12 [ 0 ] [ 0 <test1> value-at ] unit-test
  13
  14 [ 3 ] [ 3 <test1> at ] unit-test
  15 [ 3 ] [ 3 <test1> value-at ] unit-test
  16
  17 [ 0xAD2A ] [ 0x8253 <test1> at ] unit-test
  18 [ 0x8253 ] [ 0xAD2A <test1> value-at ] unit-test
  19
  20 [ 0xAD31 ] [ 0x8258 <test1> at ] unit-test
  21 [ 0x8258 ] [ 0xAD31 <test1> value-at ] unit-test
  22
  23