普通そういう場合はtest1からチャンネル識別子をreturnして
それを引数としてtest2に渡すんじゃなかろうか。

グローバル変数でもいいけどそしたらこうだよ。

proc test1 {} {
global sock
set sock [socket "hogehoge.com" 80]
}

proc test2 {} {
global sock
puts $sock "test"
}