suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix typos in test.rkt

Browse Source
This commit is contained in:
nocheroot 2018-05-21 12:41:13 -05:00 committed by Gustavo Massaccesi
parent 5d1371cb73
commit fdc033474a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-test/tests/pkg/test.rkt
View File

@ -15,16 +15,16 @@
(define f (syntax->datum f-stx))
(format "tests-~a.rkt" f))])
(syntax/loc stx
(let ([succesful 0])
(let ([successful 0])
(run-tests*
(list (let ()
(local-require (only-in tests-f run-pkg-tests))
(λ ()
(printf "starting ~a\n" 'tests-f)
(run-pkg-tests)
(set! succesful (add1 succesful))))
(set! successful (add1 successful))))
...))
(unless (= succesful (length '(f ...)))
(unless (= successful (length '(f ...)))
(exit 1)))))]))
(define (run-tests* l)