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

more tests

Browse Source
This commit is contained in:
Danny Yoo 2011-09-08 15:09:23 -04:00
parent 6b78d5154f
commit 1618b3d180
3 changed files with 66 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/more-tests/view.expected
View File

@ -37,4 +37,10 @@ false
(html (head) (body (h1 (@ (id "header"))) (p (@ (id "para")) (li "An item"))))
(html (head) (body (h1 (@ (id "header"))) (p (@ (id "para")) (ul (li "one") (li "two")))))
(html (head) (body (h1 (@ (id "header"))) (p (@ (id "para")) (ul (li "one") (li "two") (li "three")))))
(html (head) (body (h1 (@ (id "header"))) (p (@ (id "para")) (ul (li "zero") (li "one")))))
(html (head) (body (h1 (@ (id "header"))) (p (@ (id "para")) (ul (li "zero") (li "one")))))
"this is a message"
"hello again"
(html (head) (body (input (@ (id "my-field") (type "text") (value "this is a message")))))
(html (head) (body (input (@ (id "my-field") (type "text") (value "hello again")))))
"hello again"

58
tests/more-tests/view.rkt
View File

@ -162,3 +162,61 @@
(ul (li "one")))))))
"para")))
(xexp->dom '(li "zero"))))
(newline)
(view-form-value
(view-focus (->view
(xexp->dom '(html (head)
(body (input (@ (id "my-field")
(type "text")
(value "this is a message")))))))
"my-field"))
(view-form-value
(update-view-form-value
(view-focus (->view
(xexp->dom '(html (head)
(body (input (@ (id "my-field")
(type "text")
(value "this is a message")))))))
"my-field")
"hello again"))
;; For some reason, updating the form value doesn't touch the attribute, so the
;; xexp stays the same.
(view->xexp
(update-view-form-value
(view-focus (->view
(xexp->dom '(html (head)
(body (input (@ (id "my-field")
(type "text")
(value "this is a message")))))))
"my-field")
"hello again"))
;; When you change the attribute, it also changes the form value...
;; Good grief, sometimes I dislike the DOM...
(view->xexp
(update-view-attr
(view-focus (->view
(xexp->dom '(html (head)
(body (input (@ (id "my-field")
(type "text")
(value "this is a message")))))))
"my-field")
"value"
"hello again"))
(view-form-value
(update-view-attr
(view-focus (->view
(xexp->dom '(html (head)
(body (input (@ (id "my-field")
(type "text")
(value "this is a message")))))))
"my-field")
"value"
"hello again"))

1
web-world/js-impl.js
View File

@ -1367,6 +1367,7 @@
plt.baselib.lists.makeList(plt.baselib.symbols.makeSymbol(dom.attributes[i].nodeName),
dom.attributes[i].nodeValue),
attrs);
attrs = plt.baselib.lists.reverse(attrs);
}
while(child !== null) {
if (child.nodeType === 1) {