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

minor rackety

Browse Source
This commit is contained in:
Robby Findler 2010-08-30 09:06:13 -05:00
parent eb75edfaa1
commit ab839f9efd
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,15 +9,15 @@
(fire-up-drscheme-and-run-tests (fire-up-drscheme-and-run-tests
(λ () (λ ()
(let* ([drs-frame (wait-for-drscheme-frame)] (let* ([drr-frame (wait-for-drscheme-frame)]
[fn (make-temporary-file "save-teaching-lang-test~a")]) [fn (make-temporary-file "save-teaching-lang-test~a")])
(test:menu-select "File" "New Tab") (test:menu-select "File" "New Tab")
(let ([definitions-text (send drs-frame get-definitions-text)] (let ([definitions-text (send drr-frame get-definitions-text)]
[interactions-text (send drs-frame get-interactions-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"How to Design Programs" #rx"Beginning Student$"))
(clear-definitions drs-frame) (clear-definitions drr-frame)
(send definitions-text set-filename fn) (send definitions-text set-filename fn)
(send definitions-text insert "(define (f x) x)\n(f 1)\n") (send definitions-text insert "(define (f x) x)\n(f 1)\n")
(test:menu-select "File" "Save Definitions") (test:menu-select "File" "Save Definitions")
@ -29,15 +29,15 @@
(fprintf (current-error-port) "---- saved file, cut here ----\n") (fprintf (current-error-port) "---- saved file, cut here ----\n")
(error 'save-teaching-lang-file.rkt (error 'save-teaching-lang-file.rkt
"expected the saved file to contain the word 'metadata' in a comment")) "expected the saved file to contain the word 'metadata' in a comment"))
(do-execute drs-frame) (do-execute drr-frame)
(test:menu-select "File" "Close Tab") (test:menu-select "File" "Close Tab")
(use-get/put-dialog (use-get/put-dialog
(λ () (λ ()
(test:menu-select "File" "Open...")) (test:menu-select "File" "Open..."))
fn) fn)
(do-execute drs-frame) (do-execute drr-frame)
(let ([result (fetch-output (let ([result (fetch-output
drs-frame drr-frame
(send interactions-text paragraph-start-position 2) (send interactions-text paragraph-start-position 2)
(send interactions-text last-position))]) (send interactions-text last-position))])
(test:menu-select "File" "Close Tab") (test:menu-select "File" "Close Tab")