2 puts "0027457: Modeling Data - Raise if scaled transformation is used for shape location"
3 puts " Testing tool for purging locations"
7 restore [locate_data_file bug27457_2.brep] s
8 set chsh [checkshape s b]
9 regexp {Shapes with problems : ([0-9]+)} $chsh full NbSh
10 puts "Number of faulty shapes : $NbSh"
13 set chloc [checkloc s]
14 set Nbloc [llength $chloc]
15 puts "Number of problematic locations : $Nbloc"
17 set Purge_status [purgeloc s1 s]
22 set chloc1 [checkloc s1]
23 if { ! [regexp {There are no problematic shapes} $chloc1 full str]} {
24 puts "Error - not all problematic locations are purged"
25 set Nbloc1 [llength $chloc1]
26 puts "Number of problematic locations : $Nbloc1"
32 checkview -screenshot -2d -path ${imagedir}/${test_image}.png