Merge pull request #7034 from francescopellegrini/starlit-knight-test

Author: NoahTheDuke

src/clj/game/cards/ice.clj

@@ -3543,8 +3543,8 @@
         sub end-the-run]
     {:on-encounter {:req (req (threat-level 4 state))
                     :effect (effect (gain-variable-subs card (sub-count state) sub {:variable true :front false :end true}))}
-   :events [{:event :run-ends
-             :effect (effect (reset-variable-subs card 0 nil))}]
+     :events [{:event :run-ends
+               :effect (effect (reset-variable-subs card 0 nil))}]
      :subroutines [(give-tags 1)
                    (give-tags 1)]}))
 

test/clj/game/cards/ice_test.clj

@@ -6429,6 +6429,38 @@
       (is (= 1 (:position (get-in @state [:run])))
           "Run position updated; now approaching Ice Wall"))))
 
+(deftest starlit-knight
+  (do-game
+    (new-game {:corp {:hand ["Starlit Knight" "Vanity Project"]
+                      :credits 20}})
+    (play-from-hand state :corp "Starlit Knight" "HQ")
+    (take-credits state :corp)
+    (let [sk (get-ice state :hq 0)]
+      (run-on state :hq)
+      (rez state :corp sk)
+      (run-continue state)
+      (changes-val-macro
+        2 (count-tags state)
+        "Runner got 2 tags"
+        (fire-subs state (refresh sk)))
+      (run-continue state :movement)
+      (run-jack-out state)
+      (take-credits state :runner)
+      (play-and-score state "Vanity Project")
+      (take-credits state :corp)
+      (run-on state :hq)
+      (run-continue state)
+      (is (= ["Give the Runner 1 tag"
+              "Give the Runner 1 tag"
+              "End the run"
+              "End the run"]
+             (map :label (:subroutines (refresh sk)))))
+      (changes-val-macro
+        2 (count-tags state)
+        "Runner got 2 more tags"
+        (fire-subs state (refresh sk)))
+      (is (not (:run @state)) "Run ended"))))
+
 (deftest stavka
   (do-game
    (new-game {:corp {:hand ["Stavka" "Prisec"] :credits 10}