if {[string compare $command "SplitAngle"] == 0 } {
    set os "ALL"
    if {[array get env os_type] != ""} {
       set os $env(os_type)
    }
    if {
	    [string compare $os "Mandriva2008"] == 0
       } {
  puts "TODO ?OCC23127 ALL: Faulty shapes in variables faulty_1 to faulty_"
    } else {
  puts "TODO ?OCC23127 ALL: Faulty shapes in variables faulty_1 to faulty_"
    }
}
if {[string compare $command "ShapeDivide"] == 0 } {
    puts "TODO ?DEBUG_OCC24121 Debian60-64: Process killed by CPU limit"
    puts "TODO ?DEBUG_OCC24121 Debian60-64: TEST INCOMPLETE"
}

if {[string compare $command "ShapeConvertRev"] == 0 } {
   puts "TODO ?DEBUG_OCC24121 Debian60-64: Process killed by CPU limit"
   puts "TODO ?DEBUG_OCC24121 Debian60-64: TEST INCOMPLETE"
}

restore [locate_data_file BPLSEITLI.brep] a