; Erase gap test 01.
;
; Test 01a: Check that an initial EOF is handled.
;
; Operations:
;   - write (initial) gap
;
; The file is empty, so the first read fails with EOF.
;
; Correct tape:
;   Processing tape file 1
;   Obj 1, position 0, erase gap, length = 4800 (0x12C0)
;   End of physical tape


attach -n msc0 gap-test-01a.tape


go until '@' ; reply '10 SEL0\r'

go until '@' ; reply '20 GAP\r'

go until '@' ; reply '30 GOSB 2000\r'

go until '@' ; reply '1000 STOP\r'

go until '@' ; reply '2000 SFC 2000\r'

go until '@' ; reply '2010 RTN\r'

go until '@' ; reply 'GO\r'

go until '@'


detach msc0

! mtdump gap-test-01a.tape > gap-test-01.log


; Test 01b: Check that an incomplete metadatum is handled as an EOF.
;
; Operations:
;   - write (initial) gap
;
; The file contains three bytes, so the first read fails with EOF.
;
; Correct tape:
;   Processing tape file 1
;   Obj 1, position 0, erase gap, length = 4800 (0x12C0)
;   End of physical tape


! echo x>gap-test-01b.tape

attach -e msc0 gap-test-01b.tape


reply 'GO\r'

go until '@' ; reply 'BYE\r'

go


detach msc0

! mtdump gap-test-01b.tape >> gap-test-01.log