代码6：顺序执行测试用例代码示例
| sub executeCommand{ $count = 0; foreach $testcase(@testcases){ $testcase = $testcases[$count++]; $testcase =~ s/\s+/_/g; $testcase .=".pl $hostname $dir"."function.pl $logFileName"; $testcase = $dir.$testcase; print $testcase; `perl $testcase`; } } |
生成日志
根据测试用例的执行情况，生成 HTML 日志，代码示例如下。
代码7：以 HTML 格式生成日志
| #initial html head sub initLog{ my ($logFileName,$hostname) = @_; my $sdq = "\""; &appendLogScriptInfo($logFileName, \ "<HTML><HEAD><TITLE>Automation Results</TITLE></HEAD>"); &appendLogScriptInfo($logFileName,"<ALIGN=left"); &appendLogScriptInfo($logFileName,"<FONT FACE=$sdq"."arial$sdq>"); &appendLogScriptInfo($logFileName, \ "<B>Automation Results for host: $hostname ".&getCurrentDateAndTime."</B><BR>"); &appendLogScriptInfo($logFileName,"</FONT></ALIGN>"); &appendLogScriptInfo($logFileName,"<TABLE BORDER"); &appendLogScriptInfo($logFileName,"<BR><BR>"); } #end html after test sub endLog{ my ($logFileName) = @_; &appendLogScriptInfo($logFileName,"<BR><BR>"); &appendLogScriptInfo($logFileName,"</TABLE BORDER>"); &appendLogScriptInfo($logFileName,"<BR><BR><BR><BR>"); &appendLogScriptInfo($logFileName,"<BR><BR><BR><BR>"); &appendLogScriptInfo($logFileName,"</HTML>"); } #append log contents into html file sub appendLogScriptInfo{ my ($logFile, $content) = @_; unless(open(LOGFILE,">>$logFile")){ die("can not open log file $logFile"); } print LOGFILE ("$content\n"); close(LOGFILE); } |
