projects
/
occt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
0023766: Shape orientation processing mechanism redesign
[occt.git]
/
tests
/
bugs
/
caf
/
bug644
1
puts "================="
2
puts "OCC644"
3
puts "SAM1513"
4
puts "================="
5
puts ""
6
7
NewDocument D
8
UndoLimit D 10
9
10
NewCommand D
11
SetVariable D 0:1 0 mm
12
SetRelation D 0:2 x=10 0:1
13
14
NewCommand D
15
SetRelation D 0:2 x=20 0:1
16
17
NewCommand D
18
Undo D
19
Redo D
20
Undo D
21
22
set RelationList [DumpRelation D 0:2]
23
24
if {[llength ${RelationList}] <= 10} {
25
puts "OCC644: OK"
26
} else {
27
puts "OCC644: ERROR"
28
}
29
30