                 {:keys [lines] {:keys [x y]} :cursor} vt]
             (is (= x 1))
             (is (= y 2))
-            (is (= lines [[[0x41 {}] [0x42 {}] [0x43 {}] [0x20 {}]]
-                          [[0x44 {}] [0x45 {}] [0x20 {}] [0x20 {}]]
-                          [[0x20 {}] [0x20 {}] [0x20 {}] [0x20 {}]]])))))))
+            (is (= (compact-lines lines) [[["ABC " {}]]
+                                          [["DE  " {}]]
+                                          [["    " {}]]])))))))
 
   (testing "CSI ?1049l (DECRM)" ; switch back to primary buffer and restore cursor
     (let [vt (make-vt 4 3)]

            [clojure.test.check.generators :as gen]
            [clojure.test.check.properties :as prop :include-macros true]
            [asciinema-player.vt :as vt :refer [parse make-vt feed feed-one feed-str get-params initial-saved-cursor compact-lines]]))

(defn test-event [initial-state input expected-state expected-actions]
  (is (= (parse initial-state input) [expected-state expected-actions])))

              {:keys [lines] {:keys [x y]} :cursor} vt]
          (is (= x 2))
          (is (= y 1))
          (is (= (compact-lines lines) [[["ABC " {}]]
                                        [["DE  " {}]]
                                        [["    " {}]]]))))))

  (testing "CSI ?h (DECSM)" ; set multiple modes
    (let [vt (-> (make-vt 80 24)
