Changeset 26206 in project


Ignore:
Timestamp:
03/18/12 23:46:22 (9 years ago)
Author:
joseph.gay
Message:

slightly better test for hen-reserve

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/hen/trunk/tests/run.scm

    r23233 r26206  
    4747
    4848(test "reserve"
    49       "OK 13"
    50       (hen-reserve 0 #:tcp-in (open-input-string "OK 13\r\n---\ntest:data\r\n") #:tcp-out (open-output-string)))
     49      '((id . "1") (data . "---\ntest:data"))
     50      (hen-reserve 0 #:tcp-in (open-input-string "RESERVED 1 13\r\n---\ntest:data\r\n") #:tcp-out (open-output-string)))
    5151
    5252(test-end)
Note: See TracChangeset for help on using the changeset viewer.