fixed a bug in the test suite (so that now the language is only changed when needed)

This commit is contained in:
Robby Findler 2010-08-30 09:22:15 -05:00
parent 35de0b22d0
commit cfa1c9bf43

View File

@ -99,9 +99,16 @@
(let ([last-lang #f])
(for ([t (in-list tests)])
(let ([this-lang (test-lang-regexp t)])
(unless (equal? this-lang last-lang)
(let* ([this-lang (test-lang-regexp t)]
[same-last-time? (and (regexp? last-lang)
(equal? (object-name last-lang)
(object-name this-lang)))])
(unless same-last-time?
(set! last-lang this-lang)
(set-language-level! (list #rx"How to Design Programs" this-lang))))
(clear-definitions drr-frame)
(send definitions-text insert (test-program t))
(do-execute drr-frame)