support for mocking HTTP::header statements

examples.cmd

@@ -0,0 +1,4 @@
+@echo off
+for %%f in (examples\example_*.tcl) do (
+	jtcl examples\%%~nf.tcl
+)

src/irulehttp.tcl

@@ -42,6 +42,14 @@ namespace eval ::testcl::HTTP {
 #
 proc ::testcl::HTTP::header {cmd args} {
   log::log debug "HTTP::header $cmd $args invoked"
+
+  set cmdargs [concat HTTP::header $cmd $args]
+  #set rc [catch { return [::testcl::expected {*}$cmdargs] } res]
+  set rc [catch { return [eval ::testcl::expected $cmdargs] } res]
+  if {$rc != 1100} {
+    log::log debug "skipping header methods evaluation - expectation found for $cmdargs"
+    return $res
+  }
 
   variable headers
   if { ![array exists headers] } {

src/it.tcl

@@ -40,10 +40,15 @@ proc ::testcl::reset_expectations { } {
   variable verifications
   if { [info exists verifications] } {
     log::log debug "Reset expected verifications"
-	set verifications {}
+    set verifications {}
+  }
+  variable headers
+  if { [info exists headers] } {
+    log::log debug "Reset HTTP headers"
+    array unset headers
+    variable lws
+    set lws 0
   }
-  log::log debug "Reset HTTP headers"
-  HTTP::header remove
 }
 
 # testcl::before --

src/on.tcl

@@ -9,6 +9,7 @@ namespace eval ::testcl {
   namespace export endstate
   namespace export verify
   namespace export unknown
+  namespace export expected
 }
 
 # testcl::on --
@@ -136,6 +137,45 @@ rename unknown ::tcl::unknown
 proc ::testcl::unknown {args} {
 
   log::log debug "unknown called with args: $args"
+
+  #set rc [catch { return [::testcl::expected {*}$args] } res]
+  set rc [catch { return [eval ::testcl::expected $args] } res]
+  if {$rc != 1100} {
+    log::log debug "rc from expected: $rc"
+    if {$rc == 1000} {
+      return -code 1000 $res
+    }
+    return $res
+  }
+
+  set errorMessage "Unexpected unknown command invocation '$args'"
+  puts "\n$errorMessage\n"
+  puts "Maybe you should add an \"on\" statement similar to the one below to your \"it\" block?\n"
+  puts "    it \"your description\" \{"
+  puts "      ..."
+  puts "      on $args return \"your return value\""
+  puts "      ..."
+  puts "    \}\n"
+  error $errorMessage
+  # TODO?
+  #uplevel ::tcl::unknown $args
+}
+
+# testcl::expected --
+#
+# verify if there is mock available for command
+#
+# Arguments:
+# Any
+#
+# Side Effects:
+# None
+#
+# Results:
+# Whatever your expectation says
+proc ::testcl::expected {args} {
+
+  log::log debug "expected called with args: $args"
   variable expectations
 
   if { [llength $expectations] > 0 } {
@@ -168,15 +208,5 @@ proc ::testcl::unknown {args} {
     }
 
   }
-  set errorMessage "Unexpected unknown command invocation '$args'"
-  puts "\n$errorMessage\n"
-  puts "Maybe you should add an \"on\" statement similar to the one below to your \"it\" block?\n"
-  puts "    it \"your description\" \{"
-  puts "      ..."
-  puts "      on $args return \"your return value\""
-  puts "      ..."
-  puts "    \}\n"
-  error $errorMessage
-  # TODO?
-  #uplevel ::tcl::unknown $args
+  return -code 1100 "expectation not found"
 }

tests.cmd

@@ -0,0 +1,4 @@
+@echo off
+for %%f in (test\test_*.tcl) do (
+	jtcl test\%%~nf.tcl
+)