;===========================================================================
; MODULE:   SeqManl.Txt
; AUTHOR:   JohnMil
; DATE:     9/10/92
;
; This data file is meant to act as a sanity check for the MCI Sequencer
; driver. It attempts to run a representative set of commands on known a
; midi file, and asks the user whether or not the results were as expected.
; It is IMPERATIVE that all questions be phrased in a manner such that 'Yes'
; indicates the correct behaviour, and 'No' indicates an error.
;
; Rules for construction of this data file can be found in MCI\MCIGen\TestLoop.
;
;===========================================================================
;
;
;
;=====================
TestCase TC_SEQ_SANITY
;=====================
;
close all
0

info %element% file
0
?Is the file %element% and it's path visible (VERBOSE logging only)?
info %element% file
0
=%FileName%
open %element% alias %alias%
0
1
info %alias% file
0
%FileName%
play %alias%
0
?Do you hear %element% playing?
status %alias% position
0
?Click on 'Yes' after checking the position returned.
status %alias% position
0
?Does the new position shown seem reasonable in light of the previous position?
pause %alias%
0
?Has %element% stopped playing?
play %alias%
0
?Has %element% started playing again from where it stopped?
stop %alias%
0

set %alias% time format ms
0
?Click on 'Yes' -- %element% should play for 10 seconds.
play %alias% from 1 to 10000 wait
0
?Did %element% play for 10 seconds?
seek %alias% to start wait
0
?Click on 'Yes' -- the first 5 seconds of %element% should play.
play %alias% to 5000 wait
0
?Did you hear the first five seconds of %element%?
seek %alias% to 10000 wait
0
?Click on 'Yes' -- You should hear %element% from 10 to 20 seconds.
play %alias% to 20000 wait
0
?Did you hear %element% for 10 seconds starting 10 seconds into the song?
set %alias% time format song pointer
0

seek %alias% to 1
0

set %alias% tempo 200
0
?Click on 'Yes' -- listen to how quickly the first few measures play.
play %alias%
0
?Click on 'Yes' to stop the song playing.
stop %alias%
0

seek %alias% to 1
0

set %alias% tempo 100
0
?Click on 'Yes' -- listen to how quickly the same measures play now.
play %alias%
0
?Was this half as fast as the previous tempo?
stop %alias%
0

close %alias%
0