Use path-style names for test packages and test suites

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)

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)

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)

tests/events.lisp → 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))

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*))

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)

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  <[email protected]>
@@ -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)))