;;; ;;; Time-stamp: <06/03/11 12:20:10 noel> ;;; ;;; Copyright (C) 2004 by Noel Welsh. ;;; ;;; This library is free software; you can redistribute it ;;; and/or modify it under the terms of the GNU Lesser ;;; General Public License as published by the Free Software ;;; Foundation; either version 2.1 of the License, or (at ;;; your option) any later version. ;;; Web testingis distributed in the hope that it will be ;;; useful, but WITHOUT ANY WARRANTY; without even the ;;; implied warranty of MERCHANTABILITY or FITNESS FOR A ;;; PARTICULAR PURPOSE. See the GNU Lesser General Public ;;; License for more details. ;;; You should have received a copy of the GNU Lesser ;;; General Public License along with Web testing; if not, ;;; write to the Free Software Foundation, Inc., 59 Temple ;;; Place, Suite 330, Boston, MA 02111-1307 USA ;;; Author: Noel Welsh <noelwelsh@yahoo.com> ;; ;; ;; Commentary: (module util mzscheme (provide require/expose test-suite* check-regexp-match check-regexp-match*) (require "test.ss") ;; Requires a module and exposes some of its unprovided ;; (non-syntax!) identifiers. ;; USAGE: (require/expose MODULE-NAME (IDS ...)) ;; where MODULE-NAME is as in the MzScheme manual (i.e., ;; a standard module spec) and IDS are the un-provided ;; identifiers that you wish to expose in the current ;; module. ;; Based on a macro by Raymond Racine ;; (rracine@adelphia.net) posted to plt-scheme in Dec ;; 2003. By Richard C. Cobbe <cobbe@ccs.neu.edu> (define-syntax require/expose (syntax-rules () [(_ mod (ids ...)) (begin (require mod) (define-values (ids ...) (let ([ns (module->namespace 'mod)]) (parameterize ([current-namespace ns]) (values (namespace-variable-value 'ids)...)))))])) (define-syntax test-suite* (syntax-rules () ((test-suite* name (case-name case-body ...) ...) (test-suite name (test-case case-name case-body ...) ...)))) (define-simple-check (check-regexp-match regex string) (regexp-match regex string)) )