PageRenderTime 26ms CodeModel.GetById 21ms app.highlight 2ms RepoModel.GetById 2ms app.codeStats 0ms

/core/definitions/definitions-tests.factor

http://github.com/abeaumont/factor
Unknown | 30 lines | 20 code | 10 blank | 0 comment | 0 complexity | 53f558028f6ab0f775c94ed67ca4d522 MD5 | raw file
 1USING: tools.test generic kernel definitions sequences
 2compiler.units words ;
 3IN: definitions.tests
 4
 5GENERIC: some-generic ( a -- b )
 6
 7USE: arrays
 8
 9M: array some-generic ;
10
11USE: bit-arrays
12
13M: bit-array some-generic ;
14
15USE: byte-arrays
16
17M: byte-array some-generic ;
18
19TUPLE: some-class ;
20
21M: some-class some-generic ;
22
23[ ] [
24    [
25        \ some-generic
26        \ some-class
27        2array
28        forget-all
29    ] with-compilation-unit
30] unit-test