         (core/rez state :corp paper)
         (is (= 6 (:current-strength (refresh curt))) "Curtain Wall back to default 6 strength")))))
 
+(deftest draco
+  "Dracō - Pay credits when rezzed to increase strength; trace to give 1 tag and end the run"
+  (do-game
+    (new-game (default-corp [(qty "Dracō" 1)])
+              (default-runner))
+    (play-from-hand state :corp "Dracō" "HQ")
+    (take-credits state :corp)
+    (let [drac (get-in @state [:corp :servers :hq :ices 0])]
+      (core/click-run state :runner {:server "HQ"})
+      (core/rez state :corp drac)
+      (prompt-choice :corp 4)
+      (is (= 4 (:counter (refresh drac))) "Dracō has 4 power counters")
+      (is (= 4 (:current-strength (refresh drac))) "Dracō is 4 strength")
+      (card-ability state :corp drac 0)
+      (prompt-choice :corp 0)
+      (prompt-choice :runner 0)
+      (is (= 1 (:tag (get-runner))) "Runner took 1 tag")
+      (is (nil? (get-in @state [:run])) "Run was ended"))))
+
 (deftest enigma
   "Enigma - Force Runner to lose 1 click if able"
   (do-game

      (prompt-choice :runner 0)
      (is (not (get-in (refresh tmi) [:rezzed]))))))

(deftest wraparound
  "Wraparound - Strength boosted when no fracter is installed"
  (do-game

      (core/rez state :corp (refresh ab))
      (is (= 5 (:credit (get-corp))) "Paid 3 credits to rez; 2 advancments on Asteroid Belt"))))

(deftest bandwidth
  "Bandwidth - Give the Runner 1 tag; remove 1 tag if the run is successful"
  (do-game
    (new-game (default-corp [(qty "Bandwidth" 1)])
              (default-runner))
    (play-from-hand state :corp "Bandwidth" "Archives")
    (let [bw (get-in @state [:corp :servers :archives :ices 0])]
      (take-credits state :corp)
      (core/click-run state :runner {:server "Archives"})
      (core/rez state :corp bw)
      (card-ability state :corp bw 0)
      (is (= 1 (:tag (get-runner))) "Runner took 1 tag")
      (core/no-action state :corp nil)
      (core/successful-run state :runner nil)
      (is (= 0 (:tag (get-runner))) "Run successful; Runner lost 1 tag")
      (core/click-run state :runner {:server "Archives"})
      (card-ability state :corp bw 0)
      (is (= 1 (:tag (get-runner))) "Runner took 1 tag")
      (core/no-action state :corp nil)
      (core/jack-out state :runner nil)
      (is (= 1 (:tag (get-runner))) "Run unsuccessful; Runner kept 1 tag"))))

(deftest cortex-lock
  "Cortex Lock - Do net damage equal to Runner's unused memory"
  (do-game
