Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug424_2
CommitLineData
f1aa2b62 1
2puts "========================"
3puts " OCC424 "
4puts "(case 2)"
5puts "========================"
6puts ""
7
8restore [locate_data_file CFE_e_lonfzx.rle] E
9nexplode E f
10
11profile cont S E_10 F 50 -100 X 50 Y -100 X -50
12featdprism E cont E_10 10 1 1
13
14if [catch {featperform dprism result } catch_result] {
15 puts "Faulty OCC424 (case 2): function FEATPERFORM works wrongly"
16} else {
17 puts "OCC424 OK (case 2): function FEATPERFORM works properly"
18}
19
20set square 978236.
21set 2dviewer 0