Fix tests

mtgred · Jun 27, 2020 · 7d77ae6 · 7d77ae6
1 parent a17c7e5
commit 7d77ae6
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/src/clj/game/cards/assets.clj b/src/clj/game/cards/assets.clj
@@ -535,7 +535,7 @@
                                          :choices {:max dbs
                                                    :card #(some (fn [c] (same-card? c %)) drawn)
                                                    :all true}
-                                         :effect (req (doseq [c targets]
+                                         :effect (req (doseq [c (reverse targets)]
                                                         (move state side c :deck)))}
                                         card targets)
                                       (clear-wait-prompt state :runner)

diff --git a/src/clj/game/cards/ice.clj b/src/clj/game/cards/ice.clj
@@ -939,7 +939,7 @@
                                            :card #(and (in-hand? %)
                                                        (runner? %))}
                                  :msg (msg "add " n " cards from their Grip to the top of the Stack")
-                                 :effect (req (doseq [c targets]
+                                 :effect (req (doseq [c (reverse targets)]
                                                 (move state :runner c :deck {:front true})))})
                               card nil))}
    :subroutines [end-the-run-if-tagged

diff --git a/test/clj/game/cards/events_test.clj b/test/clj/game/cards/events_test.clj
@@ -4429,7 +4429,7 @@
       (click-card state :runner "Easy Mark")
       (click-card state :runner "Sure Gamble")
       (is (= 2 (-> (get-runner) :hand count)))
-      (is (= ["Sure Gamble" "Easy Mark"] (->> (get-runner) :hand (map :title) (into []))))
+      (is (= ["Easy Mark" "Sure Gamble"] (->> (get-runner) :hand (map :title) (into []))))
       (is (nil? (prompt-map :corp)) "Corp should have no more prompts")
       (is (nil? (prompt-map :runner)) "Runner should have no more prompts")
       (is (nil? (get-run)) "Run is ended"))))