[occt.git] / tests / bugs / step / bug31685_1

puts "==================================================="
puts " 0031685: Data Exchange, STEPCAFControl_Reader - NULL dereference on translating PLACED_DATUM_TARGET_FEATURE "
puts "==================================================="
puts ""

pload DCAF

# Read file
ReadStep D [locate_data_file bug31685_1.stp]
XGetOneShape res D

# Checking
checkshape res f
set dump [XDumpNbDGTs D f]
set info "

 NbOfDimensions          : 15
  NbOfDimensionalSize    : 7
  NbOfDimensionalLocation: 0
  NbOfAngular            : 0
  NbOfWithPath           : 0
  NbOfCommonLabels       : 1
 NbOfTolerances          : 22
  NbOfGTWithModifiers    : 4
  NbOfGTWithMaxTolerance : 0
  NbOfGTWithDatums       : 20
 NbOfDatumFeature        : 13
 NbOfAttachedDatum       : 70
 NbOfDatumTarget         : 57
"
set isOK 1;
set nb_ref [llength $dump]
for { set i 0 } { $i < $nb_ref } { incr i } {
  set refstr [lindex $info $i]
  set curstr [lindex $dump $i]
  if {[string equal $refstr $curstr] == 0} {
    set isOK 0
  }
}
if {$isOK == 0} {
  puts "Error: wrong translate DGT"
}

Close D
Commit	Line	Data
14abc514	1	puts "==================================================="
	2	puts " 0031685: Data Exchange, STEPCAFControl_Reader - NULL dereference on translating PLACED_DATUM_TARGET_FEATURE "
	3	puts "==================================================="
	4	puts ""
	5
	6	pload DCAF
	7
	8	# Read file
	9	ReadStep D [locate_data_file bug31685_1.stp]
	10	XGetOneShape res D
	11
	12	# Checking
	13	checkshape res f
	14	set dump [XDumpNbDGTs D f]
	15	set info "
	16
2b5ee7c7	17	NbOfDimensions : 15
14abc514	18	NbOfDimensionalSize : 7
	19	NbOfDimensionalLocation: 0
	20	NbOfAngular : 0
	21	NbOfWithPath : 0
2b5ee7c7	22	NbOfCommonLabels : 1
14abc514	23	NbOfTolerances : 22
	24	NbOfGTWithModifiers : 4
	25	NbOfGTWithMaxTolerance : 0
	26	NbOfGTWithDatums : 20
	27	NbOfDatumFeature : 13
	28	NbOfAttachedDatum : 70
	29	NbOfDatumTarget : 57
	30	"
	31	set isOK 1;
	32	set nb_ref [llength $dump]
	33	for { set i 0 } { $i < $nb_ref } { incr i } {
	34	set refstr [lindex $info $i]
	35	set curstr [lindex $dump $i]
	36	if {[string equal $refstr $curstr] == 0} {
	37	set isOK 0
	38	}
	39	}
	40	if {$isOK == 0} {
	41	puts "Error: wrong translate DGT"
	42	}
	43
	44	Close D