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