;;;; import.test --- test selective and renaming imports -*- scheme -*- ;;;; Copyright (C) 2000, 2001, 2006 Free Software Foundation, Inc. ;;;; ;;;; 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 3 of the License, or (at your option) any later version. ;;;; ;;;; This library is 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 this library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (define-module (exporter) :export (foo bar)) (define foo 1) (define bar 2) (define-module (importer) :use-module (test-suite lib)) (use-modules ((exporter) :select (foo (bar . baz)))) (pass-if-exception "selective non-import" (cons 'unbound-variable "^Unbound variable") (= bar 2)) (pass-if "selective import" (= foo 1)) (pass-if "renaming import" (= baz 2)) (use-modules ((exporter) :renamer (symbol-prefix-proc 'external:))) (pass-if "symbol-prefic-proc import" (and (= external:foo 1) (= external:bar 2))) (use-modules ((exporter) :renamer (lambda (sym) (symbol-append sym ':external)))) (pass-if "renamer import" (and (= foo:external 1) (= bar:external 2)))