@noop
!
! TEST XTESTO
!
! Required files:
!		NOSEQ2.DAT	SEQ.DAT		SEQ2.DAT
!

NOERROR

!
! Delete TESTO.*
!

Delete TESTO.*

!
! XTESTO: Overwrite a file which does not exist
!

Ru XTESTO
GO
SEQ.DAT
TESTO.DAT

FILCOM
TESTO=SEQ.DAT,TESTO.DAT



!
! XTESTO: Overwrite a long file with a short file
!

Copy NOSEQ2.DAT TESTO.DAT
Ru XTESTO
GO
SEQ.DAT
TESTO.DAT

FILCOM
TESTO=SEQ.DAT,TESTO.DAT



!
! XTESTO: Overwrite a short file with a long file
!

Copy SEQ.DAT TESTO.DAT
Ru XTESTO
GO
SEQ2.DAT
TESTO.DAT

FILCOM
TESTO=SEQ2.DAT,TESTO.DAT



!
! XTESTO: Overwrite a protected file
!

Ru XTESTO
GO
SEQ.DAT
PS:<SUBSYS>BLISS.EXE



!
! Delete all TESTO files
!

Delete TESTO.*