Procedure for geting the url of a mounted package with the package_key. It uses the first instance that it founds. This is usefull for tclwebtest tests.
Procedure for geting the url of a mounted package with the package_key. It uses the first instance that it founds. This is useful for tclwebtest tests.
if { ![string match "*${home_uri}*"$response_url]}{
if { ![string match "*${home_uri}*"$response_url]}{
if {[cc_lookup_email_user$email] eq ""}{
if {[party::get_by_email -email$email] eq ""}{
error "Failed to login user with email=\"$email\" and password=\"$password\". No user with such email in database."
error "Failed to login user with email=\"$email\" and password=\"$password\". No user with such email in database."
}else{
}else{
ns_log Error "Failed to log in user with email=\"$email\" and password=\"$password\" eventhough email exists (password may be incorrect). response_body=[tclwebtest::response body]"
ns_log Error "Failed to log in user with email=\"$email\" and password=\"$password\" eventhough email exists (password may be incorrect). response_body=[tclwebtest::response body]"
error "Failed to log in user with email=\"$email\" and password=\"$password\" eventhough email exists (password may be incorrect). User should be able to request $home_uri without redirection, however response url=$response_url"
error "Failed to log in user with email=\"$email\" and password=\"$password\" eventhough email exists (password may be incorrect). User should be able to request $home_uri without redirection, however response url=$response_url"
<a href="rerun?package_key=@by_package_key@&category=@by_category@&view_by=@view_by@&quiet=@quiet@&stress=@stress@&security_risk=@security_risk@"> Rerun displayed test cases</a>
<a href="rerun?package_key=@by_package_key@&category=@by_category@&view_by=@view_by@&quiet=@quiet@&stress=@stress@&security_risk=@security_risk@"> Rerun displayed test cases</a>
</div>
</div>
<div>
<div>
<b>»</b>
<strong>»</strong>
<a href="clear?package_key=@by_package_key@&category=@by_category@&view_by=@view_by@&quiet=@quiet@&stress=@stress@&security_risk=@security_risk@"> Clear test result data</a>
<a href="clear?package_key=@by_package_key@&category=@by_category@&view_by=@view_by@&quiet=@quiet@&stress=@stress@&security_risk=@security_risk@"> Clear test result data</a>
<a href="rerun?package_key=@by_package_key@&category=@by_category@&view_by=@view_by@&quiet=@quiet@&stress=@stress@&security_risk=@security_risk@"> Rerun displayed test cases</a>
<a href="rerun?package_key=@by_package_key@&category=@by_category@&view_by=@view_by@&quiet=@quiet@&stress=@stress@&security_risk=@security_risk@"> Rerun displayed test cases</a>
</div>
</div>
<div>
<div>
<b>»</b>
<strong>»</strong>
<a href="clear?package_key=@by_package_key@&category=@by_category@&view_by=@view_by@&quiet=@quiet@&stress=@stress@&security_risk=@security_risk@"> Clear test result data</a>
<a href="clear?package_key=@by_package_key@&category=@by_category@&view_by=@view_by@&quiet=@quiet@&stress=@stress@&security_risk=@security_risk@"> Clear test result data</a>
{help_text "Sometimes, you might need this string to check if the test is successfull or no (i.e. testing Warning messages) <br> If you want to check more than one string, use a comma to separate the different strings"}
{help_text "Sometimes, you might need this string to check if the test is successful or no (i.e. testing Warning messages) <br> If you want to check more than one string, use a comma to separate the different strings"}
</pre></div><divclass="sect2"lang="en"><divclass="titlepage"><div><div><h3class="title"><aname="id2543127"></a>References</h3></div></div><div></div></div><divclass="itemizedlist"><ultype="disc"><li><p>Forum Posting: <ahref="http://openacs.org/forums/message-view?message_id=150581"target="_top">tclwebtest with openacs-4/etc/install tests -- help getting started</a></p></li><li><p>Forum Posting: <ahref="http://openacs.org/forums/message-view?message_id=153265"target="_top">Berlin bug bash proposal</a></p></li></ul></div></div><divclass="sect2"lang="en"><divclass="titlepage"><div><div><h3class="title"><aname="revisions-history"></a>Revision History</h3></div></div><div></div></div><divclass="informaltable"><tablecellspacing="0"border="1"><colgroup><col><col><col><col></colgroup><thead><tr><th><spanclass="strong">Document Revision #</span></th><th><spanclass="strong">Action Taken, Notes</span></th><th><spanclass="strong">When?</span></th><th><spanclass="strong">By Whom?</span></th></tr></thead><tbody><tr><td>1</td><td>Creation</td><td>17 Jan 2004</td><td>Joel Aufrecht</td></tr><tr><td>2</td><td>Updated with notes from chat meeting</td><td>21 Jan 2004</td><td>Joel Aufrecht</td></tr></tbody></table></div></div></div><divclass="navfooter"><hr><tablewidth="100%"summary="Navigation footer"><tr><tdwidth="40%"align="left"><aaccesskey="p"href="usage.html">Prev</a></td><tdwidth="20%"align="center"><aaccesskey="h"href="index.html">Home</a></td><tdwidth="40%"align="right"></td></tr><tr><tdwidth="40%"align="left">Usage </td><tdwidth="20%"align="center"><aaccesskey="u"href="index.html">Up</a></td><tdwidth="40%"align="right"></td></tr></table><hr><address><ahref="mailto:docs@openacs.org">docs@openacs.org</a></address></div><aname="comments"></a><center><ahref="http://openacs.org/doc/requirements.html#comments">View comments on this page at openacs.org</a></center></body></html>
</pre></div><divclass="sect2"lang="en"><divclass="titlepage"><div><div><h3class="title"><aname="id2543127"></a>References</h3></div></div><div></div></div><divclass="itemizedlist"><ultype="disc"><li><p>Forum Posting: <ahref="http://openacs.org/forums/message-view?message_id=150581"target="_top">tclwebtest with openacs-4/etc/install tests -- help getting started</a></p></li><li><p>Forum Posting: <ahref="http://openacs.org/forums/message-view?message_id=153265"target="_top">Berlin bug bash proposal</a></p></li></ul></div></div><divclass="sect2"lang="en"><divclass="titlepage"><div><div><h3class="title"><aname="revisions-history"></a>Revision History</h3></div></div><div></div></div><divclass="informaltable"><tablecellspacing="0"border="1"><colgroup><col><col><col><col></colgroup><thead><tr><th><spanclass="strong">Document Revision #</span></th><th><spanclass="strong">Action Taken, Notes</span></th><th><spanclass="strong">When?</span></th><th><spanclass="strong">By Whom?</span></th></tr></thead><tbody><tr><td>1</td><td>Creation</td><td>17 Jan 2004</td><td>Joel Aufrecht</td></tr><tr><td>2</td><td>Updated with notes from chat meeting</td><td>21 Jan 2004</td><td>Joel Aufrecht</td></tr></tbody></table></div></div></div><divclass="navfooter"><hr><tablewidth="100%"summary="Navigation footer"><tr><tdwidth="40%"align="left"><aaccesskey="p"href="usage.html">Prev</a></td><tdwidth="20%"align="center"><aaccesskey="h"href="index.html">Home</a></td><tdwidth="40%"align="right"></td></tr><tr><tdwidth="40%"align="left">Usage </td><tdwidth="20%"align="center"><aaccesskey="u"href="index.html">Up</a></td><tdwidth="40%"align="right"></td></tr></table><hr><address><ahref="mailto:docs@openacs.org">docs@openacs.org</a></address></div><aname="comments"></a></body></html>
