#! /bin/env tclsh
proc suite_main {} {
package require {ycl proc}
[yclprefix] proc alias alias [yclprefix] proc alias
alias aliases [yclprefix] proc aliases
aliases {
{ycl list} {
lindex
lappend
sl
}
{ycl test} {
cleanup1
init
}
{ycl text} {
columns
}
}
init
package require [list ycl text]
namespace import [yclprefix]::text
set setup1 {}
test columns {} -setup $setup1 -body {
set data {
{1 01 33.99 011111111 99999}
}
columns data
lindex data 0
lappend res data
set data {
{1 01 33.99 011111111 99999 hello}
}
columns data
lindex data 0
lappend res data
return $res
} -cleanup [cleanup1] -result [sl {
{{ 1} { 01} { 33.99} 011111111 { 99999}}
{{1 } {01 } {33.99 } 011111111 {99999 } {hello }}
}]
cleanupTests
}