-puts "TODO OCC26018 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC26018 ALL: bopcheck failed"
source [locate_data_file mos2014-scf-final.prt.1.gdml.tcl]
+set bcheck [bopcheck result]
+puts $bcheck
+if {![regexp {This shape seems to be OK.} $bcheck]} {
+ puts "Error: bopcheck failed"
+}
\ No newline at end of file