tests/inspect.tcl

if {[::rivet::var_qs exists p]} {
    set fpar [::rivet::var_qs get p]

    switch $fpar {
        childinit {
            puts -nonewline [::rivet::inspect ChildInitScript]
        }
        script {
            puts -nonewline [::rivet::inspect script]
        }
        default {
        }
    }
} else {
            
    puts -nonewline [::rivet::inspect]

}