! Smoke test for TECO text editor !

! Function: Switch input streams !
!  Command: EP, ER` !
!     TECO: PASS !

[[enter]]

:@EW"[[out1]]" [["U]]                   ! Create 1st temp file !

@I/abcdef/ 10@I//                       ! Add some data !

EC                                      ! Write data and close file !

:@EW"[[out2]]" [["U]]                   ! Create 2nd temp file !

@I/123456/ 10@I//                       ! Add some data !

EC                                      ! Write data and close file !

:@ER"[[out1]]" [["U]]                   ! Open 1st file on primary stream !

A

EP                                      ! Test: switch to secondary input stream !

:@ER"[[out2]]" [["U]]                   ! Open 2nd file on secondary stream !

A

@ER//                                   ! Switch to primary stream !

HT
HK
EC

EP                                      ! Switch to secondary stream !

EC

[[exit]]
