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
7 MEMO: <test1> ( -- code-table )
8 "vocab:simple-flat-file/test1.txt" load-codetable-file ;
10 { 0 } [ 0 <test1> at ] unit-test
11 { 0 } [ 0 <test1> value-at ] unit-test
13 { 3 } [ 3 <test1> at ] unit-test
14 { 3 } [ 3 <test1> value-at ] unit-test
16 { 0xAD2A } [ 0x8253 <test1> at ] unit-test
17 { 0x8253 } [ 0xAD2A <test1> value-at ] unit-test
19 { 0xAD31 } [ 0x8258 <test1> at ] unit-test
20 { 0x8258 } [ 0xAD31 <test1> value-at ] unit-test
22 { 1 } [ "1" expand-range ] unit-test
23 { { 1 31 } } [ "1..1F" expand-range ] unit-test