Upgraded to version 1.0.1

README.md

@@ -33,7 +33,7 @@ Let's say you want to test the following simple iRule found in *simple_irule.tcl
 
 Now, create a file called *test_simple_irule.tcl* containing the following lines:
 
-    package require -exact testcl 1.0
+    package require -exact testcl 1.0.1
     namespace import ::testcl::*
 
     # Comment in to enable logging
@@ -155,7 +155,7 @@ NB! Be carefull with using _on_ commands in _before_. If there will be another d
 
 Using the _before_ command, *test_simple_irule.tcl* can be rewritten as:
 
-    package require -exact testcl 1.0
+    package require -exact testcl 1.0.1
     namespace import ::testcl::*
 
     # Comment in to enable logging
@@ -232,7 +232,7 @@ Let's have a look at a more advanced iRule (advanced_irule.tcl):
 
 The specs for this iRule would look like this:
 
-    package require -exact testcl 1.0
+    package require -exact testcl 1.0.1
     namespace import ::testcl::*
 
     # Comment out to suppress logging
@@ -334,7 +334,7 @@ Let's have a look at a another iRule (headers_irule.tcl):
 
 The example specs for this iRule would look like this:
 
-    package require -exact testcl 1.0
+    package require -exact testcl 1.0.1
     namespace import ::testcl::*
 
     # Comment out to suppress logging

examples/README.md

@@ -1,3 +1,3 @@
 This folder contains examples demonstrating how to write your TesTcl tests
 
-The examples used are identical to the ones found on [testcl.com](http://testcl.com)
+The examples used are identical to the ones found on [testcl.com](http://testcl.com)

examples/example_irule_advanced.tcl

@@ -1,4 +1,4 @@
-package require -exact testcl 1.0
+package require -exact testcl 1.0.1
 namespace import ::testcl::*
 
 ##
@@ -75,4 +75,4 @@ it "should give 404 when request cannot be handled" {
   run irules/advanced_irule.tcl advanced
 }
 
-stats
+stats

examples/example_irule_headers.tcl

@@ -1,4 +1,4 @@
-package require -exact testcl 1.0
+package require -exact testcl 1.0.1
 namespace import ::testcl::*
 
 ##

examples/example_irule_simple.tcl

@@ -1,4 +1,4 @@
-package require -exact testcl 1.0
+package require -exact testcl 1.0.1
 namespace import ::testcl::*
 
 ##
@@ -51,4 +51,4 @@ it "should replace existing Vary http response headers with Accept-Encoding valu
   run irules/simple_irule.tcl simple
 }
 
-stats
+stats

irules/README.md

@@ -1,3 +1,3 @@
 This folder contains some sample iRules used for testing
 
-The examples used are identical to the ones found on [testcl.com](http://testcl.com)
+The examples used are identical to the ones found on [testcl.com](http://testcl.com)

irules/simple_irule.tcl

@@ -14,4 +14,4 @@ rule simple {
     HTTP::header insert Vary "Accept-Encoding"
   }
 
-}
+}

pkgIndex.tcl

@@ -8,7 +8,7 @@
 # script is sourced, the variable $dir must contain the
 # full path name of this file's directory.
 
-package ifneeded testcl 1.0 [list source [file join $dir src/assert.tcl]]\n[list source [file join $dir src/it.tcl]]\n[list source [file join $dir src/on.tcl]]\n[list source [file join $dir src/onirule.tcl]]\n[list source [file join $dir src/irulehttp.tcl]]
+package ifneeded testcl 1.0.1 [list source [file join $dir src/assert.tcl]]\n[list source [file join $dir src/it.tcl]]\n[list source [file join $dir src/on.tcl]]\n[list source [file join $dir src/onirule.tcl]]\n[list source [file join $dir src/irulehttp.tcl]]
 
 # Disable certain Tcl commands from iRules
 source [file join $dir src/disabled_commands.tcl]

src/README.md

@@ -1 +1 @@
-This folder contains the actual source code for the TesTcl package
+This folder contains the actual source code for the TesTcl package

src/assert.tcl

@@ -1,4 +1,4 @@
-package provide testcl 1.0
+package provide testcl 1.0.1
 package require log
 
 namespace eval ::testcl {
@@ -44,4 +44,4 @@ proc ::testcl::assertNumberEquals {expected actual} {
   if {$expected != $actual} {
     error "Expected '$expected', got '$actual'"
   }
-}
+}

src/disabled_commands.tcl

@@ -73,4 +73,4 @@ rename time ::tcl::time
 rename update ::tcl::update
 rename uplevel ::tcl::uplevel
 rename upvar ::tcl::upvar
-rename vwait ::tcl::vwait
+rename vwait ::tcl::vwait

src/irulehttp.tcl

@@ -1,4 +1,4 @@
-package provide testcl 1.0
+package provide testcl 1.0.1
 package require log
 
 namespace eval ::testcl::HTTP {

src/it.tcl

@@ -1,4 +1,4 @@
-package provide testcl 1.0
+package provide testcl 1.0.1
 package require log
 
 namespace eval ::testcl {

src/on.tcl

@@ -1,4 +1,4 @@
-package provide testcl 1.0
+package provide testcl 1.0.1
 package require log
 
 namespace eval ::testcl {

src/onirule.tcl

@@ -1,4 +1,4 @@
-package provide testcl 1.0
+package provide testcl 1.0.1
 package require log
 
 namespace eval ::testcl {
@@ -139,4 +139,4 @@ proc ::testcl::run {irule rulename} {
   set rc [catch {source $irule} result]
   testcl::assertNumberEquals 0 $rc
   testcl::assertStringEquals "rule $rulename" $result
-}
+}

test/README.md

@@ -2,4 +2,4 @@ This folder contains tests used when developing TesTcl
 
 To run *test_on.tcl*, run the following command from the TesTcl root folder
 
-    jtcl test/test_on.tcl
+    jtcl test/test_on.tcl

test/test_advanced_irule_it.tcl

@@ -65,4 +65,4 @@ it "should give 404 when request cannot be handled" {
   run irules/advanced_irule.tcl advanced
 }
 
-stats
+stats

test/test_on.tcl

@@ -15,4 +15,4 @@ assertNumberEquals 4 [add 2 2]
 assertNumberEquals 5 [add 2 3]
 assertNumberEquals 7 [add {2 3 2}]
 assertNumberEquals 1 [substract 2 1]
-assertNumberEquals 3 [add [split "item 1.item 2.item 3" "."]]
+assertNumberEquals 3 [add [split "item 1.item 2.item 3" "."]]

test/test_simple_irule_bar.tcl

@@ -12,4 +12,4 @@ on HTTP::uri return "/bar"
 
 endstate pool bar
 
-run irules/simple_irule.tcl simple
+run irules/simple_irule.tcl simple

test/test_simple_irule_foo.tcl

@@ -12,4 +12,4 @@ on HTTP::uri return "/foo/admin"
 
 endstate pool foo
 
-run irules/simple_irule.tcl simple
+run irules/simple_irule.tcl simple

test/test_simple_irule_http_response.tcl

@@ -9,4 +9,4 @@ log::lvSuppressLE info 0
 
 event HTTP_RESPONSE
 
-run irules/simple_irule.tcl simple
+run irules/simple_irule.tcl simple

test/test_simple_irule_http_response_it.tcl

@@ -15,4 +15,4 @@ it "should modify response" {
   run irules/simple_irule.tcl simple
 }
 
-stats
+stats

test/test_simple_irule_it.tcl

@@ -24,4 +24,4 @@ it "should handle request using pool foo" {
   run irules/simple_irule.tcl simple
 }
 
-stats
+stats

verification/README.md

@@ -1 +1 @@
-Folder contains script that can be used to verify your patched jtcl installation
+Folder contains script that can be used to verify your patched jtcl installation