fixed juli (pred actually checks now)

mtgred · Oct 3, 2024 · 2915f77 · 2915f77
1 parent dbb7314
commit 2915f77
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/src/clj/game/cards/resources.clj b/src/clj/game/cards/resources.clj
@@ -1853,10 +1853,9 @@
             {:event :runner-spent-click
              :once :per-turn
              :req (req (let [all-cards (get-all-cards state)
-                             pred (fn [context]
-                                    (and (:is-game-action? context)
-                                         (resource? (:stripped-source-card context))))]
-                         (and pred
+                             pred #(and (:is-game-action? %)
+                                        (resource? (:stripped-source-card %)))]
+                         (and (pred context)
                               (first-event? state side :runner-spent-click
                                             #(pred (first %))))))
              :cost [(->c :power 1)]

diff --git a/test/clj/game/cards/resources_test.clj b/test/clj/game/cards/resources_test.clj
@@ -3532,10 +3532,11 @@
     (click-prompt state :runner "Install a card from the grip, paying 1 [Credits] less")
     (click-card state :runner "Juli Moreira Lee")
     (is (not (:run @state)) "Run over")
-    (is (changed? [(:click (get-runner)) -1
-                   (get-counters (get-resource state 1) :power) 0]
+    (is (= 1 (:click (get-runner))))
+    (is (changed? [(get-counters (get-resource state 1) :power) 0]
           (click-credit state :runner))
-        "Didn't gain click, didn't spend counter")))
+        "didn't spend counter")
+    (is (= 0 (:click (get-runner))) "didn't gain click")))
 
 (deftest kasi-string
   ;; Kasi String