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

smalltalk: SUnit port (TestCase/TestSuite/TestResult/TestFailure) + 19 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 13:43:18 +00:00
parent fa600442d6
commit 0ca664b81c
5 changed files with 380 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/smalltalk/test.sh
View File

@@ -63,10 +63,12 @@ EPOCHS
(epoch 4)
(load "lib/smalltalk/eval.sx")
(epoch 5)
(load "lib/smalltalk/tests/tokenize.sx")
(load "lib/smalltalk/sunit.sx")
(epoch 6)
(load "$FILE")
(load "lib/smalltalk/tests/tokenize.sx")
(epoch 7)
(load "$FILE")
(epoch 8)
(eval "(list st-test-pass st-test-fail)")
EPOCHS
fi
@@ -116,10 +118,12 @@ EPOCHS
(epoch 4)
(load "lib/smalltalk/eval.sx")
(epoch 5)
(load "lib/smalltalk/tests/tokenize.sx")
(load "lib/smalltalk/sunit.sx")
(epoch 6)
(load "$FILE")
(load "lib/smalltalk/tests/tokenize.sx")
(epoch 7)
(load "$FILE")
(epoch 8)
(eval "(map (fn (f) (get f :name)) st-test-fails)")
EPOCHS
fi