gistfile1.txt

proc assert_block {block {message "assert_block failed."}} {
  if ![uplevel $block] {
    error $message
  }
}

proc assert_equal {expected actual {message ""}} {
  set full_message [or $message "$expected expected but was\n$actual.\n"]
  assert_block {expr {$expected eq $actual}} $full_message
}