Added call support to jtcl

examples/example_irule_call.tcl

@@ -9,7 +9,7 @@ it "should redirect to the same url but using https" {
   on HTTP::uri return "/bar"
   on HTTP::host return "www.foo.com"
   endstate HTTP::redirect https://www.foo.com/bar
-  run irules/call_irule.tcl Simple
+  run irules/call_irule.tcl call
 }
 
 stats

src/onirule.tcl

@@ -161,3 +161,7 @@ proc ::testcl::run {irule rulename} {
   }
   testcl::assertStringEquals "rule $rulename" $result
 }
+
+proc ::testcl::call args {
+  return [eval $args]
+}