Merge pull request #7093 from francescopellegrini/add-timely-public-r…

…elease-new-remote-test
mtgred · Aug 18, 2023 · dd47734 · dd47734
2 parents 9a30daf + ffeec1e
commit dd47734
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 2 deletions.
diff --git a/src/clj/game/cards/agendas.clj b/src/clj/game/cards/agendas.clj
@@ -8,7 +8,7 @@
                               update-all-agenda-points]]
    [game.core.bad-publicity :refer [gain-bad-publicity lose-bad-publicity]]
    [game.core.board :refer [all-active-installed all-installed all-installed-corp
-                            all-installed-runner-type get-remote-names server->zone]]
+                            all-installed-runner-type get-remote-names installable-servers server->zone]]
    [game.core.card :refer [agenda? asset? can-be-advanced?
                            corp-installable-type? corp? facedown? faceup? get-agenda-points
                            get-card get-counters get-title get-zone has-subtype? ice? in-discard? in-hand?
@@ -1962,7 +1962,7 @@
                           (continue-ability
                             (let [chosen-ice target]
                               {:prompt "Choose a server"
-                               :choices (req (conj (vec servers) "New remote"))
+                               :choices (req (installable-servers state chosen-ice))
                                :async true
                                :effect (effect
                                          (continue-ability

diff --git a/test/clj/game/cards/agendas_test.clj b/test/clj/game/cards/agendas_test.clj
@@ -4285,6 +4285,18 @@
         (is (empty? (:hand (get-corp))) "Enigma removed from HQ")
         (is (zero? (get-counters (refresh tpr) :agenda)) "Agenda counter was spent"))))
 
+(deftest timely-public-release-install-on-new-remote
+    ;; Install on a new remote
+    (do-game
+      (new-game {:corp {:hand ["Timely Public Release" "Enigma"]}})
+      (play-and-score state "Timely Public Release")
+      (let [tpr (get-scored state :corp 0)]
+        (card-ability state :corp (refresh tpr) 0)
+        (click-card state :corp "Enigma")
+        (click-prompt state :corp "New remote")
+        (click-prompt state :corp "0")
+        (is (= "Enigma" (:title (get-ice state :remote2 0))) "Enigma was installed"))))
+
 (deftest timely-public-release-install-on-server-being-run
     ;; Install on server being run
     (testing "when approaching the server"