Changeset 29436 in project


Ignore:
Timestamp:
07/29/13 02:08:22 (6 years ago)
Author:
Ivan Raikov
Message:

cgi: fixes to unit test

Location:
release/4/cgi/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/cgi/trunk/protocol.scm

    r29378 r29436  
    264264
    265265(define (run-action action inp)
     266  (if (not (byte-blob? inp))
     267      (error 'run-action "invalid input" inp))
    266268  (match-let (((inputs body)  (decode-input inp)))
    267269    (let* ((rq   (cond ((null? inputs) (Body body))
  • release/4/cgi/trunk/tests/run.scm

    r29058 r29436  
    1 (use cgi-protocol )
     1(use cgi-protocol byte-blob)
    22
    33(define (action request)
     
    77   ))
    88
    9 (print (run-action action '()))
     9(print (run-action action (list->byte-blob '())))
Note: See TracChangeset for help on using the changeset viewer.