feat: Add dev flag

Author: jcs090218

lisp/_prepare.lisp

@@ -292,6 +292,10 @@ the `qob-start' execution.")
   "Non-nil when flag is on (`-a', `--all')."
   (qob--flag "--all"))
 
+(defun qob-dev-p ()
+  "Non-nil when flag is on (`--dev')."
+  (qob--flag "--dev"))
+
 (defun qob-no-color-p ()
   "Non-nil when flag is on (`--no-color')."
   (qob--flag "--no-color"))

lisp/core/install-deps.lisp

@@ -51,21 +51,25 @@
 
 (defun qob-install-deps--by-system-name (name)
   "Install dependencies by system's NAME."
-  (let* ((system (asdf:find-system name))
-         (deps   (asdf:system-depends-on system)))
-    (qob-install-systems deps)))
+  (when name
+    (let* ((system (asdf:find-system name))
+           (deps   (asdf:system-depends-on system)))
+      (qob-install-systems deps))))
 
 (qob-start
  (let ((systems (qob-args))
-       (primary-system (qob-primary-system-entry)))
+       (primary-system (qob-primary-system-entry))
+       (primary-test-system (qob-primary-test-system-entry)))
    (cond
      ;; If specified system(s).
      (systems
       (dolist (system-name systems)
         (qob-install-deps--by-system-name system-name)))
      ;; Print primary system.
      (primary-system
-      (qob-install-deps--by-system-name (car primary-system)))
+      (qob-install-deps--by-system-name (car primary-system))
+      (when (qob-dev-p)
+        (qob-install-deps--by-system-name (car primary-test-system))))
      ;; Print help.
      (t
       (qob-help "core/install-deps")))))

src/utils.lisp

@@ -72,6 +72,8 @@
       (nconc opts `("--global")))
     (when (clingon:getopt cmd :all)
       (nconc opts `("--all")))
+    (when (clingon:getopt cmd :dev)
+      (nconc opts `("--dev")))
     (when (clingon:getopt cmd :no-color)
       (nconc opts `("--no-color")))
     (when (clingon:getopt cmd :compression)

test/commands/local/run.sh

@@ -38,7 +38,7 @@ qob dists
 qob list
 
 # Preparation
-qob install-deps
+qob install-deps --dev
 qob package
 
 # Development