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

test cases; needing to add implementations for insert-right and insert-left

Browse Source
This commit is contained in:
Danny Yoo 2011-09-08 11:51:44 -04:00
parent 2126c6c513
commit ac72b21e7d
2 changed files with 108 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,6 +4,37 @@
"blah"
"baz"
(html (head) (body (p (@ (class "baz")))))
"css test"
"line-through"
"underline"
(html (head) (body (p (@ (style "text-decoration: underline; ")))))
"navigation"
"------"
false
false
false
false
true
false
false
false
false
true
false
true
false
true
true
false
"------"
"adding elements"
(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")))))

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

@ -55,6 +55,8 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(newline)
"css test"
(view-css (view-down
(view-right
@ -81,3 +83,78 @@
(body (p (@ (style "text-decoration: line-through"))))))))))
"text-decoration"
"underline")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(newline)
"------"
"navigation"
(view-down? (->view (xexp->dom `(html))))
(view-up? (->view (xexp->dom `(html))))
(view-left? (->view (xexp->dom `(html))))
(view-right? (->view (xexp->dom `(html))))
(newline)
(view-down? (->view (xexp->dom `(html (head) (body)))))
(view-up? (->view (xexp->dom `(html (head) (body)))))
(view-left? (->view (xexp->dom `(html (head) (body)))))
(view-right? (->view (xexp->dom `(html (head) (body)))))
(newline)
(view-down? (view-down (->view (xexp->dom `(html (head) (body))))))
(view-up? (view-down (->view (xexp->dom `(html (head) (body))))))
(view-left? (view-down (->view (xexp->dom `(html (head) (body))))))
(view-right? (view-down (->view (xexp->dom `(html (head) (body))))))
(newline)
(view-down? (view-right (view-down (->view (xexp->dom `(html (head) (body)))))))
(view-up? (view-right (view-down (->view (xexp->dom `(html (head) (body)))))))
(view-left? (view-right (view-down (->view (xexp->dom `(html (head) (body)))))))
(view-right? (view-right (view-down (->view (xexp->dom `(html (head) (body)))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(newline)
"------"
"adding elements"
(view->xexp
(view-append-child (view-focus (->view (xexp->dom '(html (head)
(body (h1 (@ (id "header")))
(p (@ (id "para")))))))
"para")
(xexp->dom '(li "An item"))))
(view->xexp
(view-insert-right
(view-down (view-focus (->view (xexp->dom '(html (head)
(body (h1 (@ (id "header")))
(p (@ (id "para"))
(ul (li "one")))))))
"para")
(xexp->dom '(li "two")))))
(view->xexp
(view-insert-right
(view-insert-right
(view-down (view-focus (->view (xexp->dom '(html (head)
(body (h1 (@ (id "header")))
(p (@ (id "para"))
(ul (li "one")))))))
"para")
(xexp->dom '(li "two"))))
(xexp->dom '(li "three"))))
(view->xexp
(view-insert-left
(view-down (view-focus (->view (xexp->dom '(html (head)
(body (h1 (@ (id "header")))
(p (@ (id "para"))
(ul (li "one")))))))
"para")
(xexp->dom '(li "zero")))))