@noop
!
! TEST XTESTR
!
! Required files:
!		SEQ.DAT
!

NOERROR

!
! Delete TESTR.*
!

Delete TESTR.*

!
! Copy SEQ.DAT to TESTR.SEQ
!

Copy SEQ.DAT TESTR.SEQ

!
! XTESTR: Rename TESTR.SEQ to TESTR.DAT
!

Ru XTESTR
GO
TESTR.SEQ
TESTR.DAT

Direct TESTR.SEQ,TESTR.DAT

!
! Copy SEQ.DAT to TESTR.SEQ
!

Copy SEQ.DAT TESTR.SEQ

!
! XTESTR: Rename to a file which already exists (TESTR.SEQ)
!	NOTE: This is an error for TOPS10 only.(native mode)
!

Ru XTESTR
GO
TESTR.DAT
TESTR.SEQ

!
! XTESTR: Rename a file which does not exist (TESTR.BIN)
!

Ru XTESTR
GO
TESTR.BIN
TESTR.DAT

!
! XTESTR: Rename a protected file
!

Ru XTESTR
GO
PS:<SUBSYS>BLISS.EXE
PS:<SUBSYS>TESTR.DAT

!
! XTESTR: Rename a file to a different disk structure
!

Ru XTESTR
GO
DSKU:TESTR.SEQ
PS:TESTR.SEQ

!
! Delete all TESTR files
!

Delete TESTR.*