cat > script <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
!TEST echo comments on
!F1
input test
input in reverse video
x
y
input test for multiple lines of a normal video field.
input test for multiple lines of a reverse video field.
input test
input test
input test for a uneven multiple lines field. Our next test is to test the editng performance of the field editor.
!TEST printscreen
!TEST : current field
!TEST field value
!PF2
next field<tab>!TAB
!TEST : next field
!TEST field value
previous field<enter> !ENTER
!TEST : previous field
!TEST field value
next field<return>
!TEST : next field
!TEST field value
!PF2
char delete test<F,>!TEST : before char delete
!TEST field value
!F,
!F,
!F,
!F,
!F,
!F,
!F,
!F,
!F,
!F,
!F,
!F,
!F,
!F,
!F,
!F,
!F,
!F,
!F,
!F,
!TEST : character deleted
!TEST field value
clear to eos test<PF2>!TEST field value
!ENTER
!TAB
!PF2
!TEST : clear to eos
!TEST field value
Help screen test!PF4
!TEST printscreen
!PF4
!ENTER
!TAB
!PF2
line begin/end<PF1>!TEST : line befin/end test
!TEST cursor
!PF1
!TEST cursor
!PF1
!TEST cursor
!PF1
!PF2
insert test,!F-

insert test 2!TEST : before insert word
!TEST field value
!LEFT
line !TEST : after insert word
!TEST field value
!F-
!ENTER
!TAB
join line test !TEST : before join
!TEST field value
!PF2
!TEST : after join
!TEST field value
!TAB
!TAB
!TAB
!TAB
!TAB
!TAB
!TAB
!PF2
!PF2
!PF2
!PF2
!PF2
!PF2
!PF2
!PF2
!PF2
!PF2
!PF2
!PF2
!PF2
!PF2
Now we test right and left, up and down.!TEST : test arrow keys
!TEST cursor
!TEST : test left movement
!LEFT
!LEFT
!TEST cursor
!TEST : test right movement
!RIGHT
!RIGHT
!TEST cursor
!TEST : test upward movement
!UP
!UP
!TEST cursor
!TEST : test downward movement
!DOWN
!DOWN
!TEST cursor
!TAB
test scroll!PF2
!TEST : test scroll
!TEST cursor
!TEST : scroll up
!F.
!UP
!TEST cursor
!TEST : scroll down, scroll down
!F.
!DOWN
!F.
!DOWN
!TEST cursor
!TEST : scroll left
!F.
!LEFT
!TEST cursor
!TEST : scroll right,scroll right
!F.
!RIGHT
!F.
!RIGHT
!TEST cursor
!TEST : back to home
!F.
 !TEST cursor
!DELETE
!DELETE
y
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
               F i e l d   E d i t o r   T e s t                                
                   (B a s i c    T e s t)                                       
basic normal: input test              basic reverse: input in reverse video     
single normal: x    single reverse: y                                           
multi normal: input test for        multi reverse: input test for m             
              multiple lines                       ultiple lines of             
              of a normal vid                       a reverse video             
              eo field.                             field.                      
multi single: i  multi single reverse: i uneven multi:  input test              
              n                        n               for a uneve              
              p                        p              n multiple                
              u                        u             lines field                
              t                        t            . Our next                  
                                                    test is to                  
              t                        t             test the ed                
              e                        e              itng perfor               
              s                        s               mance of th              
              t                        t                e field edi             
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
Cursor positioned at (R3, C15)
: current field
'field_editor_win01'@'basicnormal'[1]: <Current Field>
value: input test
'field_editor_win01'@'basicreverse'[1]:
value: input in reverse video
'field_editor_win01'@'singlenormal'[1]:
value: x
'field_editor_win01'@'singlereverse'[1]:
value: y
'field_editor_win01'@'multinormal'[1]:
value: input test for multiple lines of a normal video field.
'field_editor_win01'@'multireverse'[1]:
value: input test for multiple lines of a reverse video field.
'field_editor_win01'@'multisingle'[1]:
value: input test
'field_editor_win01'@'multisinglereverse'[1]:
value: input test
'field_editor_win01'@'unevenmulti'[1]:
value: input test for a uneven multiple lines field. Our next test is to test the editng performance of the field editor.
: next field
'field_editor_win01'@'basicnormal'[1]:
value: next field<tab>
'field_editor_win01'@'basicreverse'[1]: <Current Field>
value: input in reverse video
'field_editor_win01'@'singlenormal'[1]:
value: x
'field_editor_win01'@'singlereverse'[1]:
value: y
'field_editor_win01'@'multinormal'[1]:
value: input test for multiple lines of a normal video field.
'field_editor_win01'@'multireverse'[1]:
value: input test for multiple lines of a reverse video field.
'field_editor_win01'@'multisingle'[1]:
value: input test
'field_editor_win01'@'multisinglereverse'[1]:
value: input test
'field_editor_win01'@'unevenmulti'[1]:
value: input test for a uneven multiple lines field. Our next test is to test the editng performance of the field editor.
: previous field
'field_editor_win01'@'basicnormal'[1]: <Current Field>
value: next field<tab>
'field_editor_win01'@'basicreverse'[1]:
value: previous field<enter> 
'field_editor_win01'@'singlenormal'[1]:
value: x
'field_editor_win01'@'singlereverse'[1]:
value: y
'field_editor_win01'@'multinormal'[1]:
value: input test for multiple lines of a normal video field.
'field_editor_win01'@'multireverse'[1]:
value: input test for multiple lines of a reverse video field.
'field_editor_win01'@'multisingle'[1]:
value: input test
'field_editor_win01'@'multisinglereverse'[1]:
value: input test
'field_editor_win01'@'unevenmulti'[1]:
value: input test for a uneven multiple lines field. Our next test is to test the editng performance of the field editor.
: next field
'field_editor_win01'@'basicnormal'[1]:
value: next field<return>
'field_editor_win01'@'basicreverse'[1]: <Current Field>
value: previous field<enter> 
'field_editor_win01'@'singlenormal'[1]:
value: x
'field_editor_win01'@'singlereverse'[1]:
value: y
'field_editor_win01'@'multinormal'[1]:
value: input test for multiple lines of a normal video field.
'field_editor_win01'@'multireverse'[1]:
value: input test for multiple lines of a reverse video field.
'field_editor_win01'@'multisingle'[1]:
value: input test
'field_editor_win01'@'multisinglereverse'[1]:
value: input test
'field_editor_win01'@'unevenmulti'[1]:
value: input test for a uneven multiple lines field. Our next test is to test the editng performance of the field editor.
: before char delete
'field_editor_win01'@'basicnormal'[1]:
value: next field<return>
'field_editor_win01'@'basicreverse'[1]: <Current Field>
value: char delete test<F,>
'field_editor_win01'@'singlenormal'[1]:
value: x
'field_editor_win01'@'singlereverse'[1]:
value: y
'field_editor_win01'@'multinormal'[1]:
value: input test for multiple lines of a normal video field.
'field_editor_win01'@'multireverse'[1]:
value: input test for multiple lines of a reverse video field.
'field_editor_win01'@'multisingle'[1]:
value: input test
'field_editor_win01'@'multisinglereverse'[1]:
value: input test
'field_editor_win01'@'unevenmulti'[1]:
value: input test for a uneven multiple lines field. Our next test is to test the editng performance of the field editor.
: character deleted
'field_editor_win01'@'basicnormal'[1]:
value: next field<return>
'field_editor_win01'@'basicreverse'[1]: <Current Field>
value: 
'field_editor_win01'@'singlenormal'[1]:
value: x
'field_editor_win01'@'singlereverse'[1]:
value: y
'field_editor_win01'@'multinormal'[1]:
value: input test for multiple lines of a normal video field.
'field_editor_win01'@'multireverse'[1]:
value: input test for multiple lines of a reverse video field.
'field_editor_win01'@'multisingle'[1]:
value: input test
'field_editor_win01'@'multisinglereverse'[1]:
value: input test
'field_editor_win01'@'unevenmulti'[1]:
value: input test for a uneven multiple lines field. Our next test is to test the editng performance of the field editor.
'field_editor_win01'@'basicnormal'[1]:
value: next field<return>
'field_editor_win01'@'basicreverse'[1]: <Current Field>
value: clear to eos test<PF2>
'field_editor_win01'@'singlenormal'[1]:
value: x
'field_editor_win01'@'singlereverse'[1]:
value: y
'field_editor_win01'@'multinormal'[1]:
value: input test for multiple lines of a normal video field.
'field_editor_win01'@'multireverse'[1]:
value: input test for multiple lines of a reverse video field.
'field_editor_win01'@'multisingle'[1]:
value: input test
'field_editor_win01'@'multisinglereverse'[1]:
value: input test
'field_editor_win01'@'unevenmulti'[1]:
value: input test for a uneven multiple lines field. Our next test is to test the editng performance of the field editor.
: clear to eos
'field_editor_win01'@'basicnormal'[1]:
value: next field<return>
'field_editor_win01'@'basicreverse'[1]: <Current Field>
value: 
'field_editor_win01'@'singlenormal'[1]:
value: x
'field_editor_win01'@'singlereverse'[1]:
value: y
'field_editor_win01'@'multinormal'[1]:
value: input test for multiple lines of a normal video field.
'field_editor_win01'@'multireverse'[1]:
value: input test for multiple lines of a reverse video field.
'field_editor_win01'@'multisingle'[1]:
value: input test
'field_editor_win01'@'multisinglereverse'[1]:
value: input test
'field_editor_win01'@'unevenmulti'[1]:
value: input test for a uneven multiple lines field. Our next test is to test the editng performance of the field editor.
               F i e l d   E d i t o r   T e s t                                
                   (B a s i c    T e s t)                                       
basic normal: next field<return>      basic reverse: Help screen test           
single normal: x    single reverse: y                                           
multi normal: input test for        multi reverse: input test for m             
              multiple lines                       ultiple lines of             
              of a normal vid                       a reverse video             
              eo field.                             field.                      
multi single: i  multi single reverse: i uneven multi:  input test              
              n                        n               for a uneve              
              p                        p              n multiple                
              u                        u             lines field                
              t                        t            . Our next                  
                                                    test is to                  
              t                        t             test the ed                
              e                        e              itng perfor               
              s                        s               mance of th              
              t                        t                e field edi             
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
Cursor positioned at (R3, C37)
: line befin/end test
Cursor positioned at (R3, C73)
Cursor positioned at (R3, C54)
Cursor positioned at (R3, C73)
: before insert word
'field_editor_win01'@'basicnormal'[1]:
value: next field<return>
'field_editor_win01'@'basicreverse'[1]: <Current Field>
value: insert test,
insert test 2
'field_editor_win01'@'singlenormal'[1]:
value: x
'field_editor_win01'@'singlereverse'[1]:
value: y
'field_editor_win01'@'multinormal'[1]:
value: input test for multiple lines of a normal video field.
'field_editor_win01'@'multireverse'[1]:
value: input test for multiple lines of a reverse video field.
'field_editor_win01'@'multisingle'[1]:
value: input test
'field_editor_win01'@'multisinglereverse'[1]:
value: input test
'field_editor_win01'@'unevenmulti'[1]:
value: input test for a uneven multiple lines field. Our next test is to test the editng performance of the field editor.
: after insert word
'field_editor_win01'@'basicnormal'[1]:
value: next field<return>
'field_editor_win01'@'basicreverse'[1]: <Current Field>
value: insert test,
insert test line 2
'field_editor_win01'@'singlenormal'[1]:
value: x
'field_editor_win01'@'singlereverse'[1]:
value: y
'field_editor_win01'@'multinormal'[1]:
value: input test for multiple lines of a normal video field.
'field_editor_win01'@'multireverse'[1]:
value: input test for multiple lines of a reverse video field.
'field_editor_win01'@'multisingle'[1]:
value: input test
'field_editor_win01'@'multisinglereverse'[1]:
value: input test
'field_editor_win01'@'unevenmulti'[1]:
value: input test for a uneven multiple lines field. Our next test is to test the editng performance of the field editor.
: before join
'field_editor_win01'@'basicnormal'[1]:
value: next field<return>
'field_editor_win01'@'basicreverse'[1]: <Current Field>
value: join line test 
insert test line 2
'field_editor_win01'@'singlenormal'[1]:
value: x
'field_editor_win01'@'singlereverse'[1]:
value: y
'field_editor_win01'@'multinormal'[1]:
value: input test for multiple lines of a normal video field.
'field_editor_win01'@'multireverse'[1]:
value: input test for multiple lines of a reverse video field.
'field_editor_win01'@'multisingle'[1]:
value: input test
'field_editor_win01'@'multisinglereverse'[1]:
value: input test
'field_editor_win01'@'unevenmulti'[1]:
value: input test for a uneven multiple lines field. Our next test is to test the editng performance of the field editor.
: after join
'field_editor_win01'@'basicnormal'[1]:
value: next field<return>
'field_editor_win01'@'basicreverse'[1]: <Current Field>
value: join line test insert test line 2
'field_editor_win01'@'singlenormal'[1]:
value: x
'field_editor_win01'@'singlereverse'[1]:
value: y
'field_editor_win01'@'multinormal'[1]:
value: input test for multiple lines of a normal video field.
'field_editor_win01'@'multireverse'[1]:
value: input test for multiple lines of a reverse video field.
'field_editor_win01'@'multisingle'[1]:
value: input test
'field_editor_win01'@'multisinglereverse'[1]:
value: input test
'field_editor_win01'@'unevenmulti'[1]:
value: input test for a uneven multiple lines field. Our next test is to test the editng performance of the field editor.
: test arrow keys
Cursor positioned at (R12, C61)
: test left movement
Cursor positioned at (R12, C59)
: test right movement
Cursor positioned at (R12, C61)
: test upward movement
Cursor positioned at (R10, C63)
: test downward movement
Cursor positioned at (R12, C61)
: test scroll
Cursor positioned at (R3, C26)
: scroll up
Cursor positioned at (R15, C26)
: scroll down, scroll down
Cursor positioned at (R1, C26)
: scroll left
Cursor positioned at (R1, C66)
: scroll right,scroll right
Cursor positioned at (R1, C12)
: back to home
Cursor positioned at (R3, C26)
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
This test is used to test the basic function of the formeditor.
Basically, it will test everything mentioned in the help menu.
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
