set test "pretty-char"
set ::result_string {{.a='A', .b='\000', .c='\b', .d='\354', .e='z'}}

set script $srcdir/$subdir/$test.stp
set header /tmp/$test.h
file copy -force $srcdir/$subdir/$test.h $header


foreach runtime [get_runtime_list] {
    if {$runtime != ""} {
	# This should just use "<header>", but tcl exec insists on treating
	# that as a redirect.  We can instead abuse the fact that the
	# tokenize() used by @cast ignores leading delimiters.
	stap_run2 $script :<$header> -g --runtime=$runtime
	stap_run2 $script :<$header> -g --runtime=$runtime -DSTP_LEGACY_PRINT
    } else {
	stap_run2 $script kernel<$header> -g
	stap_run2 $script kernel<$header> -g -DSTP_LEGACY_PRINT
    }
}

file delete -force $header