       (is (= 0 (:agenda-point (get-runner))) "Didn't steal False Lead")
       (is (= 2 (count (:discard (get-corp)))) "2 cards in Archives")
       (is (empty? (:prompt (get-runner))) "Run concluded"))))
+
+(deftest dirty-laundry
+  "Dirty Laundry - Gain 5 credits at the end of the run if it was successful"
+  (do-game
+    (new-game (default-corp)
+              (default-runner [(qty "Dirty Laundry" 2)]))
+    (take-credits state :corp)
+    (play-from-hand state :runner "Dirty Laundry")
+    (prompt-choice :runner "Archives")
+    (core/no-action state :corp nil)
+    (core/successful-run state :runner nil)
+    (is (= 8 (:credit (get-runner))) "Gained 5 credits")
+    (play-from-hand state :runner "Dirty Laundry")
+    (prompt-choice :runner "Archives")
+    (core/no-action state :corp nil)
+    (core/jack-out state :runner nil)
+    (is (= 6 (:credit (get-runner))) "Run unsuccessful; gained no credits")))
 
 (deftest drive-by
   "Drive By - Expose card in remote server and trash if asset or upgrade"

    (is (= 2 (count (filter #(= (:type %) "Program") (:discard (get-runner))))) "2 programs in Heap")
    (is (= 6 (:credit (get-runner))) "Paid 1 credit to play Inject, gained 2 credits from trashed programs")))

(deftest notoriety
  "Notoriety - Run all 3 central servers successfully and play to gain 1 agenda point"
  (do-game

      (prompt-select :runner gd)
      (is (= 3 (get-in (refresh gd) [:counter]))))))

(deftest vamp
  "Vamp - Run HQ and use replace access to pay credits to drain equal amount from Corp"
  (do-game
    (new-game (default-corp) (default-runner [(qty "Vamp" 1) (qty "Sure Gamble" 3)]))
    (take-credits state :corp)
    (is (= 8 (:credit (get-corp))))
    (play-from-hand state :runner "Sure Gamble")
    (play-from-hand state :runner "Sure Gamble")
    (is (= 13 (:credit (get-runner))))
    (play-run-event state (find-card "Vamp" (:hand (get-runner))) :hq)
    (prompt-choice :runner "Run ability")
    (prompt-choice :runner 8)
    (is (= 1 (:tag (get-runner))) "Took 1 tag")
    (is (= 5 (:credit (get-runner))) "Paid 8 credits")
    (is (= 0 (:credit (get-corp))) "Corp lost all 8 credits")))

(deftest virus-counter-flag-on-enter
  "Set counter flag when virus card enters play with counters"
  (do-game
