https://github.com/jrincayc/ucblogo-code
Tip revision: 1da9cc2eb6b14a636c407a9262dcb36711682ed2 authored by Barak A. Pearlmutter on 31 March 2023, 13:44:18 UTC
log changes
log changes
Tip revision: 1da9cc2
_suite-template.lg
;MAKING A NEW TEST SUITE:
;-------------------------
;1) replace $title with the human-readable title
;2) replace $suite with the short name of the suite (alpha/numeric)
;3) remove these comments
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;
;; BERKELEY LOGO ;;
;; $title ;;
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
InstallSuite [$title] [Tests.$suite.Setup]
;; The list of all OOP unit tests
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MAKE "Tests.$suite [
;list tests here
Tests.$suite.SampleTest
]
;; Test Suite setup procedure, main entry
;; point for all tests in this suite
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
to Tests.$suite.Setup
RunTests :Tests.$suite
end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;
;; HELPERS, MISC ;;
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;
;; ADD INDIVIDUAL UNIT TESTS BELOW ;;
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;all tests must return T/F indicating success/failure
to Tests.$suite.SampleTest
OUTPUT (AND [EQUAL? 0 0]
[EQUAL? 0 0]
[EQUAL? 0 0]
[EQUAL? 0 0])
end