IN: multi-methods.tests
USING: multi-methods tools.test math sequences namespaces system
kernel strings words compiler.units quotations ;

\ GENERIC: must-infer
\ create-method-in must-infer

DEFER: fake
\ fake H{ } clone "multi-methods" set-word-prop

[ "fake-{ }" ] [ { } \ fake method-word-name ] unit-test

[ H{ { "multi-method-generic" fake } { "multi-method-specializer" { } } } ]
[ { } \ fake method-word-props ] unit-test

[ t ] [ { } \ fake <method> method-body? ] unit-test

[
    [ { } [ ] ] [ \ fake methods prepare-methods >r sort-methods r> ] unit-test

    [ t ] [ { } \ fake multi-dispatch-quot callable? ] unit-test

    [ t ] [ \ fake make-generic quotation? ] unit-test

    [ ] [ \ fake update-generic ] unit-test

    DEFER: testing

    [ ] [ \ testing define-generic ] unit-test

    [ t ] [ \ testing generic? ] unit-test
] with-compilation-unit