37 lines
1.1 KiB
Factor
37 lines
1.1 KiB
Factor
IN: slots.tests
|
|
USING: math accessors slots strings generic.standard kernel
|
|
tools.test generic words parser eval ;
|
|
|
|
TUPLE: r/w-test foo ;
|
|
|
|
TUPLE: r/o-test { foo read-only } ;
|
|
|
|
[ r/o-test new 123 >>foo ] [ no-method? ] must-fail-with
|
|
|
|
TUPLE: decl-test { foo integer } ;
|
|
|
|
[ decl-test new 1.0 >>foo ] [ bad-slot-value? ] must-fail-with
|
|
|
|
TUPLE: hello length ;
|
|
|
|
[ 3 ] [ "xyz" length>> ] unit-test
|
|
|
|
[ "xyz" 4 >>length ] [ no-method? ] must-fail-with
|
|
|
|
[ t ] [ r/o-test \ foo>> method "foldable" word-prop ] unit-test
|
|
[ t ] [ r/o-test \ foo>> method "flushable" word-prop ] unit-test
|
|
|
|
[ f ] [ r/w-test \ foo>> method "foldable" word-prop ] unit-test
|
|
[ t ] [ r/w-test \ foo>> method "flushable" word-prop ] unit-test
|
|
|
|
! See if declarations are cleared on redefinition
|
|
[ ] [ "IN: slots.tests TUPLE: r/w-test { foo read-only } ;" eval ] unit-test
|
|
|
|
[ t ] [ r/w-test \ foo>> method "foldable" word-prop ] unit-test
|
|
[ t ] [ r/w-test \ foo>> method "flushable" word-prop ] unit-test
|
|
|
|
[ ] [ "IN: slots.tests TUPLE: r/w-test foo ;" eval ] unit-test
|
|
|
|
[ f ] [ r/w-test \ foo>> method "foldable" word-prop ] unit-test
|
|
[ t ] [ r/w-test \ foo>> method "flushable" word-prop ] unit-test
|