From 7d0586d7eae1272c61cc370cc2ae62209d9e74aa Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Stefan=20Magnus=20Landr=C3=B8?= Date: Sun, 11 Aug 2013 22:39:28 +0200 Subject: [PATCH] Upgraded to version 1.0.1 --- README.md | 8 ++++---- examples/README.md | 2 +- examples/example_irule_advanced.tcl | 4 ++-- examples/example_irule_headers.tcl | 2 +- examples/example_irule_simple.tcl | 4 ++-- irules/README.md | 2 +- irules/simple_irule.tcl | 2 +- pkgIndex.tcl | 2 +- src/README.md | 2 +- src/assert.tcl | 4 ++-- src/disabled_commands.tcl | 2 +- src/irulehttp.tcl | 2 +- src/it.tcl | 2 +- src/on.tcl | 2 +- src/onirule.tcl | 4 ++-- test/README.md | 2 +- test/test_advanced_irule_it.tcl | 2 +- test/test_on.tcl | 2 +- test/test_simple_irule_bar.tcl | 2 +- test/test_simple_irule_foo.tcl | 2 +- test/test_simple_irule_http_response.tcl | 2 +- test/test_simple_irule_http_response_it.tcl | 2 +- test/test_simple_irule_it.tcl | 2 +- verification/README.md | 2 +- 24 files changed, 31 insertions(+), 31 deletions(-) diff --git a/README.md b/README.md index acd7e87..0d1e0b4 100644 --- a/README.md +++ b/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 diff --git a/examples/README.md b/examples/README.md index abd6a67..3e0151b 100644 --- a/examples/README.md +++ b/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) \ No newline at end of file +The examples used are identical to the ones found on [testcl.com](http://testcl.com) diff --git a/examples/example_irule_advanced.tcl b/examples/example_irule_advanced.tcl index 2c3b2d9..415d202 100644 --- a/examples/example_irule_advanced.tcl +++ b/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 \ No newline at end of file +stats diff --git a/examples/example_irule_headers.tcl b/examples/example_irule_headers.tcl index 0ccb8d0..314b990 100644 --- a/examples/example_irule_headers.tcl +++ b/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::* ## diff --git a/examples/example_irule_simple.tcl b/examples/example_irule_simple.tcl index 1bbe9d9..d9ef1e6 100644 --- a/examples/example_irule_simple.tcl +++ b/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 \ No newline at end of file +stats diff --git a/irules/README.md b/irules/README.md index c9a9c8b..c84a71a 100644 --- a/irules/README.md +++ b/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) \ No newline at end of file +The examples used are identical to the ones found on [testcl.com](http://testcl.com) diff --git a/irules/simple_irule.tcl b/irules/simple_irule.tcl index 043bec6..ba43e00 100644 --- a/irules/simple_irule.tcl +++ b/irules/simple_irule.tcl @@ -14,4 +14,4 @@ rule simple { HTTP::header insert Vary "Accept-Encoding" } -} \ No newline at end of file +} diff --git a/pkgIndex.tcl b/pkgIndex.tcl index 9fedd9f..a74c7ed 100644 --- a/pkgIndex.tcl +++ b/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] diff --git a/src/README.md b/src/README.md index 681d919..9499004 100644 --- a/src/README.md +++ b/src/README.md @@ -1 +1 @@ -This folder contains the actual source code for the TesTcl package \ No newline at end of file +This folder contains the actual source code for the TesTcl package diff --git a/src/assert.tcl b/src/assert.tcl index 5036d26..3d826f3 100644 --- a/src/assert.tcl +++ b/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'" } -} \ No newline at end of file +} diff --git a/src/disabled_commands.tcl b/src/disabled_commands.tcl index c1177b1..517f518 100644 --- a/src/disabled_commands.tcl +++ b/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 \ No newline at end of file +rename vwait ::tcl::vwait diff --git a/src/irulehttp.tcl b/src/irulehttp.tcl index 03cba48..2cf185d 100644 --- a/src/irulehttp.tcl +++ b/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 { diff --git a/src/it.tcl b/src/it.tcl index c2a0535..492a5c2 100644 --- a/src/it.tcl +++ b/src/it.tcl @@ -1,4 +1,4 @@ -package provide testcl 1.0 +package provide testcl 1.0.1 package require log namespace eval ::testcl { diff --git a/src/on.tcl b/src/on.tcl index 6290f68..f38606c 100644 --- a/src/on.tcl +++ b/src/on.tcl @@ -1,4 +1,4 @@ -package provide testcl 1.0 +package provide testcl 1.0.1 package require log namespace eval ::testcl { diff --git a/src/onirule.tcl b/src/onirule.tcl index 7de902b..e030874 100644 --- a/src/onirule.tcl +++ b/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 -} \ No newline at end of file +} diff --git a/test/README.md b/test/README.md index bdb5ee6..077dbe8 100644 --- a/test/README.md +++ b/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 \ No newline at end of file + jtcl test/test_on.tcl diff --git a/test/test_advanced_irule_it.tcl b/test/test_advanced_irule_it.tcl index 4fab486..0683e51 100644 --- a/test/test_advanced_irule_it.tcl +++ b/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 \ No newline at end of file +stats diff --git a/test/test_on.tcl b/test/test_on.tcl index fcdde71..7ecf509 100644 --- a/test/test_on.tcl +++ b/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" "."]] \ No newline at end of file +assertNumberEquals 3 [add [split "item 1.item 2.item 3" "."]] diff --git a/test/test_simple_irule_bar.tcl b/test/test_simple_irule_bar.tcl index bebf9ef..8549837 100644 --- a/test/test_simple_irule_bar.tcl +++ b/test/test_simple_irule_bar.tcl @@ -12,4 +12,4 @@ on HTTP::uri return "/bar" endstate pool bar -run irules/simple_irule.tcl simple \ No newline at end of file +run irules/simple_irule.tcl simple diff --git a/test/test_simple_irule_foo.tcl b/test/test_simple_irule_foo.tcl index d13ef48..a132eed 100644 --- a/test/test_simple_irule_foo.tcl +++ b/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 \ No newline at end of file +run irules/simple_irule.tcl simple diff --git a/test/test_simple_irule_http_response.tcl b/test/test_simple_irule_http_response.tcl index 9485709..90f1d37 100644 --- a/test/test_simple_irule_http_response.tcl +++ b/test/test_simple_irule_http_response.tcl @@ -9,4 +9,4 @@ log::lvSuppressLE info 0 event HTTP_RESPONSE -run irules/simple_irule.tcl simple \ No newline at end of file +run irules/simple_irule.tcl simple diff --git a/test/test_simple_irule_http_response_it.tcl b/test/test_simple_irule_http_response_it.tcl index fe85720..6fb889a 100644 --- a/test/test_simple_irule_http_response_it.tcl +++ b/test/test_simple_irule_http_response_it.tcl @@ -15,4 +15,4 @@ it "should modify response" { run irules/simple_irule.tcl simple } -stats \ No newline at end of file +stats diff --git a/test/test_simple_irule_it.tcl b/test/test_simple_irule_it.tcl index 42b1da9..ad67444 100644 --- a/test/test_simple_irule_it.tcl +++ b/test/test_simple_irule_it.tcl @@ -24,4 +24,4 @@ it "should handle request using pool foo" { run irules/simple_irule.tcl simple } -stats \ No newline at end of file +stats diff --git a/verification/README.md b/verification/README.md index 795081b..0a6567a 100644 --- a/verification/README.md +++ b/verification/README.md @@ -1 +1 @@ -Folder contains script that can be used to verify your patched jtcl installation \ No newline at end of file +Folder contains script that can be used to verify your patched jtcl installation