Ignore:
Timestamp:
08/09/09 18:25:57 (11 years ago)
Author:
certainty
Message:

renamed enable-checks to enable-whitelisting

File:
1 edited

Legend:

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

    r15340 r15381  
    88;; Version: $Id$
    99;; Version:
    10 ;; Last-Updated: Do Aug  6 20:49:24 2009 (CEST)
     10;; Last-Updated: So Aug  9 18:42:53 2009 (CEST)
    1111;;           By: David Krentzlin <david@lisp-unleashed.de>
    12 ;;     Update #: 35
     12;;     Update #: 36
    1313;; URL:
    1414;; Keywords:
     
    6969(define (echo2 . args) args)
    7070
    71 (enable-checks #f)
     71(enable-whitelisting #f)
    7272
    7373
     
    101101      (let ((uri (uri-reference "http://example.com/test3")))
    102102        (parameterize ((dispatch-error (lambda args 'dispatch-error))
    103                        (enable-checks #t))
     103                       (enable-whitelisting #t))
    104104          (dispatch-uri uri))))
    105105
     
    108108      (let ((uri (uri-reference "http://example.com/test-module/test1")))
    109109        (parameterize ((dispatch-error (lambda args 'dispatch-error))
    110                        (enable-checks #t))
     110                       (enable-whitelisting #t))
    111111          (dispatch-uri uri))))
    112112
     
    115115      (let ((uri (uri-reference "http://example.com/test3")))
    116116        (parameterize ((dispatch-error (lambda args 'dispatch-error))
    117                        (enable-checks #t))
     117                       (enable-whitelisting #t))
    118118          (whitelist! '(test3))
    119119          (dispatch-uri uri))))
     
    123123      (let ((uri (uri-reference "http://example.com/test-module/test1")))
    124124        (parameterize ((dispatch-error (lambda args 'dispatch-error))
    125                        (enable-checks #t))
     125                       (enable-whitelisting #t))
    126126          (whitelist! '((module test-module)))
    127127          (dispatch-uri uri))))
Note: See TracChangeset for help on using the changeset viewer.