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

Unbreak the test-engine-test.rkt test suite.

Browse Source 
- signatures are only in ASL now
- the error messages for the DMdA languages are different
This commit is contained in:
Mike Sperber 2010-10-18 09:37:48 +02:00
parent 2a418b9cf0
commit 32455894bc
1 changed files with 19 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
collects/tests/drracket/test-engine-test.rkt
View File

@ -12,7 +12,7 @@
(define (set-language close-dialog?)
(set-language-level! (language) close-dialog?))
(define (common)
(define (common-test-engine)
(test-expression "(check-expect 1 1)"
"The test passed!"
#:repl-expected "Both tests passed!")
@ -26,7 +26,7 @@
#:check-failures-expected
(list (make-check-expect-failure "1" "2" 1 0))))
(define (common-*sl)
(define (common-signatures-*sl)
(test-expression "(: foo Integer) (define foo 5)"
""
#:repl-expected "define: cannot redefine name: foo")
@ -36,13 +36,13 @@
#:signature-violations-expected
(list (make-signature-violation "\"bar\"" 1 7))))
(define (common-DMdA)
(define (common-signatures-DMdA)
(test-expression "(: foo integer) (define foo 5)"
""
#:repl-expected "define: cannot redefine name: foo")
#:repl-expected "define: Zweite Definition für denselben Namen")
(test-expression "(: foo integer) (define foo \"bar\")"
""
#:repl-expected "define: cannot redefine name: foo"
#:repl-expected "define: Zweite Definition für denselben Namen"
#:signature-violations-expected
(list (make-signature-violation "\"bar\"" 1 7))))
@ -65,8 +65,7 @@
(define (beginner)
(parameterize ([language (list "How to Design Programs" #rx"Beginning Student(;|$)")])
(prepare-for-test-expression)
(common)
(common-*sl)))
(common-test-engine)))
;
@ -89,8 +88,7 @@
(parameterize ([language (list "How to Design Programs"
#rx"Beginning Student with List Abbreviations(;|$)")])
(prepare-for-test-expression)
(common)
(common-*sl)))
(common-test-engine)))
;
@ -112,8 +110,7 @@
(define (intermediate)
(parameterize ([language (list "How to Design Programs" #rx"Intermediate Student(;|$)")])
(prepare-for-test-expression)
(common)
(common-*sl)))
(common-test-engine)))
;
;
@ -136,8 +133,7 @@
(parameterize ([language (list "How to Design Programs"
#rx"Intermediate Student with lambda(;|$)")])
(prepare-for-test-expression)
(common)
(common-*sl)))
(common-test-engine)))
;
@ -160,33 +156,33 @@
(define (advanced)
(parameterize ([language (list "How to Design Programs" #rx"Advanced Student(;|$)")])
(prepare-for-test-expression)
(common)
(common-*sl)))
(common-test-engine)
(common-signatures-*sl)))
(define (DMdA-beginner)
(parameterize ([language (list "DeinProgramm" #rx"Die Macht der Abstraktion - Anfänger(;|$)")])
(prepare-for-test-expression)
(common)
(common-DMdA)))
(common-test-engine)
(common-signatures-DMdA)))
(define (DMdA-vanilla)
(parameterize ([language (list "DeinProgramm" #rx"Die Macht der Abstraktion(;|$)")])
(prepare-for-test-expression)
(common)
(common-DMdA)))
(common-test-engine)
(common-signatures-DMdA)))
(define (DMdA-assignments)
(parameterize ([language (list "DeinProgramm" #rx"Die Macht der Abstraktion mit Zuweisungen(;|$)")])
(prepare-for-test-expression)
(common)
(common-DMdA)))
(common-test-engine)
(common-signatures-DMdA)))
(define (DMdA-advanced)
(parameterize ([language (list "DeinProgramm" #rx"Die Macht der Abstraktion - fortgeschritten(;|$)")])
(prepare-for-test-expression)
(common)
(common-DMdA)))
(common-test-engine)
(common-signatures-DMdA)))
(define (prepare-for-test-expression)
(let ([drs (wait-for-drscheme-frame)])