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

removed more test-boxes code

Browse Source 
svn: r5348
This commit is contained in:
Eli Barzilay 2007-01-13 05:03:39 +00:00
parent 4162d15249
commit ade44ab9c5
1 changed files with 2 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
collects/handin-server/extra-utils.ss
View File

@ -93,9 +93,6 @@
;; filter ;; filter
;; * snip->text is used earlier in the process, where comment-box text is still ;; * snip->text is used earlier in the process, where comment-box text is still
;; available ;; available
;; * test-boxes are registered through some hacked up code that will turn them
;; into an editor% with text that input-port->text-input-port will then spit
;; out.
(require (lib "framework.ss" "framework")) ; for drscheme snips, used below (require (lib "framework.ss" "framework")) ; for drscheme snips, used below
@ -191,8 +188,8 @@
(input->process->output maxwidth textualize? untabify? bad-re) (input->process->output maxwidth textualize? untabify? bad-re)
(get-output-bytes (current-output-port))))) (get-output-bytes (current-output-port)))))
;; --------------------------------------------------------- ;; ------------------------------------------------
;; This code will hack textualization of test and text boxes ;; This code will hack textualization of text boxes
(define (insert-to-editor editor . xs) (define (insert-to-editor editor . xs)
(for-each (lambda (x) (for-each (lambda (x)
@ -200,38 +197,6 @@
(if (string? x) x (make-object editor-snip% x)))) (if (string? x) x (make-object editor-snip% x))))
xs)) xs))
;; support for "test-case-box%"
(define test-sc
(new (class snip-class%
(define/override (read f)
(let ([test (new test%)]) (send test read-from-file f) test))
(super-new))))
(define test%
(class editor-snip%
(inherit set-snipclass get-editor)
(define to-test (new text%))
(define expected (new text%))
(define predicate (new text%))
(define should-raise (new text%))
(define error-message (new text%))
(define/public (read-from-file f)
(unless (eq? 2 (send test-sc reading-version f)) (error "BOOM"))
(send to-test read-from-file f)
(send expected read-from-file f)
(send predicate read-from-file f)
(send should-raise read-from-file f)
(send error-message read-from-file f)
(send f get (box 0)) ; enabled?
(send f get (box 0)) ; collapsed?
(send f get (box 0))) ; error-box
(super-new)
(set-snipclass test-sc)
(insert-to-editor (get-editor)
"{{TEST:\n expression: " to-test "\n should be: " expected "\n}}")))
(send test-sc set-classname "test-case-box%")
(send test-sc set-version 2)
(send (get-the-snip-class-list) add test-sc)
;; support for "text-box%" ;; support for "text-box%"
(define text-box-sc (define text-box-sc
(new (class snip-class% (new (class snip-class%