/core/definitions/definitions-tests.factor

 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