Index: openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl 4 Jun 2006 00:45:21 -0000 1.3 +++ openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl 13 Jul 2006 23:59:32 -0000 1.4 @@ -62,7 +62,9 @@ } } -ad_proc twt::log { message } { +ad_proc twt::log { + TWT proc for writing a Notice message to the web server log. +} { message } { ns_log Notice "twt::log - $message" } @@ -149,8 +151,13 @@ -permanent } -ad_proc twt::user::login { email password } { +ad_proc twt::user::login { + tclwebtest for logging the user in. + @param email Email of user to log in. + @param password Password of user to log in. +} { email password } { + tclwebtest::cookies clear # Request the start page @@ -179,6 +186,8 @@ } } -ad_proc twt::user::logout {} { +ad_proc twt::user::logout { + tclwebtest for logging the user out. +} {} { twt::do_request "[twt::server_url]/register/logout" }