-puts "TODO ?OCC26017 ALL: TEST INCOMPLETE"
-puts "TODO ?OCC26017 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC26018 ALL: Faulty shapes in variables faulty_1 to faulty_"
source [locate_data_file mos2014-po-modif.prt.1.gdml.tcl]