From 6ae8a6f546840c6932089471812c07651be04a9a Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 15 Dec 2019 17:20:42 -0500 Subject: [PATCH] Use path-style names for test packages and test suites --- tests/base.lisp | 6 +++--- tests/defsuites.lisp | 12 ++++++------ tests/file-paths-unix.lisp | 6 +++--- tests/{events.lisp => multiplex.lisp} | 6 +++--- tests/pkgdcl.lisp | 4 ++-- tests/sockets.lisp | 8 ++++---- tests/streams.lisp | 6 +++--- 7 files changed, 24 insertions(+), 24 deletions(-) rename tests/{events.lisp => multiplex.lisp} (97%) diff --git a/tests/base.lisp b/tests/base.lisp index a4a91c81..9c4540aa 100644 --- a/tests/base.lisp +++ b/tests/base.lisp @@ -1,8 +1,8 @@ ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*- ;;; -;;; --- iolib.base test suite. +;;; --- iolib/base test suite. ;;; -(in-package :iolib-tests) +(in-package :iolib/tests) -(in-suite :iolib.base) +(in-suite :iolib/base) diff --git a/tests/defsuites.lisp b/tests/defsuites.lisp index 435729d6..88672f47 100644 --- a/tests/defsuites.lisp +++ b/tests/defsuites.lisp @@ -3,17 +3,17 @@ ;;; --- Main test suite definition. ;;; -(in-package :iolib-tests) +(in-package :iolib/tests) (def-suite :iolib :description "Main test suite for IOLib.") -(def-suite :iolib.base :in :iolib) +(def-suite :iolib/base :in :iolib) -(def-suite :iolib.pathnames :in :iolib) +(def-suite :iolib/pathnames :in :iolib) -(def-suite :iolib.multiplex :in :iolib) +(def-suite :iolib/multiplex :in :iolib) -(def-suite :iolib.streams :in :iolib) +(def-suite :iolib/streams :in :iolib) -(def-suite :iolib.sockets :in :iolib) +(def-suite :iolib/sockets :in :iolib) diff --git a/tests/file-paths-unix.lisp b/tests/file-paths-unix.lisp index ab40dc8c..b2e7b600 100644 --- a/tests/file-paths-unix.lisp +++ b/tests/file-paths-unix.lisp @@ -1,11 +1,11 @@ ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*- ;;; -;;; --- iolib.pathnames test suite. +;;; --- iolib/pathnames test suite. ;;; -(in-package :iolib-tests) +(in-package :iolib/tests) -(in-suite :iolib.pathnames) +(in-suite :iolib/pathnames) (defmacro is-file-path (path (&rest components)) (with-gensyms (p) diff --git a/tests/events.lisp b/tests/multiplex.lisp similarity index 97% rename from tests/events.lisp rename to tests/multiplex.lisp index 522c0313..d44e870d 100644 --- a/tests/events.lisp +++ b/tests/multiplex.lisp @@ -1,11 +1,11 @@ ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*- ;;; -;;; --- iolib.multiplex test suite. +;;; --- iolib/multiplex test suite. ;;; -(in-package :iolib-tests) +(in-package :iolib/tests) -(in-suite :iolib.multiplex) +(in-suite :iolib/multiplex) (defmacro with-event-base/for-each-mux ((base &rest initargs) &body body) `(let ((failed-list)) diff --git a/tests/pkgdcl.lisp b/tests/pkgdcl.lisp index 05f54560..b1c3f5de 100644 --- a/tests/pkgdcl.lisp +++ b/tests/pkgdcl.lisp @@ -5,9 +5,9 @@ (in-package :cl-user) -(defpackage :iolib-tests +(defpackage :iolib/tests (:nicknames :iolib/tests) - (:use :5am :iolib.base :iolib :iolib.pathnames) + (:use :5am :iolib/base :iolib :iolib/pathnames) #+sb-package-locks (:lock t) (:export #:*echo-address* #:*echo-port*)) diff --git a/tests/sockets.lisp b/tests/sockets.lisp index 7ef6b31a..a922b3ee 100644 --- a/tests/sockets.lisp +++ b/tests/sockets.lisp @@ -1,11 +1,11 @@ ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*- ;;; -;;; --- iolib.sockets test suite. +;;; --- iolib/sockets test suite. ;;; -(in-package :iolib-tests) +(in-package :iolib/tests) -(in-suite :iolib.sockets) +(in-suite :iolib/sockets) (iolib.base:enable-literal-reader) @@ -382,7 +382,7 @@ (is (string= (let ((file (namestring (make-pathname :name "local-socket" :type nil :defaults (asdf:component-pathname - (asdf:find-system :iolib.tests)))))) + (asdf:find-system :iolib/tests)))))) (ignore-errors (delete-file file)) (with-open-socket (p :address-family :local :connect :passive :local-filename file) (with-open-socket (a :address-family :local :remote-filename file) diff --git a/tests/streams.lisp b/tests/streams.lisp index ff2d8e4d..f104ab14 100644 --- a/tests/streams.lisp +++ b/tests/streams.lisp @@ -1,6 +1,6 @@ ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*- ;;; -;;; --- iolib.streams test suite. +;;; --- iolib/streams test suite. ;;; ;;; Copyright (c) 2006-2007, Dr. Edmund Weitz. All rights reserved. ;;; Copyright (c) 2007, Luis Oliveira @@ -29,9 +29,9 @@ ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -(in-package :iolib-tests) +(in-package :iolib/tests) -(in-suite :iolib.streams) +(in-suite :iolib/streams) (defclass my-file-stream (dual-channel-gray-stream) ((path :initarg :path :reader file-stream-path)))