024d6f77 |
1 | |
2 | # create comment note |
3 | set comment [XNoteCreateComment D "Hello, World!" --user "The user" --time [clock format [clock seconds] -format "%Y-%m-%dT%H:%M:%S"]] |
4 | XNoteDump D ${comment} |
5 | |
6 | # annotate box_1 |
ac293bde |
7 | set assemblyItemId [XNoteRefDump D [XNoteAdd D ${comment} ${box_1}]] |
024d6f77 |
8 | |
9 | # annotate box_2 |
10 | XNoteRefDump D [XNoteAdd D ${comment} ${box_2}] |
11 | |
12 | # list annotations |
13 | XNoteAnnotations D |
14 | |
15 | # expected results |
16 | set nb_annotations_result 2 |
17 | set nb_notes_result 1 |
18 | set nb_orphan_result 0 |
ac293bde |
19 | |
20 | # check the assembly item id |
21 | if {[regexp "Item : ${box_1}" ${assemblyItemId}]} { |
22 | puts "OK : assembly item id" |
23 | } else { |
24 | puts "Error : wrong assembly item id" |
25 | } |