[occt.git] / tests / bugs / moddata_3 / bug23733_std

puts "================"
puts "CR23733"
puts "================"
puts ""
###############################################
## PCurve for edge on face creation failure
###############################################

pload DCAF TOPTEST

Open [locate_data_file bug_glue_edges_GEOM.sgd] D

GetShape D 0:1:9686:1:1:2 s1
GetShape D 0:1:9449:1:1:2 s2
explode s1 e
explode s2 f

#should create pcurve
bhaspc s1_100 s2_2 do
#should report OK
set info1 [bhaspc s1_100 s2_2]
if { [regexp {No} ${info1}] == 1 } {
    puts "Faulty: No 2D curves detected"
}

#should create pcurve
bhaspc s1_40 s2_54 do
#should report OK
set info2 [bhaspc s1_40 s2_54]
if { [regexp {No} ${info2}] == 1 } {
    puts "Faulty: No 2D curves detected"
}

#should create pcurve
bhaspc s1_22 s2_123 do
#should report OK
set info3 [bhaspc s1_22 s2_123]
if { [regexp {No} ${info3}] == 1 } {
    puts "Faulty: No 2D curves detected"
}
Commit	Line	Data
ff205346	1	puts "================"
	2	puts "CR23733"
	3	puts "================"
	4	puts ""
	5	###############################################
	6	## PCurve for edge on face creation failure
	7	###############################################
	8
	9	pload DCAF TOPTEST
	10
	11	Open [locate_data_file bug_glue_edges_GEOM.sgd] D
	12
	13	GetShape D 0:1:9686:1:1:2 s1
	14	GetShape D 0:1:9449:1:1:2 s2
	15	explode s1 e
	16	explode s2 f
	17
	18	#should create pcurve
	19	bhaspc s1_100 s2_2 do
	20	#should report OK
	21	set info1 [bhaspc s1_100 s2_2]
	22	if { [regexp {No} ${info1}] == 1 } {
	23	puts "Faulty: No 2D curves detected"
	24	}
	25
	26	#should create pcurve
	27	bhaspc s1_40 s2_54 do
	28	#should report OK
	29	set info2 [bhaspc s1_40 s2_54]
	30	if { [regexp {No} ${info2}] == 1 } {
	31	puts "Faulty: No 2D curves detected"
	32	}
	33
	34	#should create pcurve
	35	bhaspc s1_22 s2_123 do
	36	#should report OK
	37	set info3 [bhaspc s1_22 s2_123]
	38	if { [regexp {No} ${info3}] == 1 } {
	39	puts "Faulty: No 2D curves detected"
	40	}