Index: openacs-4/packages/dotlrn/tcl/test/dotlrn-security-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/test/dotlrn-security-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn/tcl/test/dotlrn-security-procs.tcl 13 Jan 2005 13:57:21 -0000 1.2 +++ openacs-4/packages/dotlrn/tcl/test/dotlrn-security-procs.tcl 2 Jun 2005 07:34:12 -0000 1.3 @@ -15,8 +15,7 @@ dotlrn__remove_user_completely {test the sequence of creating a user, adding to dotlrn, then removing the user } { aa_run_with_teardown \ -rollback \ - -test_code - { + -test_code { array set creation_info [auth::create_user -email "an.email.unlikely.to.exist@i.hope.it.does.not" -first_names "test" -last_name "user"] aa_log "create user result is: $creation_info(creation_status)" aa_equals creation_ok $creation_info(creation_status) ok