54 lines
931 B
Factor
Executable File
54 lines
931 B
Factor
Executable File
IN: definitions.tests
|
|
USING: tools.test generic kernel definitions sequences
|
|
compiler.units words ;
|
|
|
|
TUPLE: combination-1 ;
|
|
|
|
M: combination-1 perform-combination drop [ ] define ;
|
|
|
|
M: combination-1 make-default-method 2drop [ "No method" throw ] ;
|
|
|
|
SYMBOL: generic-1
|
|
|
|
[
|
|
generic-1 T{ combination-1 } define-generic
|
|
|
|
object \ generic-1 create-method [ ] define
|
|
] with-compilation-unit
|
|
|
|
[ ] [
|
|
[
|
|
{ combination-1 { object generic-1 } } forget-all
|
|
] with-compilation-unit
|
|
] unit-test
|
|
|
|
GENERIC: some-generic ( a -- b )
|
|
|
|
USE: arrays
|
|
|
|
M: array some-generic ;
|
|
|
|
USE: bit-arrays
|
|
|
|
M: bit-array some-generic ;
|
|
|
|
USE: byte-arrays
|
|
|
|
M: byte-array some-generic ;
|
|
|
|
TUPLE: some-class ;
|
|
|
|
M: some-class some-generic ;
|
|
|
|
TUPLE: another-class some-generic ;
|
|
|
|
[ ] [
|
|
[
|
|
{
|
|
some-generic
|
|
some-class
|
|
{ another-class some-generic }
|
|
} forget-all
|
|
] with-compilation-unit
|
|
] unit-test
|