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

adding tests for css updating; be careful: trying to make text-decoration blink appears to have no effect

Browse Source
This commit is contained in:
Danny Yoo 2011-09-07 17:00:59 -04:00
parent 901b4d9305
commit 2126c6c513
3 changed files with 60 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,4 +2,8 @@
"some text"
(html (head) (body (p "hello world, this is a test") (div (@ (id "a div")) "some text")))
"blah"
(html (head) (body (p (@ (class "baz")))))
"baz"
(html (head) (body (p (@ (class "baz")))))
"line-through"
"underline"
(html (head) (body (p (@ (style "text-decoration: underline; ")))))

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

@ -18,6 +18,15 @@
(view->xexp (view-up (view-up updated-new-view)))
(define (my-view-top v)
(cond [(view-up? v)
(my-view-top (view-up v))]
[else
v]))
;; Trying attribute editing
(view-attr (view-down
(view-right
(view-down
@ -25,12 +34,14 @@
(body (p (@ (class "blah"))))))))))
"class")
(define (my-view-top v)
(cond [(view-up? v)
(my-view-top (view-up v))]
[else
v]))
(view-attr (update-view-attr (view-down
(view-right
(view-down
(->view (xexp->dom `(html (head)
(body (p (@ (class "blah"))))))))))
"class"
"baz")
"class")
(view->xexp
(my-view-top
@ -41,3 +52,32 @@
(body (p (@ (class "blah"))))))))))
"class"
"baz")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(view-css (view-down
(view-right
(view-down
(->view (xexp->dom `(html (head)
(body (p (@ (style "text-decoration: line-through"))))))))))
"text-decoration")
(view-css (update-view-css (view-down
(view-right
(view-down
(->view (xexp->dom `(html (head)
(body (p (@ (style "text-decoration: line-through"))))))))))
"text-decoration"
"underline")
"text-decoration")
(view->xexp
(my-view-top
(update-view-css (view-down
(view-right
(view-down
(->view (xexp->dom `(html (head)
(body (p (@ (style "text-decoration: line-through"))))))))))
"text-decoration"
"underline")))

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

@ -211,7 +211,7 @@
MockView.prototype.updateAttr = function(name, value) {
return this.act(
function(cursor) {
return cursor.replaceNode([$(cursor.node[0].cloneNode(true))
return cursor.replaceNode([$(cursor.node[0].cloneNode(false))
.attr(name, value).get(0)]
.concat(cursor.node.slice(1)));
},
@ -235,7 +235,9 @@
MockView.prototype.updateCss = function(name, value) {
return this.act(
function(cursor) {
return cursor.replaceNode([$(cursor.node[0].cloneNode(true))
console.log($(cursor.node[0].cloneNode(false))
.css(name, value).get(0));
return cursor.replaceNode([$(cursor.node[0].cloneNode(false))
.css(name, value).get(0)]
.concat(cursor.node.slice(1)));
},
@ -259,7 +261,7 @@
MockView.prototype.updateFormValue = function(value) {
return this.act(
function(cursor) {
return cursor.replaceNode([$(cursor.node[0].cloneNode(true))
return cursor.replaceNode([$(cursor.node[0].cloneNode(false))
.val(value).get(0)]
.concat(cursor.node.slice(1)));
},
@ -367,7 +369,7 @@
MockView.prototype.show = function() {
return this.act(
function(cursor) {
return cursor.replaceNode([$(cursor.node[0].cloneNode(true))
return cursor.replaceNode([$(cursor.node[0].cloneNode(false))
.show().get(0)]
.concat(cursor.node.slice(1)));
},
@ -381,7 +383,7 @@
MockView.prototype.hide = function() {
return this.act(
function(cursor) {
return cursor.replaceNode([$(cursor.node[0].cloneNode(true))
return cursor.replaceNode([$(cursor.node[0].cloneNode(false))
.hide().get(0)]
.concat(cursor.node.slice(1)));
},
@ -423,9 +425,9 @@
while (cursor.canRight()) {
cursor = cursor.right();
}
return cursor.insertRight([domNode.cloneNode(true)]);
return cursor.insertRight(domNodeToArrayTree(domNode));
} else {
return cursor.insertDown([domNode.cloneNode(true)]);
return cursor.insertDown(domNodeToArrayTree(domNode));
}
},
function(eventHandlers) { return eventHandlers; },