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") (scheme-menu-name "S&cheme")
(execute-menu-item-label "Run") (execute-menu-item-label "Run")
(execute-menu-item-help-string "Restart the program in the definitions window") (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") (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") (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-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-msg-2 "is Run, and it must be at least 100 megabytes.")
(limit-memory-unlimited "Unlimited") (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))))])) (printf ">> finished ~a\n" (syntax->datum #'arg))))]))
(define (run-test) (define (run-test)
;(go pretty-big) (go pretty-big)
(go r5rs) (go r5rs)
;(go beginner) (go beginner)
;(go beginner/abbrev) (go beginner/abbrev)
;(go intermediate) (go intermediate)
;(go intermediate/lambda) (go intermediate/lambda)
(go advanced) (go advanced)
) )

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

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