       (core/rez state :corp iwall)
       (is (= 3 (:credit (get-runner))))
       (card-ability state :runner nasir 0)
-      (is (= 2 (:credit (get-runner)))))))+      (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")))))

(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)

    (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)])
      (make-deck "Nasir Meidan: Cyber Explorer" []))
    (play-from-hand state :corp "Ice Wall" "HQ")
    (take-credits state :corp)
