X-Git-Url: http://git.sven.stormbind.net/?p=sven%2Ftclcurl.git;a=blobdiff_plain;f=tests%2FgetInfo.tcl;h=1f996bfa5f669cac0579a4b962468d729d52ad23;hp=f19cf24155adb5ff237375250fcebd396ea9ca0f;hb=refs%2Ftags%2Fupstream%2F7.22.0;hpb=b0e6fb6e4379fb87fa2854b84a56c5ad49c644da

diff --git a/tests/getInfo.tcl b/tests/getInfo.tcl
index f19cf24..1f996bf 100755
--- a/tests/getInfo.tcl
+++ b/tests/getInfo.tcl
@@ -7,6 +7,9 @@ $curlHandle perform
 
 puts "Url: [$curlHandle getinfo effectiveurl]"
 puts "Primary IP: [$curlHandle getinfo primaryip]"
+puts "Primary port: [$curlHandle getinfo primaryport]"
+puts "Local IP: [$curlHandle getinfo localip]"
+puts "Local port: [$curlHandle getinfo localport]"
 puts "Redirect url: [$curlHandle getinfo redirecturl]"
 puts "Http-code: [$curlHandle getinfo responsecode]"
 puts "Proxy response code: [$curlHandle getinfo httpconnectcode]"