     (is (= 1 (count (get-in @state [:runner :rig :program]))))
     (is (= 0 (:credit (get-runner))))))
 
+(deftest ken-tenma-run-event-credit
+  "Ken 'Express' Tenma - Gain 1 credit when first Run event played"
+  (do-game
+    (new-game (default-corp) (make-deck "Ken \"Express\" Tenma: Disappeared Clone" [(qty "Account Siphon" 2)]))
+    (take-credits state :corp)
+    (play-run-event state (first (:hand (get-runner))) :hq)
+    (is (= 6 (:credit (get-runner))) "Gained 1 credit for first Run event")
+    (prompt-choice :runner "Run ability")
+    (play-run-event state (first (:hand (get-runner))) :hq)
+    (is (= 16 (:credit (get-runner))) "No credit gained for second Run event")))
+
 (deftest nasir-ability-basic
   "Nasir Ability - Basic"
   (do-game
-    (new-game 
-      (default-corp [(qty "Ice Wall" 3)]) 
+    (new-game
+      (default-corp [(qty "Ice Wall" 3)])
       (make-deck "Nasir Meidan: Cyber Explorer" []))
     (play-from-hand state :corp "Ice Wall" "HQ")
     (take-credits state :corp)

(deftest nasir-ability-xanadu
  "Nasir Ability - Xanadu"
  (do-game
    (new-game 
      (default-corp [(qty "Ice Wall" 1)]) 
      (make-deck "Nasir Meidan: Cyber Explorer" [(qty "Xanadu" 1)]))
    (play-from-hand state :corp "Ice Wall" "HQ")
    (take-credits state :corp)

      (core/rez state :corp iwall)
      (is (= 3 (:credit (get-runner))))
      (card-ability state :runner nasir 0)
      (is (= 2 (:credit (get-runner)))))))

(deftest reina-rez-cost-increase
  "Reina Roja - Increase cost of first rezzed ICE"
  (do-game
    (new-game
      (default-corp [(qty "Quandary" 3)])
      (make-deck "Reina Roja: Freedom Fighter" []))
    (play-from-hand state :corp "Quandary" "R&D")
    (take-credits state :corp)
    (is (= 7 (:credit (get-corp))))
    (core/click-run state :runner {:server "R&D"})
    (let [quan (get-in @state [:corp :servers :rd :ices 0])]
      (core/rez state :corp quan)
      (is (= 5 (:credit (get-corp))) "Rez cost increased by 1"))))

(deftest spark-advertisements
  "Spark Agency - Rezzing advertisements"
  (do-game
    (new-game
      (make-deck "Spark Agency: Worldswide Reach" [(qty "Launch Campaign" 2)])
      (default-runner))
    (play-from-hand state :corp "Launch Campaign" "New remote")
    (play-from-hand state :corp "Launch Campaign" "New remote")
    (let [lc1 (get-in @state [:corp :servers :remote1 :content 0])
          lc2 (get-in @state [:corp :servers :remote2 :content 0])]
      (core/rez state :corp lc1)
      (is (= 4 (:credit (get-runner))) "Runner lost 1 credit from rez of advertisement (Corp turn)")
      (take-credits state :corp)
      (core/click-run state :runner {:server "Server 1"})
      (core/rez state :corp lc2)
      (is (= 3 (:credit (get-runner))) "Runner lost 1 credit from rez of advertisement (Runner turn)"))))

(deftest titan-agenda-counter
  "Titan Transnational - Add a counter to a scored agenda"
  (do-game
    (new-game
      (make-deck "Titan Transnational: Investing In Your Future" [(qty "Project Atlas" 1)])
      (default-runner))
    (play-from-hand state :corp "Project Atlas" "New remote")
    (let [atl (get-in @state [:corp :servers :remote1 :content 0])]
      (core/gain state :corp :click 1)
      (core/advance state :corp {:card (refresh atl)})
      (core/advance state :corp {:card (refresh atl)})
      (core/advance state :corp {:card (refresh atl)})
      (core/score state :corp {:card (refresh atl)})
      (let [scored (get-in @state [:corp :scored 0])]
        (is (= 1 (:counter scored)) "1 counter added by Titan")))))
