--- a/bones-test.asd Tue Mar 08 12:16:50 2016 +0000
+++ b/bones-test.asd Tue Mar 08 12:31:44 2016 +0000
@@ -7,6 +7,6 @@
:serial t
:components ((:file "package-test")
(:module "test"
- :serial t
- :components ((:file "bones")))))
+ :components ((:file "bones")
+ (:file "paip")))))
--- a/bones.asd Tue Mar 08 12:16:50 2016 +0000
+++ b/bones.asd Tue Mar 08 12:31:44 2016 +0000
@@ -16,5 +16,6 @@
:serial t
:components ((:file "package")
(:module "src"
- :components ((:file "bones")))))
+ :components ((:file "paip")
+ (:file "bones")))))
--- a/package-test.lisp Tue Mar 08 12:16:50 2016 +0000
+++ b/package-test.lisp Tue Mar 08 12:31:44 2016 +0000
@@ -1,3 +1,5 @@
(defpackage #:bones-test
- (:use #:cl #:bones #:5am))
+ (:use #:cl #:5am #:bones))
+(defpackage #:bones-test.paip
+ (:use #:cl #:5am #:bones.paip))
--- a/package.lisp Tue Mar 08 12:16:50 2016 +0000
+++ b/package.lisp Tue Mar 08 12:31:44 2016 +0000
@@ -1,5 +1,8 @@
(defpackage #:bones
(:use #:cl)
- (:export :hello)
- )
+ (:export #:hello))
+(defpackage #:bones.paip
+ (:use #:cl)
+ (:export #:foo))
+
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/src/paip.lisp Tue Mar 08 12:31:44 2016 +0000
@@ -0,0 +1,4 @@
+(in-package #:bones.paip)
+
+(defun foo ()
+ 1)
--- a/test/bones.lisp Tue Mar 08 12:16:50 2016 +0000
+++ b/test/bones.lisp Tue Mar 08 12:31:44 2016 +0000
@@ -1,7 +1,7 @@
(in-package #:bones-test)
-(def-suite bones)
-(in-suite bones)
+(def-suite :bones)
+(in-suite :bones)
(test hello-works
(is (equal 0 (1- (hello)))))
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/test/paip.lisp Tue Mar 08 12:31:44 2016 +0000
@@ -0,0 +1,7 @@
+(in-package #:bones-test.paip)
+
+(def-suite :bones.paip)
+(in-suite :bones.paip)
+
+(test foo-works
+ (is (equal 0 (1- (foo)))))
--- a/test/run.lisp Tue Mar 08 12:16:50 2016 +0000
+++ b/test/run.lisp Tue Mar 08 12:31:44 2016 +0000
@@ -2,5 +2,5 @@
(ql:quickload "bones-test"))
-(in-package #:bones-test)
-(run!)
+(5am:run! :bones)
+(5am:run! :bones.paip)