blob: 42a6021f8939069fc9538df7c51016df4215ef2c (
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
|
set wd [pwd]
set p [profile_init_path $wd/test2.ini]
set verbose 0
proc test1 {} {
global wd p verbose
set sect {{test section 1} child_section child}
set iter [profile_iterator_create $p $sect 0]
set done 0
if $verbose { puts "Iterating over {$sect} entries:" }
while {!$done} {
set pair [profile_iterator $iter]
if [string match $pair {{} {}}] {
set done 1
} else {
set val [lindex $pair 1]
if $verbose { puts -nonewline "\t$val" }
}
}
if $verbose { puts "" }
#profile_iterator_free $iter
set iter [profile_iterator_create $p $sect 0]
set done 0
if $verbose { puts "Iterating again, deleting:" }
while {!$done} {
set pair [profile_iterator $iter]
if [string match $pair {{} {}}] {
set done 1
} else {
set val [lindex $pair 1]
if $verbose { puts -nonewline "\t$val" }
profile_update_relation $p $sect $val
}
}
if $verbose { puts "" }
#profile_iterator_free $iter
profile_flush $p
if $verbose { puts "Reloading profile" }
set p [profile_init_path $wd/test2.ini]
set iter [profile_iterator_create $p $sect 0]
set done 0
if $verbose { puts "Iterating again:" }
set found_some 0
while {!$done} {
set pair [profile_iterator $iter]
if [string match $pair {{} {}}] {
set done 1
} else {
set found_some 1
set val [lindex $pair 1]
if $verbose { puts -nonewline "\t$val" }
}
}
#profile_iterator_free $iter
profile_abandon $p
if {$found_some} {
if $verbose { puts "" }
puts stderr "Error: Deleting in iterator didn't get them all."
exit 1
} else {
puts "OK: Deleting in iteration got rid of all entries."
}
}
test1
exit 0
|