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 -r1.4 -r1.5 --- openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl 13 Jul 2006 23:59:32 -0000 1.4 +++ openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl 14 Jul 2006 00:25:55 -0000 1.5 @@ -62,9 +62,9 @@ } } -ad_proc twt::log { +ad_proc twt::log { message } { TWT proc for writing a Notice message to the web server log. -} { message } { +} { ns_log Notice "twt::log - $message" } @@ -151,12 +151,12 @@ -permanent } -ad_proc twt::user::login { +ad_proc twt::user::login { email password } { 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 @@ -186,8 +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" }