#%Module
if {[module-info mode] in {load unload display} && [info exists ::env(TESTSUITE_PUTS)]} {
    switch -- $::env(TESTSUITE_PUTS) {
        prestdout1 {
            puts prestdout textpreout1
        }
        prestdout2 {
            puts stdout textout1
            puts prestdout textpreout1
            puts -nonewline prestdout1
            puts prestdout2
        }
        prestdout3 {
            puts -nonewline prestdout textpreout1
            puts -nonewline prestdout textpreout2
        }
    }
}

setenv testsuite ok
