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

no need for mk-args

Browse Source 
svn: r5352
This commit is contained in:
Eli Barzilay 2007-01-14 04:24:44 +00:00
parent e4bf3d4f47
commit 3cf7d2a55e
1 changed files with 7 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/handin-server/utils.ss
View File

@ -247,26 +247,20 @@
(exn:fail:contract:variable-id x))))]) (exn:fail:contract:variable-id x))))])
(e #`(#,namespace-variable-value '#,id #t)))) (e #`(#,namespace-variable-value '#,id #t))))
(define (mk-args args)
(let loop ([l args])
(if (null? l)
""
(string-append " " (format "~e" (car l)) (loop (cdr l))))))
(define test-history-enabled (make-parameter #f)) (define test-history-enabled (make-parameter #f))
(define test-history (make-parameter null)) (define test-history (make-parameter null))
(define (format-history one-test) (define (format-history one-test)
(if (test-history-enabled) (if (test-history-enabled)
(format "(begin~a)" (format "(begin~a)"
(apply string-append (apply string-append (map (lambda (s) (format " ~a" s))
(map (lambda (s) (reverse (test-history)))))
(format " ~a" s)) one-test))
(reverse (test-history)))))
one-test))
(define (check-proc e result equal? f . args) (define (check-proc e result equal? f . args)
(let ([test (format "(~a~a)" f (mk-args args))]) (let ([test (format "(~a~a)" f
(apply string-append
(map (lambda (a) (format " ~e" a)) args)))])
(when (test-history-enabled) (when (test-history-enabled)
(test-history (cons test (test-history)))) (test-history (cons test (test-history))))
(current-run-status (format "running instructor-supplied test ~a" (current-run-status (format "running instructor-supplied test ~a"