Imported Upstream version 7.22.0

[sven/tclcurl.git] / tests / getInfo.tcl

diff --git a/tests/getInfo.tcl b/tests/getInfo.tcl
index f19cf24155adb5ff237375250fcebd396ea9ca0f..1f996bfa5f669cac0579a4b962468d729d52ad23 100755 (executable)
--- 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]"