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