punkshell/scriptlib/tests/linetest.tcl

set sep [string repeat - 40]

set x [list \
a b c\
d e f\
]
puts stdout "x: $x"
puts stdout $sep

if {[catch {

y.= .= list\
a b c\
d e f |> inspect -label inspect-y

} errmsg]} {
    puts stderr "error: $errmsg"
} else {
    puts stdout "y: $y"
}
puts stdout $sep

z.= = "
a b c
d e f
" |> inspect -label inspect-z |> .=* list

puts stdout "z: $z"
puts stdout $sep


j.= = "
a b c
d e f
" |> inspect -label inspect-j |> linelist

puts stdout "linelist: $j"
puts stdout $sep

k.= = {
a b c
d e f
} |> inspect -label inspect-k |> linelist

puts stdout "linelist: $k"
puts stdout $sep