mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
37d6975c77
Change platform in occt test cases in TODOs from Debian\Mandriva to Linux Small corrections in test cases. Return procedure _tests_platform_def.
83 lines
1.8 KiB
Plaintext
Executable File
83 lines
1.8 KiB
Plaintext
Executable File
puts "========"
|
|
puts "OCC232"
|
|
puts "Pick filter does NOT work for TopAbs_COMPSOLID topology"
|
|
puts "========"
|
|
|
|
vinit
|
|
OCC232
|
|
vfit
|
|
|
|
# selected point of first CompSolid
|
|
set x1 69
|
|
set y1 204
|
|
|
|
set x2 116
|
|
set y2 231
|
|
|
|
#set x3 160; set y3 257 - it's bad for lin,aki.
|
|
set x3 159
|
|
set y3 256
|
|
|
|
# selected point of second CompSolid
|
|
set x4 298
|
|
set y4 76
|
|
|
|
set x5 339
|
|
set y5 100
|
|
|
|
set x6 381
|
|
set y6 124
|
|
|
|
set Cyan_R 0
|
|
set Cyan_G 1
|
|
set Cyan_B 1
|
|
|
|
set Cyan "$Cyan_R $Cyan_G $Cyan_B"
|
|
|
|
set Yellow_R 1
|
|
set Yellow_G 1
|
|
set Yellow_B 0
|
|
|
|
set Yellow "$Yellow_R $Yellow_G $Yellow_B"
|
|
|
|
# There is not selection
|
|
puts "There is not selection"
|
|
set result11 [regexp "$Yellow" [vreadpixel $x1 $y1 rgb]]
|
|
set result12 [regexp "$Yellow" [vreadpixel $x2 $y2 rgb]]
|
|
set result13 [regexp "$Yellow" [vreadpixel $x3 $y3 rgb]]
|
|
set result14 [regexp "$Yellow" [vreadpixel $x4 $y4 rgb]]
|
|
set result15 [regexp "$Yellow" [vreadpixel $x5 $y5 rgb]]
|
|
set result16 [regexp "$Yellow" [vreadpixel $x6 $y6 rgb]]
|
|
|
|
# Move a mouse
|
|
puts "Move a mouse"
|
|
vmoveto $x2 $y2
|
|
|
|
# Second box of first CompSolid is selected
|
|
puts "Second box of first CompSolid is selected"
|
|
set result21 [regexp "$Yellow" [vreadpixel $x1 $y1 rgb]]
|
|
set result22 [regexp "$Yellow" [vreadpixel $x3 $y3 rgb]]
|
|
set result23 [regexp "$Yellow" [vreadpixel $x4 $y4 rgb]]
|
|
set result24 [regexp "$Yellow" [vreadpixel $x5 $y5 rgb]]
|
|
set result25 [regexp "$Yellow" [vreadpixel $x6 $y6 rgb]]
|
|
|
|
set env(os_type) $tcl_platform(platform)
|
|
if { [string compare $env(os_type) "windows"] != 0 } {
|
|
set result31 [regexp "$Cyan" [vreadpixel $x2 $y2 rgb]]
|
|
if { $result31 == 0 } {
|
|
set IsFaulty 1
|
|
}
|
|
}
|
|
|
|
set IsFaulty 0
|
|
if { !($result11 && $result12 && $result13 && $result14 && $result15 && $result16)
|
|
|| !($result21 && $result22 && $result23 && $result24 && $result25) } {
|
|
set IsFaulty 1
|
|
}
|
|
|
|
if {$IsFaulty != 0} {
|
|
puts "Error : OCC232"
|
|
}
|
|
|
|
set only_screen 1
|