Apple-1-Tools/c2t
1
0
Fork 0
mirror of https://github.com/Michaelangel007/c2t.git synced 2024-12-28 01:29:42 +00:00
Code Issues Projects Releases Wiki Activity

improved test scripts

Browse Source
This commit is contained in:
Egan Ford 2016-01-06 19:35:27 -07:00
parent ef95c2c024
commit 0960c1e566
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
done.tiff Normal file
View File

Binary file not shown.

14
test.scrp
View File

@ -11,6 +11,8 @@ on run argv
-- Create a standard Apple //els -- Create a standard Apple //els
set theMachine to (make new AppleIIe) set theMachine to (make new AppleIIe)
tell theMachine tell theMachine
-- Change to a color screen
-- set monochrome screen to false
set speaker volume to 0.25 set speaker volume to 0.25
insert my_path & my_test into device "S6D1" insert my_path & my_test into device "S6D1"
-- Now wait for the startup screen -- Now wait for the startup screen
@ -23,17 +25,17 @@ on run argv
type line "LOAD" type line "LOAD"
play my_path & "test.aif" on device "cassette recorder" play my_path & "test.aif" on device "cassette recorder"
-- Set the speed to maximum, to go quickly through the startup phase.
set speed to maximum set speed to maximum
try try
with timeout of 5 seconds with timeout of 30 seconds
repeat until the last line of the compact screen text = "DONE. PRESS [RETURN] TO REBOOT." -- repeat until the last line of the compact screen text = "DONE. PRESS [RETURN] TO REBOOT."
delay 0.5 -- delay 0.5
end repeat -- end repeat
waiting until screen equals imagefile POSIX path of (my_path & "done.tiff")
end timeout end timeout
on error on error
do shell script "echo timeout" return "\nIMAGE WRITE TIMEOUT!!! Check Virtual ][ screen. Test aborted.\n\n"
end try end try
-- short test of image, not necessary, next 3 lines can be removed -- short test of image, not necessary, next 3 lines can be removed