Changeset 26007 in project


Ignore:
Timestamp:
02/28/12 17:40:41 (9 years ago)
Author:
sjamaan
Message:

xml-rpc: Fix test not to make assumptions about hash table ordering

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/xml-rpc/trunk/tests/run.scm

    r24045 r26007  
    7272        `(struct)
    7373        (value->xml-rpc-fragment (alist->hash-table `())))
    74   (test "simple hash table"
    75         ;; XXX: Hash ordering can change! Test is too specific
    76         `(struct
    77           (member
    78            (name "qux")
    79            (value (i4 "1")))
    80           (member
    81            (name "foo")
    82            (value (string "bar"))))
    83         (value->xml-rpc-fragment
    84          (alist->hash-table `((qux . 1) (foo . "bar")))))
     74  (test-assert
     75   "simple hash table"
     76   (let ((fragment (value->xml-rpc-fragment
     77                    (alist->hash-table `((qux . 1) (foo . "bar"))))))
     78     (or (equal? fragment
     79                 `(struct (member
     80                           (name "qux")
     81                           (value (i4 "1")))
     82                          (member
     83                           (name "foo")
     84                           (value (string "bar")))))
     85         (equal? fragment
     86                 `(struct (member
     87                           (name "foo")
     88                           (value (string "bar")))
     89                          (member
     90                           (name "qux")
     91                           (value (i4 "1"))))))))
    8592  (test "nested hash table"
    8693        `(struct
Note: See TracChangeset for help on using the changeset viewer.