* api.2/mod-principal-v2.exp: provide finer-grained test numbers

 	in case of failure

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@9325 dc483132-0cff-0310-8789-dd5450dbe970

2 files changed, 25 insertions, 15 deletions

diff --git a/src/lib/kadm5/unit-test/ChangeLog b/src/lib/kadm5/unit-test/ChangeLog
index 9455a29d8..74cfaf2f0 100644
--- a/src/lib/kadm5/unit-test/ChangeLog
+++ b/src/lib/kadm5/unit-test/ChangeLog
@@ -1,3 +1,8 @@
+Thu Nov  7 13:02:28 1996  Barry Jaspan  <bjaspan@mit.edu>
+
+	* api.2/mod-principal-v2.exp: provide finer-grained test numbers
+ 	in case of failure
+
 Wed Nov  6 17:48:49 1996  Barry Jaspan  <bjaspan@mit.edu>
 
 	* lib/lib.t: global $test everywhere it is used
diff --git a/src/lib/kadm5/unit-test/api.2/mod-principal-v2.exp b/src/lib/kadm5/unit-test/api.2/mod-principal-v2.exp
index 79f5d944a..db8b6ffdb 100644
--- a/src/lib/kadm5/unit-test/api.2/mod-principal-v2.exp
+++ b/src/lib/kadm5/unit-test/api.2/mod-principal-v2.exp
@@ -22,52 +22,57 @@ proc test100_104 {} {
 	return
     }
 
-    # test 100
+    set origtest "$test"
+
+    test "modify-principal 100"
     one_line_succeed_test [format {
 	kadm5_modify_principal $server_handle [simple_principal "%s/a"] \
 		{KADM5_MAX_RLIFE}
-    } $test]
+    } $origtest]
 
-    # test 101
+    test "modify-principal 101"
     one_line_fail_test [format {
 	kadm5_modify_principal $server_handle [simple_principal "%s/a"] \
 		{KADM5_LAST_SUCCESS}
-    } $test] "BAD_MASK"
-    # test 102
+    } $origtest] "BAD_MASK"
+
+    test "modify-principal 102"
     one_line_fail_test [format {
 	kadm5_modify_principal $server_handle [simple_principal "%s/a"] \
 		{KADM5_LAST_FAILED}
-    } $test] "BAD_MASK"
-    # test 103
+    } $origtest] "BAD_MASK"
+
+    test "modify-principal 103"
     one_line_fail_test [format {
 	kadm5_modify_principal $server_handle [simple_principal "%s/a"] \
 		{KADM5_FAIL_AUTH_COUNT}
-    } $test] "BAD_MASK"
-    # test 103.5
+    } $origtest] "BAD_MASK"
+
+    test "modify-principal 103.5"
     one_line_fail_test [format {
 	kadm5_modify_principal $server_handle [simple_principal "%s/a"] \
 		{KADM5_KEY_DATA}
-    } $test] "BAD_MASK"
+    } $origtest] "BAD_MASK"
 
-    # test 105
+    test "modify-principal 105"
     one_line_fail_test [format {
 	kadm5_modify_principal $server_handle \
             "{%s/a} 0 0 0 0 {%s/a} 0 0 0 0 null 0 0 0 0 0 0 1 {} {{1 1 x}}" \
 		{KADM5_TL_DATA}
-    } $test $test] "BAD_TL_TYPE"
+    } $origtest $origtest] "BAD_TL_TYPE"
 
-    # test 100,104
+    test "modify-principal 100,104"
     if { ! [cmd [format {
 	kadm5_modify_principal $server_handle \
 		"{%s/a} 0 0 0 0 {%s/a} 0 0 0 0 null 0 88 0 0 0 0 1 {} {{990 6 foobar}}" \
 		{KADM5_MAX_RLIFE KADM5_TL_DATA}
-    } $test $test]]} {
+    } $origtest $origtest]]} {
 	fail "$test: cannot set MAX_RLIFE or TL_DATA"
 	return
     }
     if {! [cmd [format {
 	kadm5_get_principal $server_handle "%s/a" principal {KADM5_PRINCIPAL_NORMAL_MASK KADM5_TL_DATA}
-    } $test]]} {
+    } $origtest]]} {
 	error_and_restart "$test: could not retrieve principal"
 	return
     }