Index: openacs-4/packages/categories/tcl/test/categories-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/test/categories-procs.tcl,v diff -u -r1.3.2.1 -r1.3.2.2 --- openacs-4/packages/categories/tcl/test/categories-procs.tcl 9 Oct 2020 14:26:39 -0000 1.3.2.1 +++ openacs-4/packages/categories/tcl/test/categories-procs.tcl 9 Oct 2020 14:27:05 -0000 1.3.2.2 @@ -12,12 +12,12 @@ api } category_tree_add { Test the category_tree::add proc. -} { +} { aa_run_with_teardown \ -rollback \ -test_code { - + #Create tree set tree_id [category_tree::add -name "foo"] @@ -36,12 +36,12 @@ api } category_add { Test the category::add proc. -} { +} { aa_run_with_teardown \ -rollback \ -test_code { - + #Create tree set tree_id [category_tree::add -name "foo"] @@ -67,12 +67,12 @@ api } category_delete { Test the category::delete proc. -} { +} { aa_run_with_teardown \ -rollback \ -test_code { - + #Create tree set tree_id [category_tree::add -name "foo"] @@ -84,7 +84,7 @@ # Delete category category::delete -batch_mode $category_id - + set success_p [db_string success_p { select 0 from categories where category_id = :category_id } -default "1"]