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

all drs test suites now passing except module language

Browse Source 
svn: r11091
This commit is contained in:
Robby Findler 2008-08-05 20:27:17 +00:00
parent 47a2d5871f
commit 3f14a1325c
3 changed files with 22 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/string-constants/english-string-constants.ss
View File

@ -847,11 +847,11 @@ please adhere to these guidelines:
(scheme-menu-name "S&cheme")
(execute-menu-item-label "Run")
(execute-menu-item-help-string "Restart the program in the definitions window")
(ask-quit-menu-item-label "Ask the program to quit")
(ask-quit-menu-item-label "Ask the Program to Quit")
(ask-quit-menu-item-help-string "Uses break-thread to stop the primary thread of the current evaluation")
(force-quit-menu-item-label "Force the program to quit")
(force-quit-menu-item-label "Force the Program to Quit")
(force-quit-menu-item-help-string "Uses custodian-shutdown-all to abort the current evaluation")
(limit-memory-menu-item-label "Limit memory...")
(limit-memory-menu-item-label "Limit Memory...")
(limit-memory-msg-1 "The limit will take effect the next time the program")
(limit-memory-msg-2 "is Run, and it must be at least 100 megabytes.")
(limit-memory-unlimited "Unlimited")

10
collects/tests/drscheme/language-test.ss
View File

@ -1353,11 +1353,11 @@ the settings above should match r5rs
(printf ">> finished ~a\n" (syntax->datum #'arg))))]))
(define (run-test)
;(go pretty-big)
(go pretty-big)
(go r5rs)
;(go beginner)
;(go beginner/abbrev)
;(go intermediate)
;(go intermediate/lambda)
(go beginner)
(go beginner/abbrev)
(go intermediate)
(go intermediate/lambda)
(go advanced)
)

24
collects/tests/drscheme/repl-test.ss
View File

@ -1321,18 +1321,21 @@ This produces an ACK message
(let/ec escape
(for-each (run-single-test (get-int-pos) escape raw?) test-data))))
(define kill-menu-item "Force the Program to Quit")
(define (kill-tests)
(next-test)
(clear-definitions drscheme-frame)
(do-execute drscheme-frame)
(test:menu-select "Scheme" "Kill")
(test:menu-select "Scheme" kill-menu-item)
(let ([win (wait-for-new-frame drscheme-frame)])
(test:button-push "OK")
(let ([drs2 (wait-for-new-frame win)])
(unless (eq? drs2 drscheme-frame)
(error 'kill-test1 "expected original drscheme frame to come back to the front"))))
(next-test)
(type-in-definitions drscheme-frame "(kill-thread (current-thread))")
(do-execute drscheme-frame #f)
(let ([win (wait-for-new-frame drscheme-frame)])
@ -1341,6 +1344,7 @@ This produces an ACK message
(unless (eq? drs2 drscheme-frame)
(error 'kill-test2 "expected original drscheme frame to come back to the front"))))
(next-test)
(clear-definitions drscheme-frame)
(do-execute drscheme-frame)
(type-in-definitions
@ -1348,7 +1352,7 @@ This produces an ACK message
"(define (f) (queue-callback f) (error 'ouch)) (f)")
(do-execute drscheme-frame #f)
(sleep 1/2)
(test:menu-select "Scheme" "Kill")
(test:menu-select "Scheme" kill-menu-item)
(let ([win (wait-for-new-frame drscheme-frame null 360)])
(test:button-push "OK")
(let ([drs2 (wait-for-new-frame win)])
@ -1378,10 +1382,10 @@ This produces an ACK message
(let* ([end (- (get-int-pos) 1)]
[output (fetch-output drscheme-frame start end)]
[expected "reference to undefined identifier: x"])
[expected "{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x"])
(unless (equal? output expected)
(failure)
(fprintf (current-error-port) "callcc-test: expected ~s, got ~s" expected output)))))
(fprintf (current-error-port) "callcc-test: expected ~s, got ~s\n" expected output)))))
(define (random-seed-test)
(define expression
@ -1449,10 +1453,10 @@ This produces an ACK message
(run-test-in-language-level #f)
(run-test-in-language-level #t)
;(kill-tests)
;(callcc-test)
;(top-interaction-test)
;(final-report)
(kill-tests)
(callcc-test)
(top-interaction-test)
(final-report)
)