1puts "========================" 2puts "0025171: STEP Lexer - the strings with quote sign inside can't be properly lexed" 3puts "========================" 4 5# Read file 6stepread [locate_data_file bug25171.stp] res * 7 8# Checking 9set state [data c] 10if { [regexp "6425 Entities, of which 65 Root" $state] != 1 } { 11 puts "Error : wrong count of transferred roots" 12} 13 14checknbshapes res_1 -face 53 -shell 5 -solid 5 15checkshape res_1 f 16