TODO: { local $TODO = "not done yet.";
$tcl = <<'EOTCL'; proc me {a args} { puts $a puts $args } me 2 3 4 5 6 EOTCL $expected = "2\n3 4 5 6\n"; language_output_is("tcl",$tcl,$expected,"vararg");
$tcl = <<'EOTCL'; proc me {{a 2}} { puts $a } me EOTCL $expected = "2\n"; language_output_is("tcl",$tcl,$expected,"defaultarg");
}