Adding test cases from grid chl
[occt.git] / tests / bugs / fclasses / bug39
1 puts "========"
2 puts "OCC39"
3 puts "========"
4
5 pload QAcommands
6
7 if ![string compare $tcl_platform(platform) "windows"] {
8    OCC39 W:\pak.per 0 res
9    puts [checkshape res]
10 } else {
11     puts "Thes case for WNT only!"
12 }
13