Ticket #62710: catch.tcl

package require macports
package require macports_util

proc test1 {} {
    try {
        error foo
    } catch {{*} eCode eMessage} {
        error "There was an error: $eMessage"
    }
}

proc test2 {} {
    try {
        error foo
    } catch {{*} eCode eMessage} {
        return -code error "There was an error: $eMessage"
    }
}

if {[catch {test1} result]} {
    puts "test1 errored: $result"
} else {
    puts "no error for test1"
}

if {[catch {test2} result]} {
    puts "test2 errored: $result"
} else {
    puts "no error for test2"
}