tcl_tests: Add TCL tests files

[openssl-gost/engine.git] / tcl_tests / http.tcl

diff --git a/tcl_tests/http.tcl b/tcl_tests/http.tcl
new file mode 100644 (file)
index 0000000..6121617
--- /dev/null
+++ b/tcl_tests/http.tcl
@@ -0,0 +1,28 @@
+# -*- coding: cp1251 -*-
+# 
+# Получает в командной строке URL и (опционально) строку для поиска
+# сертификата. Выполняет HTTP-запрос и возрвщает результат
+# В строке для поиска сертификата можно использовать прямые слэши вместо
+# обратных.
+
+if {!$argc || $argc>2} {
+       puts stderr "Usage $argv0 url \[cert-spec\]"
+}      
+
+set url [lindex $argv 0]
+if {$argc==2} {
+       set certspec [string map {/ \\} [lindex $argv 1]]
+}      
+
+
+puts Started
+
+package require tcom
+set hh [::tcom::ref createobject WinHttp.WinHttpRequest.5.1]
+$hh Open GET $url 0
+if {[info exists certspec]} {
+       puts "Setting Client Certificate $certspec"
+       $hh SetClientCertificate $certspec
+}
+$hh Send
+puts [$hh ResponseText]