# So it is expected that:
# * no other output is printed between two calls
# * the last `show_unit_status` is followed by a new-line
- fun show_unit_status(name: String, tests: SequenceRead[UnitTest], more_message: nullable String)
+ fun show_unit_status(name: String, tests: SequenceRead[UnitTest])
do
var esc = 27.code_point.to_s
var line = "\r{esc}[K* {name} ["
end
line += "] {done}/{tests.length}"
- if more_message != null then
- line += " " + more_message
- end
printn "{line}"
end
# All extracted docunits
var docunits = new Array[DocUnit]
- fun show_status(more_message: nullable String)
+ fun show_status
do
- toolcontext.show_unit_status(name, docunits, more_message)
+ toolcontext.show_unit_status(name, docunits)
end
fun mark_done(du: DocUnit)
do
du.is_done = true
- show_status(du.full_name + " " + du.status_tag)
+ show_status
end
# Execute all the docunits
# Test to be executed after the whole test suite.
var after_module: nullable TestCase = null
- fun show_status(more_message: nullable String)
+ fun show_status
do
- toolcontext.show_unit_status("Test-suite of module " + mmodule.full_name, test_cases, more_message)
+ toolcontext.show_unit_status("Test-suite of module " + mmodule.full_name, test_cases)
end
# Execute the test suite
if not before_module == null then before_module.run
for case in test_cases do
case.run
- show_status(case.full_name + " " + case.status_tag)
+ show_status
end
show_status