Testing: Add tests around name casing

Author: inexorabletash

notes/testplan.md

@@ -714,7 +714,7 @@ For the following cases, open `/TESTS` and `/TESTS/FOLDER`:
 
 * Find make a copy of a `PRODOS` system file. Rename it to have a ".SYSTEM" suffix. Verify that it updates to have an application icon. Rename it again to remove the suffix. Verify that it updates to have a system file icon. Repeat several times. Verify that the icon has not shifted in position.
 
-## Name Casing
+## Name Casing -- covered by `tests/name_casing.lua`
 
 * Verify that GS/OS volume name cases show correctly.
 * Verify that GS/OS file name cases show correctly in `/TESTS/PROPERTIES/GS.OS.NAMES`

tests/lib/a2d.lua

@@ -320,6 +320,19 @@ function a2d.RenamePath(path, newname)
   a2d.RenameSelection(newname)
 end
 
+function a2d.DuplicateSelection(newname)
+  a2d.OAShortcut("D")
+  apple2.ControlKey("X") -- clear
+  apple2.Type(newname)
+  apple2.ReturnKey()
+  a2d.WaitForRepaint()
+end
+
+function a2d.DuplicatePath(path, newname)
+  a2d.SelectPath(path)
+  a2d.DuplicateSelection(newname)
+end
+
 function a2d.DeleteSelection()
   a2d.OADelete()
   emu.wait(5) -- wait for enumeration
@@ -348,10 +361,20 @@ function a2d.CreateFolder(path)
   a2d.WaitForRepaint()
 end
 
-function a2d.EraseVolume(name)
+function a2d.FormatVolume(name, opt_new_name)
+  a2d.SelectPath("/"..name)
+  a2d.InvokeMenuItem(a2d.SPECIAL_MENU, a2d.SPECIAL_FORMAT_DISK)
+  apple2.Type(opt_new_name or name)
+  a2d.DialogOK()
+  a2d.WaitForRepaint()
+  a2d.DialogOK() -- confirm overwrite
+  emu.wait(5)
+end
+
+function a2d.EraseVolume(name, opt_new_name)
   a2d.SelectPath("/"..name)
   a2d.InvokeMenuItem(a2d.SPECIAL_MENU, a2d.SPECIAL_ERASE_DISK)
-  apple2.Type(name) -- new name
+  apple2.Type(opt_new_name or name)
   a2d.DialogOK()
   a2d.WaitForRepaint()
   a2d.DialogOK() -- confirm overwrite
@@ -418,6 +441,12 @@ function a2d.ToggleOptionShowShortcutsOnStartup()
   a2d.CloseWindow()
   a2d.CloseAllWindows()
 end
+function a2d.ToggleOptionPreserveCase()
+  a2d.OpenPath("/A2.DESKTOP/APPLE.MENU/CONTROL.PANELS/OPTIONS")
+  a2d.OAShortcut("4") -- Toggle "Preserve uppercase and lowercase in names"
+  a2d.CloseWindow()
+  a2d.CloseAllWindows()
+end
 
 function a2d.Quit()
   a2d.InvokeMenuItem(a2d.FILE_MENU, -1)

tests/lib/apple2.lua

@@ -537,12 +537,23 @@ function apple2.ResetMouse()
   mouse_y = 0
 end
 
-function apple2.ClickMouseButton()
+function apple2.PressMouseButton()
   EnsureMouse()
   local field = get_field(mouse.b.port, mouse.b.field)
   field:set_value(1)
   emu.wait(1/60)
-  field:clear_value(1)
+end
+
+function apple2.ReleaseMouseButton()
+  EnsureMouse()
+  local field = get_field(mouse.b.port, mouse.b.field)
+  field:clear_value()
+  emu.wait(1/60)
+end
+
+function apple2.ClickMouseButton()
+  PressMouseButton()
+  ReleaseMouseButton()
 end
 
 function apple2.DoubleClickMouseButton()