tests/test.tcl


1
2
3
4
5
6
7
8
9
10
11

proc hello {} {
    puts "Hello, World!"
}

proc add {a b} {
    return [expr {$a + $b}]
}

proc complex_proc {name {age 0} args} {
    puts "Name: $name, Age: $age, Args: $args"
}