* 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

diff --git a/src/lib/kadm5/unit-test/ChangeLog b/src/lib/kadm5/unit-test/ChangeLog
index 9455a29d85b81747673398d9a5ef6d1d2f8a25d3..74cfaf2f091caac75da15743d57f8da5f116f1e9 100644 (file)
--- 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 79f5d944a12886e88a4298a637e6d7b197084309..db8b6ffdbe3d1a0b8ac810331e4af82514f54487 100644 (file)
--- 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
     }