Renamed system reblocks-test to reblocks-tests.

reblocks-tests.asd

@@ -0,0 +1,24 @@
+(defsystem "reblocks-tests"
+  :class :package-inferred-system
+  :pathname "t"
+  :depends-on ("reblocks"
+               "hamcrest"
+               "reblocks-tests/dependencies"
+               "reblocks-tests/hooks"
+               "reblocks-tests/reblocks"
+               "reblocks-tests/request"
+               "reblocks-tests/response"
+               "reblocks-tests/request-handler"
+               "reblocks-tests/actions"
+               "reblocks-tests/commands"
+               "reblocks-tests/default-init"
+               "reblocks-tests/widgets/mop"
+               "reblocks-tests/widgets/macroexpansion"
+               "reblocks-tests/widgets/render-methods")
+  :perform (test-op (o c)
+                    (unless (symbol-call :rove '#:run c)
+                      (error "Tests failed"))))
+
+
+(register-system-packages "lack-test" '(#:lack.test))
+(register-system-packages "lack-request" '(#:lack.request))

reblocks.asd

@@ -41,7 +41,7 @@
                ;; lack:builder will try to find `LACK.MIDDLEWARE.SESSION`
                ;; package
                "lack-middleware-session")
-  :in-order-to ((test-op (test-op "reblocks-test"))))
+  :in-order-to ((test-op (test-op "reblocks-tests"))))
 
 
 (register-system-packages "lack-request" '(#:lack.request))

t/actions.lisp

@@ -1,8 +1,8 @@
-(defpackage #:reblocks-test/actions
+(defpackage #:reblocks-tests/actions
   (:use #:cl
         #:rove
         #:hamcrest/rove
-        #:reblocks-test/utils)
+        #:reblocks-tests/utils)
   (:import-from #:reblocks/actions
                 #:make-action
                 #:eval-action
@@ -20,7 +20,7 @@
                 #:*current-app*)
   (:import-from #:serapeum
                 #:fmt))
-(in-package reblocks-test/actions)
+(in-package #:reblocks-tests/actions)
 
 
 (reblocks/app:defapp test-app

t/commands.lisp

@@ -1,10 +1,10 @@
-(defpackage #:reblocks-test/commands
+(defpackage #:reblocks-tests/commands
   (:use #:cl
         #:hamcrest/rove
         #:rove)
   (:import-from #:reblocks/commands
                 #:create-command))
-(in-package reblocks-test/commands)
+(in-package #:reblocks-tests/commands)
 
 
 (deftest test-create-command

t/default-init.lisp

@@ -1,11 +1,11 @@
-(defpackage #:reblocks-test/default-init
+(defpackage #:reblocks-tests/default-init
   (:use #:cl
         #:rove
         #:hamcrest/rove
-        #:reblocks-test/utils)
+        #:reblocks-tests/utils)
   (:import-from #:reblocks/app
                 #:defapp))
-(in-package reblocks-test/default-init)
+(in-package #:reblocks-tests/default-init)
 
 
 (deftest default-init-method-should-return-string-widget

t/dependencies.lisp

@@ -1,10 +1,10 @@
-(defpackage #:reblocks-test/dependencies
+(defpackage #:reblocks-tests/dependencies
   (:use #:cl
         ;; #:cl-mock
         ;; #:prove
         #:rove
         ;;        #:hamcrest/rove
-        #:reblocks-test/utils)
+        #:reblocks-tests/utils)
   (:import-from #:cl-mock
                 #:invocations
                 #:with-mocks
@@ -26,7 +26,7 @@
                 #:render-in-head)
   (:import-from #:str
                 #:ends-with-p))
-(in-package reblocks-test/dependencies)
+(in-package #:reblocks-tests/dependencies)
 
 
 (deftest infer-type

t/hooks.lisp

@@ -1,14 +1,14 @@
-(defpackage #:reblocks-test/hooks
+(defpackage #:reblocks-tests/hooks
   (:use #:cl
         #:rove
-        #:reblocks-test/utils)
+        #:reblocks-tests/utils)
   (:import-from #:reblocks/hooks
                 #:get-callbacks
                 #:*session-hooks*
                 #:get-callbacks-names
                 #:with-hook
                 #:call-next-hook))
-(in-package reblocks-test/hooks)
+(in-package #:reblocks-tests/hooks)
 
 
 (deftest empty-call-back-list

t/reblocks.lisp

@@ -1,13 +1,13 @@
-(defpackage #:reblocks-test/reblocks
+(defpackage #:reblocks-tests/reblocks
   (:use #:cl
         #:rove
-        #:reblocks-test/utils)
+        #:reblocks-tests/utils)
   (:import-from #:reblocks/html
                 #:with-html-string)
   (:import-from #:reblocks/js
                 #:with-javascript
                 #:with-javascript-to-string))
-(in-package reblocks-test/reblocks)
+(in-package #:reblocks-tests/reblocks)
 
 
 (deftest with-javascript-1

t/request-handler.lisp

@@ -1,8 +1,8 @@
-(defpackage #:reblocks-test/request-handler
+(defpackage #:reblocks-tests/request-handler
   (:use #:cl
         #:rove
         #:hamcrest/rove
-        #:reblocks-test/utils)
+        #:reblocks-tests/utils)
   (:import-from #:reblocks/app
                 #:defapp
                 #:*current-app*)
@@ -17,7 +17,7 @@
 
   ;; Just dependencies
   (:import-from #:reblocks/session))
-(in-package reblocks-test/request-handler)
+(in-package #:reblocks-tests/request-handler)
 
 
 (defapp app-with-init

t/request.lisp

@@ -1,7 +1,7 @@
-(defpackage #:reblocks-test/request
+(defpackage #:reblocks-tests/request
   (:use #:cl
         #:rove
-        #:reblocks-test/utils)
+        #:reblocks-tests/utils)
   (:import-from #:reblocks/request
                 #:refresh-request-p
                 #:get-uri)
@@ -10,7 +10,7 @@
   (:import-from #:lack.request
                 #:make-request
                 #:request-uri))
-(in-package reblocks-test/request)
+(in-package #:reblocks-tests/request)
 
 
 (deftest refresh-request-p-1

t/response.lisp

@@ -1,11 +1,11 @@
-(defpackage #:reblocks-test/response
+(defpackage #:reblocks-tests/response
   (:use #:cl
         #:rove
-        #:reblocks-test/utils)
+        #:reblocks-tests/utils)
   (:import-from #:reblocks/response
                 #:make-uri
                 #:add-retpath-to))
-(in-package reblocks-test/response)
+(in-package #:reblocks-tests/response)
 
 
 (deftest make-uri-test

t/utils.lisp

@@ -1,4 +1,4 @@
-(defpackage #:reblocks-test/utils
+(defpackage #:reblocks-tests/utils
   (:use #:cl)
   (:import-from #:alexandria
                 #:with-gensyms
@@ -35,7 +35,7 @@
    #:is-html
    #:catch-hooks
    #:assert-hooks-called))
-(in-package reblocks-test/utils)
+(in-package #:reblocks-tests/utils)
 
 
 (defmacro with-session (&body body)

t/widgets/macroexpansion.lisp

@@ -1,12 +1,12 @@
-(defpackage #:reblocks-test/widgets/macroexpansion
+(defpackage #:reblocks-tests/widgets/macroexpansion
   (:use #:cl
         #:rove)
   (:import-from #:reblocks/widget
                 #:widget
                 #:defwidget)
   (:import-from #:reblocks/widgets/mop
                 #:widget-class))
-(in-package reblocks-test/widgets/macroexpansion)
+(in-package #:reblocks-tests/widgets/macroexpansion)
 
 
 (deftest test-defwidget-adds-metaclass

t/widgets/mop.lisp

@@ -1,4 +1,4 @@
-(defpackage #:reblocks-test/widgets/mop
+(defpackage #:reblocks-tests/widgets/mop
   (:use #:cl
         #:rove)
   (:import-from #:reblocks/widget
@@ -9,7 +9,7 @@
   (:import-from #:reblocks/widgets/mop
                 #:widget-effective-slot-definition
                 #:widget-direct-slot-definition))
-(in-package reblocks-test/widgets/mop)
+(in-package #:reblocks-tests/widgets/mop)
 
 
 (deftest test-direct-slot-definition-class-widget

t/widgets/render-methods.lisp

@@ -1,4 +1,4 @@
-(defpackage #:reblocks-test/widgets/render-methods
+(defpackage #:reblocks-tests/widgets/render-methods
   (:use #:cl
         #:rove)
   (:import-from #:reblocks/widget
@@ -7,9 +7,9 @@
                 #:defwidget)
   (:import-from #:reblocks/html
                 #:with-html)
-  (:import-from #:reblocks-test/utils
+  (:import-from #:reblocks-tests/utils
                 #:is-html))
-(in-package reblocks-test/widgets/render-methods)
+(in-package #:reblocks-tests/widgets/render-methods)
 
 (defwidget simple-widget ()
   ())