#%Module
if {[info exists env(TESTSUITE_PUTS)]} {
    switch -- $env(TESTSUITE_PUTS) {
        log1 {
            puts log {some msg}
            puts log {another msg}
        }
        log_nonewline {
            puts -nonewline log {some msg}
        }
        log_and_unk {
            puts log {some msg}
            unk
            puts log {another msg}
        }
    }
}
