Hy version kind of works

livesort_hy/test_livesort.hy

@@ -0,0 +1,53 @@
+(import [livesort_hy [Livesort]])
+(import unittest)
+
+
+(defclass TestLivesort [unittest.TestCase]
+  (defn setUp [self] 
+    (setv self.input-buf (list)
+          self.output-buf (list)
+          self.ls (Livesort self.input-buf self.output-buf.append 4 8)))
+
+  (defn tearDown [self]
+    (del self.ls
+         self.output-buf
+         self.input-buf))
+
+  (defn test_Livesort [self]
+    (self.assertEqual self.ls.next-line self.input-buf)
+    (self.assertEqual self.ls.print self.output-buf.append)
+    (self.assertEqual self.ls.height 4)
+    (self.assertEqual self.ls.width 8)
+    (self.assertFalse self.ls.lines)
+    (self.assertTrue self.ls.screen)
+    (for [line self.ls.screen]
+      (self.assertEqual None line)))
+
+  (defn test_sortline [self]
+    (self.assertFalse self.ls.lines)
+    (self.ls.sortline "line 2")
+    (self.assertEqual self.ls.lines ["line 2"])
+    (self.ls.sortline "line 1")
+    (self.assertEqual self.ls.lines ["line 1" "line 2"]))
+
+  (defn test_render [self]
+    (self.ls.sortline "line 1")
+    (self.assertEqual (self.ls.render)
+                      ["line 1"]))
+
+  (defn test_display [self]
+    ;; I got fed up trying to write this sensibly, will go away after refacor
+    (self.assertEqual "
+
+
+" (self.ls.display))
+    (self.ls.sortline "line 1")
+    (self.assertEqual "line 1
+
+
+" (self.ls.display)))
+
+  ;; note (unfortunate) capitalization
+  (defn test_livesort [self]
+    (self.input-buf.append "line 1")
+    (self.ls.livesort)))