自動テストの練習7 (UWSC編⑥) Tips

 

やりたいこと

前回の続きとなります。

UWPアプリの簡単なテスト(スモークテスト?)をUWSCでやってみるの6回目です。

前回で一通り完了したので、テストをブラッシュアップするための便利な小技をまとめておきます。

Print文

標準出力とか、デバック文のような機能です。

デバックしたいときや、処理の結果を表示したい場合に使用できます。

view plainprint?

1. PRINT "成功"  
2. PRINT "失敗"  

PRINT "成功"
PRINT "失敗"

のように書くとUWSCの小窓に文字が表示されます。

PRINTした文字列は、ログファイルとしても記録されるので、後で確認することも可能です。

UWSCを右クリック > 「.INI/.LOG Folder(F)」メニューを選択

フォルダにある 「UWSC.LOG」がログファイル

メモ帳で開くとPRINTしたものが記録されている。

結構便利です。

ログの最大行数はUWSC.iniのLogLinesで定義されてます。

ログファイル

PRINT文でもUWSCの標準のログは残るのですが、

自分専用のログを残したい場合もあると思います。

スクリプトが存在するフォルダに「LogFile.txt」というファイルを作成し、追記していく自作関数を作ってみました。

インプットのstrに日付, 時刻を付与してファイルに出力する関数です。

こちらになります。

view plainprint?

1. // logファイルに書き込む  
2. PROCEDURE WriteLog(str)  
3.   
4.     // 日付作成  
5.     GETTIME()  
6.     dateTime =  G_TIME_YY + "/" + G_TIME_MM + "/" + G_TIME_DD + "_" + G_TIME_HH  + ":" + G_TIME_NN + ":" + G_TIME_SS  
7.   
8.     // ファイル書き込み  
9.     fid  = FOPEN("LogFile.txt", F_READ or F_WRITE) // 追記  
10.     FPUT(fid , dateTime + "<#TAB>" + str)  
11.     FCLOSE(fid )  
12. FEND  

// logファイルに書き込む
PROCEDURE WriteLog(str)

	// 日付作成
	GETTIME()
	dateTime =  G_TIME_YY + "/" + G_TIME_MM + "/" + G_TIME_DD + "_" + G_TIME_HH  + ":" + G_TIME_NN + ":" + G_TIME_SS

	// ファイル書き込み
	fid  = FOPEN("LogFile.txt", F_READ or F_WRITE) // 追記
	FPUT(fid , dateTime + "<#TAB>" + str)
	FCLOSE(fid )
FEND

ログファイルの中身はこのようになります。

スクリーンショット

自動テストの操作の途中でスクリーンショットに残しておきたいということもあると思います。

UWSCではSAVEIMG()という関数で実現できます。

この関数を用いて、スクリプトが存在するフォルダの直下にIMGというフォルダを作成して、そこに日付をファイル名にしてスクリーンショットを保存していく自作関数を作ってみました。

こちらになります。

view plainprint?

1. // スクリーンショット  
2. PROCEDURE MySaveImg()  
3.   
4.     // 日付作成  
5.     GETTIME()  
6.     dateTime = "" + G_TIME_YY + G_TIME_MM + G_TIME_DD + "_" + G_TIME_HH + G_TIME_NN + G_TIME_SS + G_TIME_ZZ  
7.     filename = "IMG\" + dateTime  
8.       
9.     // フォルダ作成  
10.     Doscmd("mkdir " + "IMG")  
11.   
12.     // スクリーンショット  
13.     SaveImg(filename, "", "", "", "", "", "", 50)  
14.       
15. FEND  

// スクリーンショット
PROCEDURE MySaveImg()

	// 日付作成
	GETTIME()
	dateTime = "" + G_TIME_YY + G_TIME_MM + G_TIME_DD + "_" + G_TIME_HH + G_TIME_NN + G_TIME_SS + G_TIME_ZZ
	filename = "IMG\" + dateTime
	
	// フォルダ作成
	Doscmd("mkdir " + "IMG")

	// スクリーンショット
	SaveImg(filename, "", "", "", "", "", "", 50)
	
FEND

SAVEIMG()の最後の引数で指定している50は、圧縮率を表しています。

1が高圧縮、100は低圧縮になります。

このような感じにスクリーンショットができていきます。

各テストの実施前後などに入れておくと、

遡って結果を確認することができて便利です。

スリープ

SLEEP(秒数)

指定した秒数だけスクリプトを一時停止することができます。

タイミングの問題でスクリプトがうまく動作しない場合などに使えます。

UWSCのヘルプ

関数の使い方がわからない場合などは、UWSCのヘルプが軽量で、かつ分かりやすいです。

UWSCを右クリック > Help メニュー　

コントロールの名称を取得

アクセスしたいコントロールの名称を知りたい時が出てくると思います。

(方法1)

UWSCは操作を記録することができるので、記録機能をつかって、目的のコントロールを操作して、記録した操作を保存することで、アクセスしたいコントロールの名称やIDを確認することができます。

(方法2)

GETITEM()という関数を使うことでコントロールの名称を取得することができます。

以下のサンプルは、"ウィンドウタイトル"のところを対象のアプリのウィンドウタイトルに変更すると、GETITEMでコントロールの名称を取得するものとなります。

view plainprint?

1. GID = GETID("ウィンドウタイトル") // ここにコントロールを取得したいウィンドウのタイトルを指定する  
2. GetItemAll(GID)  
3.   
4. PROCEDURE GetItemAll(GID)  
5.   
6.     PRINT "ボタン"  
7.     NUM = GETITEM(GID,ITM_BTN)  
8.     FOR i = 0 TO (NUM-1)  
9.         PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]  
10.     NEXT  
11.   
12.     PRINT "リストボックス、コンボボックス"  
13.     NUM = GETITEM(GID,ITM_LIST)  
14.     FOR i = 0 TO (NUM-1)  
15.         PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]  
16.     NEXT  
17.   
18.     PRINT "タブコントロール"  
19.     NUM = GETITEM(GID,ITM_TAB)  
20.     FOR i = 0 TO (NUM-1)  
21.         PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]  
22.     NEXT  
23.   
24.     PRINT "メニュー"  
25.     NUM = GETITEM(GID,ITM_MENU)  
26.     FOR i = 0 TO (NUM-1)  
27.         PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]  
28.     NEXT  
29.   
30.     PRINT "ツリービュー"  
31.     NUM = GETITEM(GID,ITM_TREEVEW)  
32.     FOR i = 0 TO (NUM-1)  
33.         PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]  
34.     NEXT  
35.   
36.     PRINT "リストビュー"  
37.     NUM = GETITEM(GID,ITM_LSTVEW)  
38.     FOR i = 0 TO (NUM-1)  
39.         PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]  
40.     NEXT  
41.   
42.     PRINT "エディットボックス"  
43.     NUM = GETITEM(GID,ITM_EDIT)  
44.     FOR i = 0 TO (NUM-1)  
45.         PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]  
46.     NEXT  
47.   
48.     PRINT "スタティックコントロール"  
49.     NUM = GETITEM(GID,ITM_STATIC)  
50.     FOR i = 0 TO (NUM-1)  
51.         PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]  
52.     NEXT  
53.   
54.     PRINT "ステータスバー"  
55.     NUM = GETITEM(GID,ITM_STATUSBAR)  
56.     FOR i = 0 TO (NUM-1)  
57.         PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]  
58.     NEXT  
59.   
60.     PRINT "ツールバー"  
61.     NUM = GETITEM(GID,ITM_TOOLBAR)  
62.     FOR i = 0 TO (NUM-1)  
63.         PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]  
64.     NEXT  
65.   
66.     PRINT "アクセシビリティ用インターフェース経由でのクリック可能なオブジェクト"  
67.     NUM = GETITEM(GID,ITM_ACCCLK)  
68.     FOR i = 0 TO (NUM-1)  
69.         PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]  
70.     NEXT  
71.   
72.     PRINT "アクセシビリティ用インターフェース経由でのテキスト"  
73.     NUM = GETITEM(GID,ITM_ACCTXT)  
74.     FOR i = 0 TO (NUM-1)  
75.         PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]  
76.     NEXT  
77.   
78. FEND  

GID = GETID("ウィンドウタイトル") // ここにコントロールを取得したいウィンドウのタイトルを指定する
GetItemAll(GID)

PROCEDURE GetItemAll(GID)

	PRINT "ボタン"
	NUM = GETITEM(GID,ITM_BTN)
	FOR i = 0 TO (NUM-1)
		PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]
	NEXT

	PRINT "リストボックス、コンボボックス"
	NUM = GETITEM(GID,ITM_LIST)
	FOR i = 0 TO (NUM-1)
		PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]
	NEXT

	PRINT "タブコントロール"
	NUM = GETITEM(GID,ITM_TAB)
	FOR i = 0 TO (NUM-1)
		PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]
	NEXT

	PRINT "メニュー"
	NUM = GETITEM(GID,ITM_MENU)
	FOR i = 0 TO (NUM-1)
		PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]
	NEXT

	PRINT "ツリービュー"
	NUM = GETITEM(GID,ITM_TREEVEW)
	FOR i = 0 TO (NUM-1)
		PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]
	NEXT

	PRINT "リストビュー"
	NUM = GETITEM(GID,ITM_LSTVEW)
	FOR i = 0 TO (NUM-1)
		PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]
	NEXT

	PRINT "エディットボックス"
	NUM = GETITEM(GID,ITM_EDIT)
	FOR i = 0 TO (NUM-1)
		PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]
	NEXT

	PRINT "スタティックコントロール"
	NUM = GETITEM(GID,ITM_STATIC)
	FOR i = 0 TO (NUM-1)
		PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]
	NEXT

	PRINT "ステータスバー"
	NUM = GETITEM(GID,ITM_STATUSBAR)
	FOR i = 0 TO (NUM-1)
		PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]
	NEXT

	PRINT "ツールバー"
	NUM = GETITEM(GID,ITM_TOOLBAR)
	FOR i = 0 TO (NUM-1)
		PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]
	NEXT

	PRINT "アクセシビリティ用インターフェース経由でのクリック可能なオブジェクト"
	NUM = GETITEM(GID,ITM_ACCCLK)
	FOR i = 0 TO (NUM-1)
		PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]
	NEXT

	PRINT "アクセシビリティ用インターフェース経由でのテキスト"
	NUM = GETITEM(GID,ITM_ACCTXT)
	FOR i = 0 TO (NUM-1)
		PRINT (i+1) + "番目：<#TAB>" + ALL_ITEM_LIST[i]
	NEXT

FEND

まとめ

UWSC編のしめとして、便利な小技をまとめてみました。

ほかにも見つかったら追記していきたいと思います。

UWSC編はいったん終了にして次回からは別の自動化ツールを使って、同じことをしていきたいと思います。

次回(Autoit編)へ