1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# check counts
set count [XNoteCount D]
set nb_annotations [lindex ${count} 0]
set nb_notes [lindex ${count} 1]
set nb_orphan [lindex ${count} 2]
if {${nb_annotations} != ${nb_annotations_result}} {
puts "Error : ${nb_annotations_result} number of annotated items is expected instead of ${nb_annotations}!"
}
if {${nb_notes} != ${nb_notes_result}} {
puts "Error : ${nb_notes_result} number of notes is expected instead of ${nb_notes}!"
}
if {${nb_orphan} != ${nb_orphan_result}} {
puts "Error : ${nb_orphan_result} number of orphan notes is expected instead of ${nb_orphan}!"
}
# release document
unset D
puts "TEST COMPLETED"
|
