Tests: Add tests for window headers

Author: inexorabletash

notes/testplan.md

@@ -748,7 +748,7 @@ For the following cases, open `/TESTS` and `/TESTS/FOLDER`:
 * Launch DeskTop. In the Options control panel, check "Preserve uppercase and lowercase in names". Rename one volume with mixed case e.g. "vol1.MIXED". Rename a second volume with differently mixed case, e.g. "VOL2.mixed". Drag the first volume to the second. Verify that the newly created folder is named with the same case as the dragged volume.
 
 
-## Window Headers
+## Window Headers - covered by `tests/window_headers.lua`
 
 * Open a folder with no items. Verify window header says "0 Items"
 * Open a folder with only one item. Verify window header says "1 Item"

res/tests.hdv

@@ -311,9 +311,13 @@ function a2d.DeletePath(path)
 end
 
 function a2d.CreateFolder(path)
-  local base, name = path:match("^(.*)/([^/]+)$")
-  if base ~= "" then
-    a2d.OpenPath(base)
+  if path:match("/") then
+    local base, name = path:match("^(.*)/([^/]+)$")
+    if base ~= "" then
+      a2d.OpenPath(base)
+    end
+  else
+    name = path
   end
   a2d.InvokeMenuItem(a2d.FILE_MENU, a2d.FILE_NEW_FOLDER)
   apple2.ControlKey("X") -- clear

tests/lib/a2d.lua

@@ -0,0 +1,65 @@
+--[[ BEGINCONFIG ========================================
+
+MODELARGS="-sl1 ramfactor -sl2 mouse -sl7 cffa2 -aux ext80"
+DISKARGS="-hard1 $HARDIMG -hard2 res/tests.hdv "
+
+======================================== ENDCONFIG ]]--
+
+test.Step(
+  "Item counts",
+  function()
+    a2d.OpenPath("/TESTS/WINDOWS/HEADERS/EMPTY")
+    test.Snap("verify header says '0 Items'")
+    a2d.OpenPath("/TESTS/WINDOWS/HEADERS/ONE.ITEM")
+    test.Snap("verify header says '1 Item'")
+    a2d.OpenPath("/TESTS/WINDOWS/HEADERS/TWO.ITEMS")
+    test.Snap("verify header says '2 Items'")
+
+    a2d.OpenPath("/TESTS/WINDOWS/HEADERS/EMPTY")
+    a2d.CreateFolder("NEW")
+    test.Snap("verify header says '1 Item'")
+
+    a2d.OpenPath("/TESTS/WINDOWS/HEADERS/ONE.ITEM")
+    a2d.CreateFolder("NEW")
+    test.Snap("verify header says '2 Ites'")
+end)
+
+test.Step(
+  "Available space",
+  function()
+    a2d.OpenPath("/RAM1")
+    test.Snap("note 'K in disk' and 'K available'")
+    a2d.CreateFolder("NEW")
+    test.Snap("verify 'K in disk' increased by 0.5 and 'K available' decreased by 0 or 1")
+    a2d.CreateFolder("NEW2")
+    test.Snap("verify 'K in disk' increased by 0.5 and 'K available' decreased by 0 or 1")
+
+    a2d.CloseAllWindows()
+    a2d.SelectAll()
+    a2d.OAShortcut("O") -- File > Open
+    a2d.CycleWindows()
+    test.Snap("note 'K in disk' and 'K available'")
+    a2d.CreateFolder("NEW3")
+    test.Snap("verify 'K in disk' increased by 0, 0.5, or 1 and 'K available' decreased by 0, 0.5, or 1")
+    a2d.CreateFolder("NEW4")
+    test.Snap("verify 'K in disk' increased by 0, 0.5, or 1 and 'K available' decreased by 0, 0.5, or 1")
+end)
+
+test.Step(
+  "Header clipping",
+  function()
+    a2d.OpenPath("/TESTS")
+    a2d.MoveWindowBy(-150, 0)
+    test.Snap("verify left edge of header text is cut off")
+    a2d.MoveWindowBy(400, 0)
+    test.Snap("verify right edge of header text is cut off")
+    a2d.MoveWindowBy(-250, 0)
+
+    a2d.GrowWindowBy(-100,-50)
+    test.Snap("both scrollbars?")
+
+    a2d.MoveWindowBy(-150, 0)
+    test.Snap("verify left edge of header text is cut off")
+    a2d.MoveWindowBy(450, 0)
+    test.Snap("verify right edge of header text is cut off")
+end)