[occt.git] / tests / bugs / moddata_2 / bug231

puts "========"
puts "OCC231"
puts "========"
puts ""

#############################################
##Uncorrect work DRAW command "proj" in version dev
## and receive such result:
## in dev : ext_1 ext_2 ext_3
## in C40 : ext_1 ext_2 ext_3 ext_4
#############################################

restore [locate_data_file OCC231.draw] result

set str [proj result 1751.38 614.152 -180.331]
set err [llength $str]

if { $err < 4 } {
    puts "Faulty OCC231: Projection was made wrongly"
} else {
    puts "OCC231 OK: Projection was made properly"
}

set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "========"
	2	puts "OCC231"
	3	puts "========"
	4	puts ""
	5
	6	#############################################
	7	##Uncorrect work DRAW command "proj" in version dev
	8	## and receive such result:
	9	## in dev : ext_1 ext_2 ext_3
	10	## in C40 : ext_1 ext_2 ext_3 ext_4
	11	#############################################
	12
	13	restore [locate_data_file OCC231.draw] result
	14
	15	set str [proj result 1751.38 614.152 -180.331]
	16	set err [llength $str]
	17
	18	if { $err < 4 } {
	19	puts "Faulty OCC231: Projection was made wrongly"
	20	} else {
	21	puts "OCC231 OK: Projection was made properly"
	22	}
	23
	24	set 2dviewer 0
	25