Changeset 15218 in project


Ignore:
Timestamp:
07/15/09 20:26:54 (10 years ago)
Author:
certainty
Message:

added more tests

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/uri-dispatch/trunk/tests/run.scm

    r15216 r15218  
    88;; Version: $Id$
    99;; Version:
    10 ;; Last-Updated: Mi Jul 15 19:54:33 2009 (CEST)
     10;; Last-Updated: Mi Jul 15 20:42:39 2009 (CEST)
    1111;;           By: David Krentzlin <david@lisp-unleashed.de>
    12 ;;     Update #: 25
     12;;     Update #: 31
    1313;; URL:
    1414;; Keywords:
     
    6060
    6161(module test-module
    62   (test1 test2)
     62  (test1 test2 echo)
    6363  (import scheme chicken)
    6464
    65   (define (test1 . args)
    66     #t)
     65  (define (echo . args) args)
     66  (define (test1 . args) #t)
    6767  (define (test2 . args) #t))
    6868
    6969(define (test3 . args) #t)
     70(define (echo2 . args) args)
    7071
    7172
     
    137138          (dispatch-uri uri))))
    138139
     140(test "pass arguments (in module)"
     141      (list "this" "is" "a" "test")
     142      (let ((uri (uri-reference "http://example.com/test-module/echo/this/is/a/test")))
     143        (dispatch-uri uri)))
     144
     145(test "pass arguments"
     146      (list "this" "is" "a" "test")
     147      (let ((uri (uri-reference "http://example.com/echo2/this/is/a/test")))
     148        (dispatch-uri uri)))
     149
    139150(test-end "uri-dispatch")
    140151
Note: See TracChangeset for help on using the changeset viewer.