Ignore:
Timestamp:
09/13/09 14:06:16 (11 years ago)
Author:
sjamaan
Message:

Make list-nodes return node info in an alist so it looks more like get-node-info

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/estraier-client/tests/run.scm

    r15848 r15853  
    2323    (test "After adding two nodes, they show up"
    2424          '("testnode" "testnode2")
    25           (map car nodes))
     25          (map (lambda (n) (alist-ref 'name n)) nodes))
    2626    (test "Node label is accepted"
    2727          '("testnode" "testlabel")
    28           (map cadr nodes)))
     28          (map (lambda (n) (alist-ref 'label n)) nodes)))
    2929  (test "After deleting a node, it is gone"
    3030        '("testnode")
    3131        (begin (delete-node base-uri "testnode2")
    32                (map car (list-nodes base-uri))))
     32               (map (lambda (n) (alist-ref 'name n)) (list-nodes base-uri))))
    3333  (let ((users (begin (add-user base-uri "testuser" "password"
    3434                                fullname: "Joe testuser"
     
    189189               (list-documents base-uri "testnode"))))
    190190
    191 ;; TODO: Test search options (especially attributes)
    192 
    193191(test-group "cleanup"
    194192 (test-assert "Clean shutdown" (begin (shutdown-master base-uri) #t))
Note: See TracChangeset for help on using the changeset viewer.