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

Fix issue found by Eric Tanter

Browse Source
This commit is contained in:
Jay McCarthy 2011-03-29 09:24:25 -06:00
parent ba70e05ae2
commit 113e0aa184
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/web-server/formlets-test.rkt
View File

@ -418,6 +418,13 @@
(option ((value "0")) "1") (option ((value "0")) "1")
(option ((value "1")) "2") (option ((value "1")) "2")
(option ((value "2")) "3")))) (option ((value "2")) "3"))))
(test-equal? "multiselect-input"
(test-display (multiselect-input (list "xee" "john" "joe") #:display (curry format "something ~a") ))
'((select
((multiple "true") (name "input_0"))
(option ((value "0")) "something xee")
(option ((value "1")) "something john")
(option ((value "2")) "something joe"))))
; select ; select
(test-equal? "select-input" (test-equal? "select-input"
@ -638,3 +645,6 @@
(values "Jay" 10 6 10 8))))) (values "Jay" 10 6 10 8)))))
)) ))
(require rackunit/text-ui)
(run-tests all-formlets-tests)

3
collects/web-server/formlets/input.rkt
View File

@ -201,7 +201,8 @@
`(select (,@(if multiple? '([multiple "true"]) empty) `(select (,@(if multiple? '([multiple "true"]) empty)
[name ,name] [name ,name]
,@attrs) ,@attrs)
,@(for/list ([(vn e) (in-hash value->element)]) ,@(for/list ([vn (in-range i)])
(define e (hash-ref value->element vn))
(define v (number->string vn)) (define v (number->string vn))
`(option ([value ,v] `(option ([value ,v]
,@(if (selected? e) ,@(if (selected? e)