blob: a91136aafbc52d5f88022074f4e92cdcc6a4c37d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
--- a/src/tests/dejagnu/config/default.exp 2010-04-21 01:37:22.000000000 +0300
+++ b/src/tests/dejagnu/config/default.exp 2010-11-24 16:51:53.000000000 +0200
@@ -1619,7 +1619,7 @@
set spawnid $spawn_id
set pid [exp_pid]
- set markstr "===MARK $pid [clock format [clock seconds]] ==="
+ set markstr "===MARK $pid [clock seconds] ==="
puts $f $markstr
flush $f
--- a/src/tests/dejagnu/krb-standalone/gssapi.exp 2009-06-11 20:27:45.000000000 +0300
+++ b/src/tests/dejagnu/krb-standalone/gssapi.exp 2010-11-24 16:52:21.000000000 +0200
@@ -182,7 +182,7 @@
}
}
catch "expect_after"
- if ![check_exit_status $test] {
+ if { [check_exit_status $test] == 0 } {
# check_exit_staus already calls fail for us
return
}
@@ -209,59 +209,59 @@
global portbase
# Start up the kerberos and kadmind daemons.
- if ![start_kerberos_daemons 0] {
+ if { [start_kerberos_daemons 0] == 0 } {
perror "failed to start kerberos daemons"
}
# Use kadmin to add a key for us.
- if ![add_kerberos_key gsstest0 0] {
+ if { [add_kerberos_key gsstest0 0] == 0 } {
perror "failed to set up gsstest0 key"
}
# Use kadmin to add a key for us.
- if ![add_kerberos_key gsstest1 0] {
+ if { [add_kerberos_key gsstest1 0] ==0 } {
perror "failed to set up gsstest1 key"
}
# Use kadmin to add a key for us.
- if ![add_kerberos_key gsstest2 0] {
+ if { [add_kerberos_key gsstest2 0] == 0 } {
perror "failed to set up gsstest2 key"
}
# Use kadmin to add a key for us.
- if ![add_kerberos_key gsstest3 0] {
+ if { [add_kerberos_key gsstest3 0] == 0 } {
perror "failed to set up gsstest3 key"
}
# Use kadmin to add a service key for us.
- if ![add_random_key gssservice/$hostname 0] {
+ if { [add_random_key gssservice/$hostname 0] == 0 } {
perror "failed to set up gssservice/$hostname key"
}
# Use kdb5_edit to create a srvtab entry for gssservice
- if ![setup_srvtab 0 gssservice] {
+ if { [setup_srvtab 0 gssservice] == 0 } {
perror "failed to set up gssservice srvtab"
}
catch "exec rm -f $tmppwd/gss_tk_0 $tmppwd/gss_tk_1 $tmppwd/gss_tk_2 $tmppwd/gss_tk_3"
# Use kinit to get a ticket.
- if ![our_kinit gsstest0 gsstest0$KEY $tmppwd/gss_tk_0] {
+ if { [our_kinit gsstest0 gsstest0$KEY $tmppwd/gss_tk_0] == 0 } {
perror "failed to kinit gsstest0"
}
# Use kinit to get a ticket.
- if ![our_kinit gsstest1 gsstest1$KEY $tmppwd/gss_tk_1] {
+ if { [our_kinit gsstest1 gsstest1$KEY $tmppwd/gss_tk_1] == 0 } {
perror "failed to kinit gsstest1"
}
# Use kinit to get a ticket.
- if ![our_kinit gsstest2 gsstest2$KEY $tmppwd/gss_tk_2] {
+ if { [our_kinit gsstest2 gsstest2$KEY $tmppwd/gss_tk_2] == 0 } {
perror "failed to kinit gsstest2"
}
# Use kinit to get a ticket.
- if ![our_kinit gsstest3 gsstest3$KEY $tmppwd/gss_tk_3] {
+ if { [our_kinit gsstest3 gsstest3$KEY $tmppwd/gss_tk_3] == 0 } {
perror "failed to kinit gsstest3"
}
|