Index: openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl,v diff -u -r1.11 -r1.12 --- openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl 17 Sep 2003 07:07:52 -0000 1.11 +++ openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl 17 Sep 2003 11:26:53 -0000 1.12 @@ -920,6 +920,17 @@ aa_false "member_state not banned" [string equal $user(member_state) "banned"] # Check that first_user_id has had username/email changed + + ##### + # + # Test GetElements + # + ##### + + set elements [auth::sync::GetElements -authority_id $authority_id] + + aa_true "Elements are usernaem, email, first_names, last_name, url" [util_sets_equal_p { username email first_names last_name url } $elements] + } }