b85831aa30bb

Unfuck the test system loading
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Fri, 13 Jan 2017 21:54:26 +0000
parents 42aaba702d24
children 0808ad46f57d
branches/tags (none)
files beast-test.asd beast.asd package.lisp src/beast.lisp test/test.lisp

Changes

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/beast-test.asd	Fri Jan 13 21:54:26 2017 +0000
@@ -0,0 +1,11 @@
+(asdf:defsystem :beast-test
+  :depends-on (:1am :beast)
+
+  :serial t
+  :components ((:file "package-test")
+               (:module "test"
+                :serial t
+                :components ((:file "test"))))
+
+  :perform
+  (asdf:test-op (op system) (uiop:symbol-call :beast-test :run-tests)))
--- a/beast.asd	Fri Dec 23 10:49:36 2016 -0500
+++ b/beast.asd	Fri Jan 13 21:54:26 2017 +0000
@@ -1,5 +1,4 @@
-(asdf:defsystem #:beast
-  :name "beast"
+(asdf:defsystem :beast
   :description "Basic Entity/Aspect/System Toolkit"
 
   :author "Steve Losh <steve@stevelosh.com>"
@@ -19,19 +18,4 @@
                 :serial t
                 :components ((:file "beast"))))
 
-  :in-order-to ((asdf:test-op (asdf:test-op #:beast-test))))
-
-
-(asdf:defsystem #:beast-test
-  :name "beast-test"
-
-  :depends-on (#:1am)
-
-  :serial t
-  :components ((:file "package-test")
-               (:module "test"
-                :serial t
-                :components ((:file "test"))))
-
-  :perform
-  (asdf:test-op (op system) (uiop:symbol-call :beast-test :run-tests)))
+  :in-order-to ((asdf:test-op (asdf:test-op :beast-test))))
--- a/package.lisp	Fri Dec 23 10:49:36 2016 -0500
+++ b/package.lisp	Fri Jan 13 21:54:26 2017 +0000
@@ -1,21 +1,21 @@
-(defpackage #:beast
+(defpackage :beast
   (:use
-    #:cl
-    #:beast.quickutils)
+    :cl
+    :beast.quickutils)
   (:export
-    #:entity
-    #:entity-id
+    :entity
+    :entity-id
 
-    #:define-entity
+    :define-entity
 
-    #:create-entity
-    #:destroy-entity
-    #:clear-entities
-    #:map-entities
+    :create-entity
+    :destroy-entity
+    :clear-entities
+    :map-entities
 
-    #:entity-created
-    #:entity-destroyed
+    :entity-created
+    :entity-destroyed
 
-    #:define-aspect
+    :define-aspect
 
-    #:define-system))
+    :define-system))
--- a/src/beast.lisp	Fri Dec 23 10:49:36 2016 -0500
+++ b/src/beast.lisp	Fri Jan 13 21:54:26 2017 +0000
@@ -1,4 +1,4 @@
-(in-package #:beast)
+(in-package :beast)
 
 
 ;;;; Notes
--- a/test/test.lisp	Fri Dec 23 10:49:36 2016 -0500
+++ b/test/test.lisp	Fri Jan 13 21:54:26 2017 +0000
@@ -1,4 +1,4 @@
-(in-package #:beast-test)
+(in-package :beast-test)
 
 ;;;; Boilerplate
 (defmacro define-test (name &body body)