src/lib/kadm5/unit-test/api.2/get-policy.exp

   1 load_lib lib.t
   2 api_exit
   3 api_start
   4
   5 test "get-policy 3"
   6 proc test3 {} {
   7     global test
   8 #    set prms_id 744
   9 #    setup_xfail {*-*-*} $prms_id
  10
  11     if {! [cmd {
  12         kadm5_init admin admin $KADM5_ADMIN_SERVICE null \
  13             $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
  14         server_handle
  15     }]} {
  16         perror "$test: unexpected failure in init"
  17         return
  18     }
  19     one_line_fail_test {kadm5_get_policy $server_handle "" p} "BAD_POLICY"
  20     if { ! [cmd {kadm5_destroy $server_handle}]} {
  21         perror "$test: unexpected failure in destroy"
  22         return
  23     }
  24 }
  25 test3
  26
  27 test "get-policy 6"
  28 proc test6 {} {
  29     global test
  30
  31     if {! [cmd {
  32         kadm5_init admin/none admin $KADM5_ADMIN_SERVICE null \
  33             $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
  34             server_handle
  35     }]} {
  36         perror "$test: unexpected failure in init"
  37         return
  38     }
  39     one_line_fail_test {kadm5_get_policy $server_handle test-pol p} \
  40             "AUTH_GET"
  41     if { ! [cmd {kadm5_destroy $server_handle}]} {
  42         perror "$test: unexpected failure in destroy"
  43         return
  44     }
  45 }
  46 if { $RPC } test6
  47
  48 test "get-policy 7"
  49 proc test7 {} {
  50     global test
  51
  52     if {! [cmd {
  53         kadm5_init admin/add admin $KADM5_ADMIN_SERVICE null \
  54             $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
  55             server_handle
  56     }]} {
  57         perror "$test: unexpected failure in init"
  58         return
  59     }
  60     one_line_fail_test {kadm5_get_policy $server_handle test-pol p} \
  61             "AUTH_GET"
  62     if { ! [cmd {kadm5_destroy $server_handle}]} {
  63         perror "$test: unexpected failure in destroy"
  64         return
  65     }
  66 }
  67 if { $RPC } test7
  68
  69 test "get-policy 11"
  70 proc test11 {} {
  71     global test
  72
  73     if {! [cmd {
  74         kadm5_init admin/get-pol StupidAdmin $KADM5_ADMIN_SERVICE \
  75                 null $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
  76                 server_handle
  77     }]} {
  78         perror "$test: unexpected failure in init"
  79         return
  80     }
  81     one_line_succeed_test {kadm5_get_policy $server_handle test-pol p}
  82     if { ! [cmd {kadm5_destroy $server_handle}]} {
  83         perror "$test: unexpected failure in destroy"
  84         return
  85     }
  86 }
  87 test11
  88
  89 test "get-policy 12"
  90 proc test12 {} {
  91     global test
  92
  93     if {! [cmd {
  94         kadm5_init admin/get-pol StupidAdmin \
  95                 $KADM5_CHANGEPW_SERVICE null $KADM5_STRUCT_VERSION \
  96                 $KADM5_API_VERSION_2 server_handle
  97     }]} {
  98         perror "$test: unexpected failure in init"
  99         return
 100     }
 101     one_line_succeed_test \
 102             {kadm5_get_policy $server_handle test-pol-nopw p}
 103     if { ! [cmd {kadm5_destroy $server_handle}]} {
 104         perror "$test: unexpected failure in destroy"
 105         return
 106     }
 107 }
 108 test12
 109
 110 test "get-policy 15"
 111 proc test15 {} {
 112     global test
 113
 114     if {! [cmd {
 115         kadm5_init admin/pol StupidAdmin $KADM5_ADMIN_SERVICE null \
 116                 $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
 117                 server_handle
 118     }]} {
 119         perror "$test: unexpected failure in init"
 120         return
 121     }
 122     one_line_succeed_test \
 123             {kadm5_get_policy $server_handle test-pol-nopw p}
 124     if { ! [cmd {kadm5_destroy $server_handle}]} {
 125         perror "$test: unexpected failure in destroy"
 126         return
 127     }
 128 }
 129 test15
 130
 131 test "get-policy 16"
 132 proc test16 {} {
 133     global test
 134
 135     if {! [cmd {
 136         kadm5_init admin/pol StupidAdmin $KADM5_CHANGEPW_SERVICE \
 137                 null $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
 138                 server_handle
 139     }]} {
 140         perror "$test: unexpected failure in init"
 141         return
 142     }
 143     one_line_succeed_test \
 144             {kadm5_get_policy $server_handle test-pol-nopw p}
 145     if { ! [cmd {kadm5_destroy $server_handle}]} {
 146         perror "$test: unexpected failure in destroy"
 147         return
 148     }
 149 }
 150 test16
 151
 152 test "get-policy 17"
 153 proc test17 {} {
 154     global test
 155
 156     if {! [cmd {
 157         kadm5_init admin/get admin $KADM5_ADMIN_SERVICE null \
 158             $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
 159             server_handle
 160     }]} {
 161         perror "$test: unexpected failure in init"
 162         return
 163     }
 164     one_line_succeed_test {kadm5_get_policy $server_handle test-pol p}
 165     if { ! [cmd {kadm5_destroy $server_handle}]} {
 166         perror "$test: unexpected failure in destroy"
 167         return
 168     }
 169 }
 170 test17
 171
 172 test "get-policy 18"
 173 proc test18 {} {
 174     global test
 175
 176     if {! [cmd {
 177         kadm5_init admin/get admin $KADM5_CHANGEPW_SERVICE null \
 178                 $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
 179                 server_handle
 180     }]} {
 181         perror "$test: unexpected failure in init"
 182         return
 183     }
 184     one_line_fail_test {kadm5_get_policy $server_handle test-pol p} \
 185             "AUTH_GET"
 186     if { ! [cmd {kadm5_destroy $server_handle}]} {
 187         perror "$test: unexpected failure in destroy"
 188         return
 189     }
 190 }
 191 if { $RPC } test18
 192
 193 test "get-policy 21"
 194 proc test21 {} {
 195     global test
 196
 197     one_line_fail_test {kadm5_get_policy null "pol1" p} "BAD_SERVER_HANDLE"
 198 }
 199 test21