add tests pipeline

Author: atomicptr

.github/workflows/test.yml

@@ -0,0 +1,38 @@
+on:
+  push:
+    branches:
+      - master
+  pull_request:
+    types:
+      - opened
+      - synchronize
+
+jobs:
+  test:
+    runs-on: ubuntu-latest
+    steps:
+      - name: Checkout
+        uses: actions/checkout@v4
+
+      - name: Setup Java
+        uses: actions/setup-java@v4
+        with:
+          distribution: coretto
+          java-version: '21'
+
+      - name: Setup Clojure
+        uses: DeLaGuardo/[email protected]
+        with:
+          lein: 2.11.2
+
+      - name: Clojure Dependencies Cache
+        uses: actions/cache@v3
+        with:
+          path: |
+            ~/.m2/repository
+            ~/.gitlibs
+          key: clojure-${{ hashFiles('project.clj') }}
+          restore-keys: clojure-
+
+      - name: Run tests
+        run: lein test

README.md

@@ -62,6 +62,10 @@ dap.configurations.lua = {
 }
 ```
 
+## See also
+
+- Using mobdap with **Defold**: [defold-mobdebug](https://github.com/atomicptr/defold-mobdebug)
+
 ## License
 
 GPLv3

src/mobdap/debug_server.clj

@@ -130,7 +130,6 @@
                   :over            (send-command! server-handle "over")
 
                   :stacktrace      (let [stack (send-command-stack! server-handle)]
-                                     (log/info "STACK TRACE GOT:" stack)
                                      (>!! to-adapter {:cmd :stacktrace :stack stack :seq (:seq command)}))
 
                   :exit            (do

src/mobdap/handler.clj

@@ -197,7 +197,6 @@
         nil)))
 
 (defn- register-vars [handler vars]
-  (log/error "VARS?" vars)
   (doseq [[_ v] (if (map? vars) vars (zipmap (range (count vars)) vars))]
     (when (:id v)
       (swap! (:var-index handler) assoc (:id v) v))
@@ -487,7 +486,6 @@
 (defn- make-var [pname indexed? n value]
   (let [fstr (str (var-name pname) (if indexed? "[%s]" ".%s"))
         v    (:value value)]
-    (log/info "MAKE VARS HAPPEN" n v (:id v))
     (cond
       (vector? v)
       {:name (var-name n)
@@ -516,7 +514,6 @@
        :presentationHint {:kind "data"}})))
 
 (defn- create-variables [vars]
-  (log/info "CREATE VARS?" vars)
   (case (:type vars)
     :table (map-indexed
             (if (vector? (:value vars))