Tests: Add VEDRIVE support

Thanks to @bobbimanners and @ksherlock and of course @ADTPro for
making this possible.

Author: inexorabletash

bin/mametest

@@ -126,6 +126,35 @@ DISKARGS="$NEWDISKARGS"
 export UNFORMATTED_IMG="$TMPDIR/disks/unformatted.2mg"
 cp "res/unformatted.2mg" "$UNFORMATTED_IMG"
 
+# --------------------------------------------------
+# VEDrive
+
+# From https://github.com/bobbimanners/ProDOS-Utils/
+
+VESERVER="../ProDOS-Utils/veserver.py"
+VESERVERARGS=""
+if [ -n "$VEDISK1" ]; then
+  ext="${VEDISK1##*.}"
+  target="$TMPDIR/disks/vdisk1.${ext}"
+  cp "$VEDISK1" "$target"
+  VESERVERARGS="$VESERVERARGS --disk1=$target"
+fi
+if [ -n "$VEDISK2" ]; then
+  ext="${VEDISK2##*.}"
+  target="$TMPDIR/disks/vdisk2.${ext}"
+  cp "$VEDISK2" "$target"
+  VESERVERARGS="$VESERVERARGS --disk2=$target"
+fi
+if [ -n "$VESERVERARGS" ]; then
+  if [ ! -x "$VESERVER" ]; then
+    echo "$VESERVER not found!" 1>&2
+    exit 1
+  fi
+  ../ProDOS-Utils/veserver.py $VESERVERARGS >/dev/null &
+  VESERVER_PID=$!
+  trap "kill $VESERVER_PID" EXIT
+fi
+
 # --------------------------------------------------
 # Symbols
 

res/tests.hdv

@@ -77,6 +77,19 @@ RESOLUTION="560x384"
 ================================================== ENDCONFIG ]]
 ```
 
+## ADTPro VEDrive
+
+Tests using ADTPro's Virtual Ethernet Drive are supported if you're using Ample's MAME.
+
+* Have https://github.com/bobbimanners/ProDOS-Utils/ cloned parallel to your `a2d` repo
+* Specify an `uthernet2` card in the test config; works in Slot 3 with `-sl3`
+* Define `VEDISK1` and `VEDISK2` in the test config, pointing at .po, .hdv or .2mg disk images.
+
+If you get a warning from Ample/MAME about VMNet Permissions, follow the instructions.
+
+See `tests/infrastructure/vedrive.lua` for an example.
+
+
 # Files
 
 ## `lib/` - Libraries

tests/README.md

@@ -0,0 +1,83 @@
+--[[ BEGINCONFIG ========================================
+
+MODEL="apple2ee"
+MODELARGS="-sl1 ramfactor -sl2 mouse -sl3 uthernet2 -sl7 cffa2 -aux ext80"
+DISKARGS="-hard1 $HARDIMG -hard2 res/tests.hdv"
+VEDISK1=res/floppy_with_files.2mg
+VEDISK2=res/disk_b.2mg
+
+======================================== ENDCONFIG ]]
+
+a2d.ConfigureRepaintTime(0.25)
+
+test.Step(
+  "VEDRIVE",
+  function()
+    a2d.OpenPath("/A2.DESKTOP/EXTRAS/BASIC.SYSTEM")
+    apple2.WaitForBasicSystem()
+    apple2.TypeLine("PREFIX /TESTS/DRIVERS")
+    emu.wait(10)
+
+    --------------------------------------------------
+    -- Configure VEDrive
+    --------------------------------------------------
+
+    apple2.TypeLine("-VEDRIVE.SETUP")
+
+    util.WaitFor(
+      "IP prompt", function()
+        return apple2.GrabTextScreen():match("PLEASE ENTER THE ADTPRO SERVER ADDRESS:")
+    end)
+    apple2.TypeLine("192.168.64.1")
+
+    util.WaitFor(
+      "audible feedback prompt", function()
+        return apple2.GrabTextScreen():match("AUDIO FEEDBACK IF AVAILABLE%?")
+    end)
+    apple2.LeftArrowKey()
+    apple2.TypeLine("0")
+
+    util.WaitFor(
+      "visual feedback prompt", function()
+        return apple2.GrabTextScreen():match("VISUAL FEEDBACK IF AVAILABLE%?")
+    end)
+    apple2.LeftArrowKey()
+    apple2.TypeLine("0")
+
+    apple2.Type("_")
+    util.WaitFor(
+      "prompt", function()
+        return apple2.GrabTextScreen():match("]_")
+    end)
+    apple2.LeftArrowKey()
+
+    --------------------------------------------------
+    -- Launch VEDrive
+    --------------------------------------------------
+
+    apple2.TypeLine("-VEDRIVE")
+    util.WaitFor(
+      "confirmation", function()
+        return apple2.GrabTextScreen():match("Add VEDrive")
+    end)
+
+    apple2.TypeLine("BYE")
+    a2d.WaitForDesktopReady()
+
+    --------------------------------------------------
+    -- Launch VEDrive
+    --------------------------------------------------
+    a2d.CloseAllWindows()
+    a2d.ClearSelection()
+    emu.wait(5)
+    test.Snap("verify VEDrives have File Share icons")
+
+    a2d.OpenPath("WITH.FILES")
+    test.Snap("verify files present")
+    a2d.CloseAllWindows()
+    a2d.ClearSelection()
+
+    a2d.InvokeMenuItem(a2d.SPECIAL_MENU, a2d.SPECIAL_FORMAT_DISK-2)
+    emu.wait(10)
+    test.Snap("verify VEDrives listed")
+end)