Test for mtgred#5194

test/clj/game/cards/agendas_test.clj

@@ -547,7 +547,21 @@
       (play-and-score state "Broad Daylight")
       (click-prompt state :corp "Yes")
       (is (= 1 (count-bad-pub state)) "Corp gains 1 bad pub")
-      (is (= 2 (get-counters (get-scored state :corp 1) :agenda)) "Should gain 2 agenda counters"))))
+      (is (= 2 (get-counters (get-scored state :corp 1) :agenda)) "Should gain 2 agenda counters")))
+  (testing "interaction with Storgotic Resonator #5194"
+    (do-game
+      (new-game {:corp {:deck ["Broad Daylight" "Storgotic Resonator"]}
+                 :runner {:id "Reina Roja: Freedom Fighter"
+                          :hand [(qty "Stimhack" 5)]}})
+      (play-from-hand state :corp "Storgotic Resonator" "New remote")
+      (core/rez state :corp (get-content state :remote1 0))
+      (play-and-score state "Broad Daylight")
+      (click-prompt state :corp "Yes")
+      (is (= 1 (get-counters (get-scored state :corp 0) :agenda)) "Should gain 1 agenda counter")
+      (is (empty? (:discard (get-runner))) "Runner has no discarded cards")
+      (card-ability state :corp (get-scored state :corp 0) 0)
+      (is (= 2 (count (:discard (get-runner)))) "Runner took 2 damage")
+      (is (= 1 (get-counters (get-content state :remote1 0) :power))))))
 
 (deftest cfc-excavation-contract
   ;; CFC Excavation Contract