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

adjust tests for the new language dialog

Browse Source 
(the names of the textbooks are no longer explicit
in the hierarchy of the languages so just specify
"Beginning Student", for example)
This commit is contained in:
Robby Findler 2012-11-03 15:49:33 -05:00
parent 77fb5ec69d
commit 4669b6bfed
9 changed files with 30 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/drracket/hangman.rkt
View File

@ -8,7 +8,7 @@
(define drs (wait-for-drracket-frame))
(define defs (send drs get-definitions-text))
(define rep (send drs get-interactions-text))
(set-language-level! (list #rx"How to Design Programs" #rx"Beginning Student$"))
(set-language-level! (list #rx"Beginning Student$"))
(run-one/sync
(lambda ()
(send defs load-file (collection-file-path "hangman1.rkt" "htdp" "tests"))))

12
collects/tests/drracket/language-test.rkt
View File

@ -364,7 +364,7 @@ the settings above should match r5rs
; ;;;;;
(define (beginner)
(parameterize ([language (list "How to Design Programs" #rx"Beginning Student(;|$)")])
(parameterize ([language (list #rx"Beginning Student(;|$)")])
(check-top-of-repl)
(generic-settings #t)
(generic-output #f #f #f #f)
@ -514,8 +514,7 @@ the settings above should match r5rs
(define (beginner/abbrev)
(parameterize ([language (list "How to Design Programs"
#rx"Beginning Student with List Abbreviations(;|$)")])
(parameterize ([language (list #rx"Beginning Student with List Abbreviations(;|$)")])
(check-top-of-repl)
(generic-settings #t)
@ -665,7 +664,7 @@ the settings above should match r5rs
(define (intermediate)
(parameterize ([language (list "How to Design Programs" #rx"Intermediate Student(;|$)")])
(parameterize ([language (list #rx"Intermediate Student(;|$)")])
(check-top-of-repl)
(generic-settings #t)
@ -812,8 +811,7 @@ the settings above should match r5rs
(define (intermediate/lambda)
(parameterize ([language (list "How to Design Programs"
#rx"Intermediate Student with lambda(;|$)")])
(parameterize ([language (list #rx"Intermediate Student with lambda(;|$)")])
(check-top-of-repl)
(generic-settings #t)
@ -955,7 +953,7 @@ the settings above should match r5rs
(define (advanced)
(parameterize ([language (list "How to Design Programs" #rx"Advanced Student(;|$)")])
(parameterize ([language (list #rx"Advanced Student(;|$)")])
(check-top-of-repl)
(generic-settings #t)

8
collects/tests/drracket/sample-solutions-one-window.rkt
View File

@ -13,10 +13,10 @@
(define (section->language section)
(cond
[(section . <= . 12) '("How to Design Programs" "Beginning Student")]
[(section . <= . 19) '("How to Design Programs" "Intermediate Student")]
[(section . <= . 29) '("How to Design Programs" "Intermediate Student with lambda")]
[else '("How to Design Programs" "Advanced Student")]))
[(section . <= . 12) '("Beginning Student")]
[(section . <= . 19) '("Intermediate Student")]
[(section . <= . 29) '("Intermediate Student with lambda")]
[else '("Advanced Student")]))
(define default-toc-entry '(#f ()))

6
collects/tests/drracket/stepper-test.rkt
View File

@ -32,7 +32,7 @@
(run-fully-specified-tests)
#|
(set-language-level! (list "How to Design Programs" "Beginning Student with List Abbreviations"))
(set-language-level! (list "Beginning Student with List Abbreviations"))
(run-string-test "(define (f x) (* x 2))\n(+ 1 (f (+ 1 1)))")
(run-string-test "(sqrt 2)")
(run-string-test "(car)")
@ -42,12 +42,12 @@
)
(define (run-fully-specified-tests)
(set-language-level! (list "How to Design Programs" "Beginning Student"))
(set-language-level! (list "Beginning Student"))
(beginner-tests/no-list)
(test-transcript '(cons 1 (cons 2 (list 3 4 5)))
'(cons 1 (cons 2 (cons 3 (cons 4 (cons 5 empty))))))
(set-language-level! (list "How to Design Programs" "Beginning Student with List Abbreviations"))
(set-language-level! (list "Beginning Student with List Abbreviations"))
(beginner-tests/no-list)
(test-transcript '(cons 1 (cons 2 (list 3 4 5)))
'(cons 1 (list 2 3 4 5))

2
collects/tests/drracket/teaching-lang-coverage.rkt
View File

@ -96,7 +96,7 @@
(object-name this-lang)))])
(unless same-last-time?
(set! last-lang this-lang)
(set-language-level! (list #rx"How to Design Programs" this-lang))))
(set-language-level! (list this-lang))))
(clear-definitions drr-frame)
(insert-in-definitions drr-frame (test-program t))

2
collects/tests/drracket/teaching-lang-save-file.rkt
View File

@ -16,7 +16,7 @@
(let ([definitions-text (send drr-frame get-definitions-text)]
[interactions-text (send drr-frame get-interactions-text)])
(set-language-level! (list #rx"How to Design Programs" #rx"Beginning Student$"))
(set-language-level! (list #rx"Beginning Student$"))
(clear-definitions drr-frame)
(queue-callback/res
(λ ()

2
collects/tests/drracket/teaching-lang-sharing-modules.rkt
View File

@ -36,7 +36,7 @@ Of course, other (similar) things can go wrong, too.
(λ ()
(putenv "PLTDRHTDPNOCOMPILED" "yes")
(define drs-frame (wait-for-drracket-frame))
(set-language-level! '("How to Design Programs" "Beginning Student"))
(set-language-level! '("Beginning Student"))
(clear-definitions drs-frame)
(for ([exp (in-list things-to-try)])
(insert-in-definitions drs-frame (format "~s\n" exp)))

6
collects/tests/drracket/teachpack.rkt
View File

@ -158,12 +158,12 @@
"3"))
(define (good-tests)
(set-language-level! '("How to Design Programs" "Beginning Student"))
(set-language-level! '("Beginning Student"))
(do-execute drs-frame)
(generic-tests))
(define (bad-tests)
(set-language-level! '("How to Design Programs" "Beginning Student"))
(set-language-level! '("Beginning Student"))
(test-bad/execute-teachpack
"undefined-id"
@ -218,7 +218,7 @@
(directory-list dir)))
paths))]
[teachpack-dir (normalize-path (collection-path "teachpack"))])
(set-language-level! '("How to Design Programs" "Advanced Student"))
(set-language-level! '("Advanced Student"))
(do-execute drs-frame)
(test-teachpacks (list (build-path teachpack-dir "2htdp")
(build-path teachpack-dir "htdp")))))

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

@ -105,7 +105,7 @@
; ;;;;;
(define (beginner)
(parameterize ([language (list "How to Design Programs" #rx"Beginning Student(;|$)")])
(parameterize ([language (list #rx"Beginning Student(;|$)")])
(prepare-for-test-expression)
(common-test-engine #f)))
@ -127,8 +127,7 @@
(define (beginner/abbrev)
(parameterize ([language (list "How to Design Programs"
#rx"Beginning Student with List Abbreviations(;|$)")])
(parameterize ([language (list #rx"Beginning Student with List Abbreviations(;|$)")])
(prepare-for-test-expression)
(common-test-engine #f)))
@ -150,7 +149,7 @@
(define (intermediate)
(parameterize ([language (list "How to Design Programs" #rx"Intermediate Student(;|$)")])
(parameterize ([language (list #rx"Intermediate Student(;|$)")])
(prepare-for-test-expression)
(common-test-engine #f)))
@ -172,8 +171,7 @@
(define (intermediate/lambda)
(parameterize ([language (list "How to Design Programs"
#rx"Intermediate Student with lambda(;|$)")])
(parameterize ([language (list #rx"Intermediate Student with lambda(;|$)")])
(prepare-for-test-expression)
(common-test-engine #f)))
@ -196,32 +194,32 @@
(define (advanced)
(parameterize ([language (list "How to Design Programs" #rx"Advanced Student(;|$)")])
(parameterize ([language (list #rx"Advanced Student(;|$)")])
(prepare-for-test-expression)
(common-test-engine #f)
(common-signatures-*sl)))
(define (DMdA-beginner)
(parameterize ([language (list "DeinProgramm" #rx"Die Macht der Abstraktion - Anfänger(;|$)")])
(parameterize ([language (list #rx"Die Macht der Abstraktion - Anfänger(;|$)")])
(prepare-for-test-expression)
(common-test-engine #t)
(common-signatures-DMdA)))
(define (DMdA-vanilla)
(parameterize ([language (list "DeinProgramm" #rx"Die Macht der Abstraktion(;|$)")])
(parameterize ([language (list #rx"Die Macht der Abstraktion(;|$)")])
(prepare-for-test-expression)
(common-test-engine #t)
(common-signatures-DMdA)))
(define (DMdA-assignments)
(parameterize ([language (list "DeinProgramm" #rx"Die Macht der Abstraktion mit Zuweisungen(;|$)")])
(parameterize ([language (list #rx"Die Macht der Abstraktion mit Zuweisungen(;|$)")])
(prepare-for-test-expression)
(common-test-engine #t)
(common-signatures-DMdA)))
(define (DMdA-advanced)
(parameterize ([language (list "DeinProgramm" #rx"Die Macht der Abstraktion - fortgeschritten(;|$)")])
(parameterize ([language (list #rx"Die Macht der Abstraktion - fortgeschritten(;|$)")])
(prepare-for-test-expression)
(common-test-engine #t)
(common-signatures-DMdA)))
@ -487,13 +485,13 @@
(define (test-disabling-tests)
(define drs (wait-for-drracket-frame))
(parameterize ([language (list "How to Design Programs" #rx"Beginning Student(;|$)")])
(parameterize ([language (list #rx"Beginning Student(;|$)")])
(prepare-for-test-expression)
(test:menu-select "Racket" "Disable Tests")
(test-expression "(check-expect 1 2)" "Tests disabled.")
(test:menu-select "Racket" "Enable Tests"))
(parameterize ([language (list "DeinProgramm" #rx"Die Macht der Abstraktion - Anfänger(;|$)")])
(parameterize ([language (list #rx"Die Macht der Abstraktion - Anfänger(;|$)")])
(prepare-for-test-expression)
(test:menu-select "Racket" "Disable Tests")
(test-expression "(check-expect 1 2)" "Tests disabled.")