Changeset 26019 in project


Ignore:
Timestamp:
03/01/12 19:36:34 (9 years ago)
Author:
sjamaan
Message:

xml-rpc: Fix tests so they don't try to compare hash-tables immediately and update copyright notice

Location:
release/4/xml-rpc/trunk
Files:
5 edited

Legend:

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

    r26007 r26019  
    240240                                          (value (string "ghi"))))))
    241241  (test "empty struct"
    242         (alist->hash-table '())
    243         (xml-rpc-fragment->value `(struct)))
     242        '()
     243        (hash-table->alist (xml-rpc-fragment->value `(struct))))
    244244  (test "simple struct"
    245         (alist->hash-table '((foo . "bar")))
    246         (xml-rpc-fragment->value `(struct (member (name "foo")
    247                                                   (value (string "bar"))))))
     245        '((foo . "bar"))
     246        (hash-table->alist
     247         (xml-rpc-fragment->value `(struct (member (name "foo")
     248                                                   (value (string "bar")))))))
    248249  (test "simple struct - rearranged name/value"
    249         (alist->hash-table '((foo . "bar")))
    250         (xml-rpc-fragment->value `(struct (member (value (string "bar"))
    251                                                   (name "foo")))))
     250        '((foo . "bar"))
     251        (hash-table->alist
     252         (xml-rpc-fragment->value `(struct (member (value (string "bar"))
     253                                                   (name "foo"))))))
    252254  (test "nested struct"
    253         (alist->hash-table `((foo . ,(alist->hash-table '((bar . "qux"))))))
    254         (xml-rpc-fragment->value `(struct
    255                                    (member
    256                                     (name "foo")
    257                                     (value (struct
    258                                             (member
    259                                              (name "bar")
    260                                              (value (string "qux")))))))))
     255        `((foo . ((bar . "qux"))))
     256        (map (lambda (x) (cons (car x) (hash-table->alist (cdr x))))
     257             (hash-table->alist
     258              (xml-rpc-fragment->value
     259               `(struct (member
     260                         (name "foo")
     261                         (value (struct
     262                                 (member
     263                                  (name "bar")
     264                                  (value (string "qux")))))))))))
    261265  (test "nasty nested struct with attrs"
    262         (alist->hash-table `((foo . ,(alist->hash-table '((bar . "qux"))))))
    263         (xml-rpc-fragment->value `(struct (@ (lang "en"))
    264                                    (member
    265                                     (name (@ (dir "rtl")) "foo")
    266                                     (value (@ (type "dictionary"))
    267                                            (struct
    268                                             (member
    269                                              (name "bar")
    270                                              (value (string "qux")))))))))
     266        `((foo . ((bar . "qux"))))
     267        (map (lambda (x) (cons (car x) (hash-table->alist (cdr x))))
     268             (hash-table->alist
     269              (xml-rpc-fragment->value
     270               `(struct (@ (lang "en"))
     271                        (member
     272                         (name (@ (dir "rtl")) "foo")
     273                         (value (@ (type "dictionary"))
     274                                (struct
     275                                 (member
     276                                  (name "bar")
     277                                  (value (string "qux")))))))))))
    271278  ;; Try other different notations (ISO8601 has a variety of notations)
    272279  (test "datetime"
  • release/4/xml-rpc/trunk/xml-rpc-client.scm

    r15223 r26019  
    55;; This file contains a client implementation.
    66;
    7 ; Copyright (c) 2009, Peter Bex
     7; Copyright (c) 2009-2012, Peter Bex
    88; Parts Copyright (c) Felix Winkelmann
    99; All rights reserved.
  • release/4/xml-rpc/trunk/xml-rpc-lolevel.scm

    r15214 r26019  
    55;; This file contains the plumbing for XML RPC value marshaling/unmarshaling.
    66;
    7 ; Copyright (c) 2009, Peter Bex
     7; Copyright (c) 2009-2012, Peter Bex
    88; Parts Copyright (c) Felix Winkelmann
    99; All rights reserved.
     
    3838; ticket tracking system (assign tickets to user 'sjamaan'):
    3939; http://trac.callcc.org
    40 
    41 (provide 'xml-rpc-lolevel)
    4240
    4341(module xml-rpc-lolevel
  • release/4/xml-rpc/trunk/xml-rpc-server.scm

    r15252 r26019  
    55;; This file contains a server implementation.
    66;
    7 ; Copyright (c) 2009, Peter Bex
     7; Copyright (c) 2009-2012, Peter Bex
    88; Parts Copyright (c) Felix Winkelmann
    99; All rights reserved.
  • release/4/xml-rpc/trunk/xml-rpc.meta

    r23255 r26019  
    1 ;;; xml-rpc.meta -*- Hen -*-
     1;;; xml-rpc.meta -*- Scheme -*-
    22
    33((egg "xml-rpc.egg")
     
    88 (doc-from-wiki)
    99 (license "BSD")
    10  (author "Peter Bex")
    11  (files "xml-rpc.meta" "xml-rpc.release-info" "xml-rpc-lolevel.scm" "xml-rpc-client.scm" "tests/run.scm" "xml-rpc.setup" "xml-rpc-server.scm"))
     10 (author "Peter Bex"))
Note: See TracChangeset for help on using the changeset viewer.