Merge branch 'classes_fix'

README.md

@@ -429,7 +429,7 @@ TesTcl has partial support for the `class` command. For example, we could test t
 ```tcl
 rule classes {
   when HTTP_REQUEST {
-    if { [class match [IP::remote_addr] equals blacklist] } {
+    if { [class match [IP::remote_addr] eq blacklist] } {
       drop
     } else {
       pool main-pool

examples/example_irule_classes.tcl

@@ -0,0 +1,21 @@
+package require -exact testcl 1.0.8
+namespace import ::testcl::*
+
+before {
+  event HTTP_REQUEST
+  class configure blacklist {
+    "blacklisted" "192.168.6.66"
+  }
+}
+
+it "should drop blacklisted addresses" {
+  on IP::remote_addr return "192.168.6.66"
+  endstate drop
+  run irules/classes_irule.tcl classes
+}
+
+it "should drop blacklisted addresses" {
+  on IP::remote_addr return "192.168.0.1"
+  endstate pool main-pool
+  run irules/classes_irule.tcl classes
+}

irules/classes_irule.tcl

@@ -0,0 +1,11 @@
+rule classes {
+
+  when HTTP_REQUEST {
+    if { [class match [IP::remote_addr] eq blacklist] } {
+      drop
+    } else {
+      pool main-pool
+    }
+  }
+
+}

pkgIndex.tcl

@@ -59,7 +59,7 @@ if { $::tcl_platform(platform) eq "java" } {
   puts stderr "WARNING"
 }
 
-set files { assert.tcl it.tcl on.tcl onirule.tcl irulehttp.tcl iruleuri.tcl global.tcl ip.tcl }
+set files { assert.tcl it.tcl on.tcl onirule.tcl irulehttp.tcl iruleuri.tcl global.tcl ip.tcl classes.tcl }
 set sources {}
 foreach {f} $files {
     lappend sources [list source [file join $dir src $f]]

src/classes.tcl

@@ -112,7 +112,7 @@ proc ::testcl::class {cmd args} {
     lookup {
       set item [lindex $args 0]
       set classname [lindex $args 1]
-      return [::testcl::class match -value $item equals $classname]
+      return [::testcl::class match -value $item eq $classname]
     }
     element {
       set index [lindex $args 0]

src/disabled_commands_jtcl.tcl

@@ -78,7 +78,7 @@ saferename socket ::tcl::socket
 saferename tell ::tcl::tell
 saferename time ::tcl::time
 saferename update ::tcl::update
-saferename upvar ::tcl::upvar
+#saferename upvar ::tcl::upvar
 saferename vwait ::tcl::vwait
 
 rename saferename {}