adding some test cases for navigating, editing the tree

tests/more-tests/view.expected

@@ -1,3 +1,5 @@
 ""
 "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")))))

tests/more-tests/view.rkt

@@ -16,6 +16,28 @@
 (view-text updated-new-view) ;; should be "some text"
 
 (view->xexp (view-up (view-up updated-new-view)))
-;; should be:
+
-; (html (head) (body (p "hello world, this is a test")
+
-;                    (div (@ (id "a div")) "some text")))
+(view-attr (view-down
+            (view-right
+             (view-down
+              (->view (xexp->dom `(html (head)
+                                        (body (p (@ (class "blah"))))))))))
+           "class")
+
+
+(define (my-view-top v)
+  (cond [(view-up? v)
+         (my-view-top (view-up v))]
+        [else
+         v]))
+
+(view->xexp
+ (my-view-top
+  (update-view-attr (view-down
+                     (view-right
+                      (view-down
+                       (->view (xexp->dom `(html (head)
+                                                 (body (p (@ (class "blah"))))))))))
+                    "class"
+                    "baz")))

web-world/js-impl.js

@@ -194,7 +194,7 @@
         return this.act(
             function(cursor) {
                 return cursor.replaceNode([cursor.node[0]]
-                                          .concat([document.createTextNode(text)]));
+                                          .concat([[document.createTextNode(text)]]));
             },
             function(eventHandlers) { return eventHandlers; },
             function(view) {