Browse Subversion Repository
Contents of /branches/ttcomtester/tests/oneline-if.ttl
 Parent Directory
|  Revision Log
Revision 10521 -
( show annotations)
( download)
Fri Jan 20 16:03:38 2023 UTC
(14 months, 2 weeks ago)
by zmatsuo
File size: 1099 byte(s)
add communication test tool
| 1 |
messagebox "このダイアログの後、エラーが出るのが意図した動作です" "確認" |
| 2 |
if 0 ; この行でエラーとなるのが正常 |
| 3 |
messagebox 'エラーとなる処理 1 が終了しました' '確認' |
| 4 |
|
| 5 |
if 0 hogefugafuge ; この行はエラーにならない。 |
| 6 |
messagebox 'エラーとならない処理を実行しました' '確認' |
| 7 |
|
| 8 |
messagebox "このダイアログの後、エラーが出るのが意図した動作です" "確認" |
| 9 |
if 1 ; この行もエラーとなるのが正常 |
| 10 |
messagebox 'エラーとなる処理 2 が終了しました' '確認' |
| 11 |
|
| 12 |
messagebox "再度エラーが出る処理を行います" "確認" |
| 13 |
if 1 hogefuga ; この行もエラーとなるのが正常 |
| 14 |
messagebox 'エラーとなる処理 3 が終了しました' '確認' |
| 15 |
|
| 16 |
if 0 messagebox "このダイアログが表示されるのは異常です" "if動作エラー 1" |
| 17 |
|
| 18 |
if 1 goto skip1 |
| 19 |
messagebox "このダイアログが表示されるのは異常です" "if動作エラー 2" |
| 20 |
:skip1 |
| 21 |
|
| 22 |
testlink |
| 23 |
if result == 0 then |
| 24 |
messagebox "Tera TermのVTウィンドウを開きます" "確認" |
| 25 |
connect "/ds" |
| 26 |
endif |
| 27 |
|
| 28 |
messagebox "Tera TermのVTウィンドウを閉じる処理を行います"#10#13"エラーが出ないのが正しい動作です" "確認" |
| 29 |
if 1 closett ; この行でエラーとなるのは異常 |
| 30 |
|
| 31 |
testlink |
| 32 |
if result != 0 then |
| 33 |
closett |
| 34 |
endif |
| 35 |
|
| 36 |
messagebox "すべての確認が終了しました" "終了" |
| 
Tera Term
Parent Directory
Revision Log