Rev 5018 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'=====================================================' Unit Test Log' Displayed as Tab within a Package Version'' Globals:' parRtag_id,parPv_id'=====================================================%><%Option explicit' Good idea to set when using redirectResponse.Expires = 0 ' always load the page, dont store%><!--#include file="common/conf.asp"--><!--#include file="common/globals.asp"--><!--#include file="common/formating.asp"--><!--#include file="common/qstr.asp"--><!--#include file="common/common_subs.asp"--><!--#include file="common/common_dbedit.asp"--><!--#include file="_tabs.asp"--><!--#include file="_action_buttons.asp"--><!--#include file="common/_package_common.asp"--><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_general.asp"--><%'------------ Variable Definition -------------Dim biQryDim utQryDim rsQry'------------ Constants Declaration -----------'------------ Variable Init -------------------'----------------------------------------------' Get a set of Build Instances for the current package' Populates biQrySub getBuildInstancesDim queryquery = _"select bi.BUILD_ID, bi.PV_ID, bi.RTAG_ID,pv.pkg_id," &_" SUBSTR(pj.PROJ_NAME, 0, 60) as PROJ_NAME, " &_" pj.PROJ_ID, " &_" SUBSTR(rt.RTAG_NAME, 0, 60) as RTAG_NAME, " &_" TO_CHAR(bi.TIMESTAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as TIMESTAMP, " &_" DECODE(bi.reason, 'N', 'New Version', 'R', 'Ripple', 'Unknown') as REASON" &_" from BUILD_INSTANCES bi, " &_" projects pj, " &_" RELEASE_TAGS rt, " &_" packages p, " &_" PACKAGE_VERSIONS pv" &_" where bi.PV_ID = pv.pv_id " &_" and pv.PKG_ID = p.PKG_ID" &_" and bi.RTAG_ID = rt.RTAG_ID" &_" and rt.proj_id = pj.proj_id" &_" and bi.PV_ID = :PV_ID" &_" order by bi.BUILD_ID desc"Set biQry = nothingOraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBERSet biQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )OraDatabase.Parameters.Remove "PV_ID"End Sub' Get a set of test results for a specified build instance' Populates utQrySub getTestResults(nBuildId)Dim queryquery = _"select * from " &_" TEST_RUN tr" &_" where tr.BUILD_ID = :BUILD_ID" &_" order by PLATFORM desc,TYPE desc"Set utQry = nothingOraDatabase.Parameters.Add "BUILD_ID", nBuildId, ORAPARM_INPUT, ORATYPE_NUMBERSet utQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )OraDatabase.Parameters.Remove "BUILD_ID"End Sub%><html><title><%=Title(Request("rtag_id"))%></title><meta HTTP-EQUIV="Pragma" CONTENT="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link rel="stylesheet" href="images/release_manager_style.css" type="text/css"><link rel="stylesheet" href="images/navigation.css" type="text/css"><script language="JavaScript" src="images/common.js"></script><script language="JavaScript" src="scripts/remote_scripting.js"></script><!-- DROPDOWN MENUS --><!--#include file="_menu_def.asp"--><script language="JavaScript1.2" src="images/popup_menu.js"></script></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" ><!-- MENU LAYERS --------------------------------------><div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)"><!-----------------------------------------------------></div><!-- HEADER --><!--#include file="_header.asp"--><!-- BODY ----><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td valign="top" width="1" background="images/bg_bage.gif"><!-- LEFT --><!--#include file="_environment.asp"--></td><td width="1" bgcolor="#999999"><img src="images/h_trsp_dot.gif" width="1" height="1"></td><td valign="top" width="100%"><!-- MIDDLE --><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="1%" background="images/bg_action_norm.gif"><IMG height=35 src="images/spacer.gif" width=15></td><td width="100%" background="images/bg_action_norm.gif"><%Call RenderActionBar(parRtag_id,parPv_id)%></td><td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td></tr><tr><td background="images/bg_lght_gray.gif"><IMG height="45" src="images/spacer.gif" width=1></td><td background="images/bg_lght_gray.gif"><%Call RenderStatus(parRtag_id,parPv_id)%></td><td background="images/bg_lght_gray.gif"> </td></tr><tr><td background="images/bg_lght_gray.gif"> </td><td valign="bottom" background="images/bg_lght_gray.gif"><table width="100" border="0" cellspacing="0" cellpadding="0"><tr><td><IMG height="1" src="images/spacer.gif" width="0" alt="tab-left-margin" ></td><td><!-- TABS -------------------------------------><%Call Generate_Tab_Menu ( TABarray1, "Unit Test", "orange" )%></td></tr></table></td><td background="images/bg_lght_gray.gif"> </td></tr><tr><td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td><td background="images/lbox_bg_orange.gif"><!-- TAB ACTION BUTTONS -------------------------------------></td><td background="images/lbox_bg_orange.gif"> </td></tr><tr><td></td><td valign="top"><!-- DETAILS -------------------------------------------------><br><span class="body_colb">Build and Unit Test Results</span><br><table class="full_table"><tr class="form_field_hdr"><td nowrap">Project </td><td nowrap">Release </td><td nowrap">Time </td><td nowrap">Reason </td></tr><%Call getBuildInstances%><%If biQry.RecordCount < 1 Then%><tr class="form_item_grey" ><td nowrap> </td><td nowrap> </td><td nowrap> </td><td nowrap> </td></tr><%End If%><%While ((NOT biQry.BOF) AND (NOT biQry.EOF))%><tr class="form_item_grey" ><td nowrap><%=biQry("proj_name")%></td><td nowrap><%=biQry("rtag_name")%></td><td nowrap><%=biQry("timestamp")%></td><td nowrap><%=biQry("reason")%></td></tr><tr><!-- Display the Unit Test Results --><td colspan="4"><table class="full_table"><tr><td width="1%" class="form_field_hdrgap" nowrap"> </td><td><table class="full_table"><%Call getTestResults(biQry("BUILD_ID"))If utQry.RecordCount < 1 Then%><tr class="form_item_grey" ><td nowrap>No Test Results for build <%=biQry("BUILD_ID")%></td></tr><%Else%><tr class="form_field_hdr"><td width="1%" nowrap">Platform </td><td width="1%" nowrap">Type </td><td width="95%" nowrap">Test Name </td><td width="1%" nowrap">Duration </td><td width="1%" nowrap">Outcome </td></tr><%End If%><%While ((NOT utQry.BOF) AND (NOT utQry.EOF))%><tr class="form_item_grey" ><td nowrap><%=utQry("platform")%></td><td nowrap><%=utQry("type")%></td><td nowrap><%=utQry("test_name")%></td><td nowrap><%=utQry("time_taken")%></td><td nowrap><%=utQry("test_outcome")%></td></tr><%utQry.MoveNextWEndutQry.CloseSet utQry = nothing%></table></tr></table></td><!-- End Display the Unit Test Results --></tr><%biQry.MoveNextWEndbiQry.CloseSet biQry = nothing%></table><!------------------------------------------------------------><br><!-- END DETAILS -------------------------------------------------></td><td> </td></tr></table><!-- END MIDDLE --------></td></tr></table><!-- FOOTER --><!--#include file="_footer.asp"--></body></html><%Call Destroy_All_Objects%>