Posted to tcl by kostix at Tue May 27 22:58:44 GMT 2008view pretty

proc printerror {script} {
    uplevel 1 "if \{\[set code \[catch \{$script\} _msg\]\] == 1\} \{ puts -nonewline stderr \$_msg ; return -code error \} \{set \$_msg\}"
}

test ldap-2.0 {check info ip subcommand error handling
} -body {
   printerror {ldap::info ip}
} -returnCodes {error} \
  -errorOutput {Wrong # of arguments. Usage: ldap::info ip handle}