mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
17 lines
474 B
Plaintext
17 lines
474 B
Plaintext
puts "=========="
|
|
puts "0031908: Draw Harness, TKTopTest - wavefront file path length is limited to 100 characters"
|
|
puts "=========="
|
|
puts ""
|
|
pload MODELING
|
|
box b 10 20 30
|
|
|
|
# this test check use wavefront command with long file name
|
|
set file_name "${imagedir}/${casename}"
|
|
set path_length [string length $file_name]
|
|
# but full path must be less than 255
|
|
for {set i $path_length} {$i < 255} {incr i} {
|
|
append file_name "1"
|
|
}
|
|
wavefront b ${file_name}
|
|
puts "TEST COMPLETED"
|