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