Merge pull request #8623 from NBKelly/mileis-u-works-if-grip-is-empty

Mileis u works if grip is empty

Author: NBKelly

src/clj/game/cards/identities.clj

@@ -1556,7 +1556,7 @@
                                 {:optional
                                  {:prompt (msg "The top card of R&D is " (:title (first (:deck corp))) ". Trash it?")
                                   :waiting-prompt true
-                                  :req (req (seq (:hand runner)))
+                                  :req (req (seq (:deck corp)))
                                   :yes-ability {:cost [(->c :trash-from-deck 1)]
                                                 :once :per-turn
                                                 :msg "add 1 card from Archives to HQ"

test/clj/game/cards/identities_test.clj

@@ -3546,6 +3546,21 @@
       (click-prompts state :corp "Yes" "IPO" "Snare!")
       (is (is-hand? state :corp ["IPO" "Snare!"])))))
 
+(deftest meiles-u-vs-empty-grip
+  (doseq [[s sn] [[:hq "HQ"] [:rd "R&D"] ["Archives" :archives]]]
+    (do-game
+      (new-game {:corp {:id "Méliès U: Only the Brightest"
+                        :hand ["IPO"]
+                        :deck ["Snare!"]
+                        :discard ["Beanstalk Royalties"]}
+                 :runner {:deck ["Ika"]}})
+      (take-credits state :corp)
+      (click-prompt state :corp "R&D")
+      (play-from-hand state :runner "Ika")
+      (run-empty-server state :rd)
+      (click-prompts state :corp "Yes" "IPO" "Snare!")
+      (is (is-hand? state :corp ["IPO" "Snare!"])))))
+
 (deftest mercury-chrome-libertador
   (do-game
       (new-game {:corp {:deck [(qty "Hedge Fund" 5)]