coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

smalltalk: respondsTo:/isKindOf:/isMemberOf: + 26 tests
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Has been cancelled
Details

Browse Source
This commit is contained in:
giles
2026-04-25 09:06:40 +00:00
parent 4ced16f04e
commit 1c4ac47450
3 changed files with 76 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
lib/smalltalk/tests/reflection.sx
View File

@@ -141,4 +141,52 @@
;; perform: routes through ordinary dispatch, so super, DNU, primitives
;; all still apply naturally. No special test for that — it's free.
;; ── 15. isKindOf: walks the class chain ──
(st-test "42 isKindOf: SmallInteger" (ev "42 isKindOf: SmallInteger") true)
(st-test "42 isKindOf: Integer" (ev "42 isKindOf: Integer") true)
(st-test "42 isKindOf: Number" (ev "42 isKindOf: Number") true)
(st-test "42 isKindOf: Magnitude" (ev "42 isKindOf: Magnitude") true)
(st-test "42 isKindOf: Object" (ev "42 isKindOf: Object") true)
(st-test "42 isKindOf: String" (ev "42 isKindOf: String") false)
(st-test "3.14 isKindOf: Float" (ev "3.14 isKindOf: Float") true)
(st-test "3.14 isKindOf: Number" (ev "3.14 isKindOf: Number") true)
(st-test "'hi' isKindOf: String" (ev "'hi' isKindOf: String") true)
(st-test "'hi' isKindOf: ArrayedCollection"
(ev "'hi' isKindOf: ArrayedCollection") true)
(st-test "true isKindOf: Boolean" (ev "true isKindOf: Boolean") true)
(st-test "nil isKindOf: UndefinedObject"
(ev "nil isKindOf: UndefinedObject") true)
;; User-class chain.
(st-test "Cat new isKindOf: Cat" (evp "^ Cat new isKindOf: Cat") true)
(st-test "Cat new isKindOf: Object" (evp "^ Cat new isKindOf: Object") true)
(st-test "Cat new isKindOf: Boolean"
(evp "^ Cat new isKindOf: Boolean") false)
(st-test "Kitten new isKindOf: Cat"
(evp "^ Kitten new isKindOf: Cat") true)
;; ── 16. isMemberOf: requires exact class match ──
(st-test "42 isMemberOf: SmallInteger" (ev "42 isMemberOf: SmallInteger") true)
(st-test "42 isMemberOf: Integer" (ev "42 isMemberOf: Integer") false)
(st-test "42 isMemberOf: Number" (ev "42 isMemberOf: Number") false)
(st-test "Cat new isMemberOf: Cat"
(evp "^ Cat new isMemberOf: Cat") true)
(st-test "Cat new isMemberOf: Kitten"
(evp "^ Cat new isMemberOf: Kitten") false)
;; ── 17. respondsTo: — user method dictionary search ──
(st-test "Cat respondsTo: #miaow"
(evp "^ Cat new respondsTo: #miaow") true)
(st-test "Cat respondsTo: inherited (only own/super in dict)"
(evp "^ Kitten new respondsTo: #miaow") true)
(st-test "Cat respondsTo: missing"
(evp "^ Cat new respondsTo: #noSuchSelector") false)
(st-test "respondsTo: on class-ref searches class side"
(evp "^ Cat respondsTo: #named:") true)
;; Non-symbol arg coerces via str — also accepts strings.
(st-test "respondsTo: with string arg"
(evp "^ Cat new respondsTo: 'miaow'") true)
(list st-test-pass st-test-fail)