mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
1fc1a207b0
Added new condition for first indicated element at Draw_ProgressIndicator::Show(), because it’s more logical that at start progress starts at 0 Changed usage of Next() to Next(step) for increment progress to IND_THRESHOLD in RWStl::writeASCII() and RWStl::writeBinary() Changed condition for continuation of writing and add interrupt to this function Added possibility to use Progress indicator in writestl Changed paremeter in constructor Message_ProgressSentry aPS() IND_THRESHOLD to 1 Changed test
24 lines
719 B
Plaintext
24 lines
719 B
Plaintext
puts "# ============"
|
|
puts "# 0028478: Scope Names Are Swallowed in Message_ProgressSentry Constructors"
|
|
puts "# ============"
|
|
puts ""
|
|
puts "# Test output of progress indicator in text mode"
|
|
|
|
pload QAcommands
|
|
set out [OCC28478 3 2]
|
|
|
|
set expected {
|
|
{Progress: 0% Outer: 0 / 3}
|
|
{Progress: 17% Outer: 1 / 3 Inner: 1 / 2}
|
|
{Progress: 33% Outer: 1 / 3 Inner: 2 / 2}
|
|
{Progress: 50% Outer: 2 / 3 Inner: 1 / 2}
|
|
{Progress: 67% Outer: 2 / 3 Inner: 2 / 2}
|
|
{Progress: 83% Outer: 3 / 3 Inner: 1 / 2}
|
|
{Progress: 100% Outer: 3 / 3 Inner: 2 / 2}
|
|
}
|
|
|
|
if { [string compare [string trim $out] [join $expected "\n"]] } {
|
|
puts "Error: output (see above) does not match expected one:"
|
|
puts "[join $expected "\n"]"
|
|
puts ""
|
|
} |