# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1457440304 0
# Node ID b22eb7fe2faafdbad0d2ea8dfb9bb67617251f3a
# Parent  5e0cca5174a8c52f141251188f76c51540c678f1
Set up a clean namespace for the initial PAIP implementation

Also figure out the 5AM unit testing crap.

diff -r 5e0cca5174a8 -r b22eb7fe2faa bones-test.asd
--- 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")))))
 
diff -r 5e0cca5174a8 -r b22eb7fe2faa bones.asd
--- 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")))))
 
diff -r 5e0cca5174a8 -r b22eb7fe2faa package-test.lisp
--- 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))
diff -r 5e0cca5174a8 -r b22eb7fe2faa package.lisp
--- 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))
+
diff -r 5e0cca5174a8 -r b22eb7fe2faa src/paip.lisp
--- /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)
diff -r 5e0cca5174a8 -r b22eb7fe2faa test/bones.lisp
--- 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)))))
diff -r 5e0cca5174a8 -r b22eb7fe2faa test/paip.lisp
--- /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)))))
diff -r 5e0cca5174a8 -r b22eb7fe2faa test/run.lisp
--- 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)