case 0.4 → 0.5

data/Rakefile

@@ -4,7 +4,7 @@ require 'rake/rdoctask'
 require 'rake/gempackagetask'
 require 'rake/clean'
 
-GEM_VERSION = "0.4"
+GEM_VERSION = "0.5"
 
 Rake::RDocTask.new do |task|
   task.rdoc_files.add [ 'lib/**/*.rb' ]
@@ -22,6 +22,7 @@ end
 
 gemspec = Gem::Specification.new do |gemspec|
   gemspec.name = "case"
+  gemspec.rubyforge_project = "concurrent"
   gemspec.version = GEM_VERSION
   gemspec.author = "MenTaLguY <mental@rydia.net>"
   gemspec.summary = "Pattern matching for Ruby"

data/lib/case.rb

@@ -7,7 +7,7 @@
 
 module Case
 
-module Impl
+module Impl #:nodoc: all
   module Struct
     def ===(obj)
       return false unless self.class === obj
@@ -39,6 +39,20 @@ module Impl
   end
 end
 
+class Not
+  class << self
+    alias_method :[], :new
+  end
+
+  def initialize(pattern)
+    @pattern = pattern
+  end
+
+  def ===(obj)
+    !( @pattern === obj )
+  end
+end
+
 class Any < Impl::Operator
   def self.===(obj) ; true ; end
 
@@ -75,6 +89,15 @@ def self.guard(&predicate)
   Guard.new &predicate
 end
 
+Cmp = Object.new
+for op in %w(< > <= >=)
+  eval <<-EOS
+    def Cmp.#{op}(other)
+      Guard.new { |value| value #{op} other }
+    end
+  EOS
+end
+
 # Shorthand for Case::Array.[]
 def self.[](*args)
   Array[*args]

data/test/test_case.rb

@@ -10,5 +10,30 @@ class CaseTest < Test::Unit::TestCase
       assert !( c[1, 2, 3] === c[1, 2, Object] )
     end
   end
+
+  def test_array
+    [ ::Array, Case::Array ].each do |c|
+      assert c[1, 2, Object] === c[1, 2, 3]
+      assert !( c[1, 2, 3] === c[1, 2, Object] )
+    end
+  end
+
+  def test_cmp
+    assert (Case::Cmp > 0) === 1
+    assert !((Case::Cmp > 0) === 0)
+    assert (Case::Cmp < 0) === -1
+    assert !((Case::Cmp < 0) === 0)
+    assert (Case::Cmp <= 3) === 3
+    assert (Case::Cmp <= 3) === 2
+    assert !((Case::Cmp <= 3) === 4)
+    assert (Case::Cmp >= 3) === 3
+    assert (Case::Cmp >= 3) === 4
+    assert !((Case::Cmp >= 3) === 2)
+  end
+
+  def test_not
+    assert Case::Not['a'] === 'b'
+    assert !(Case::Not['a'] === 'a')
+  end
 end
 

metadata

@@ -1,49 +1,57 @@
 --- !ruby/object:Gem::Specification 
-rubygems_version: 0.8.11
-specification_version: 1
 name: case
 version: !ruby/object:Gem::Version 
-  version: "0.4"
-date: 2008-01-22 00:00:00 -05:00
-summary: Pattern matching for Ruby
-require_paths: 
-- lib
-email: 
-homepage: 
-rubyforge_project: 
-description: 
-autorequire: 
-default_executable: 
-bindir: bin
-has_rdoc: true
-required_ruby_version: !ruby/object:Gem::Version::Requirement 
-  requirements: 
-  - - ">"
-    - !ruby/object:Gem::Version 
-      version: 0.0.0
-  version: 
+  version: "0.5"
 platform: ruby
-signing_key: 
-cert_chain: 
 authors: 
 - MenTaLguY <mental@rydia.net>
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2008-08-13 00:00:00 -04:00
+default_executable: 
+dependencies: []
+
+description: 
+email: 
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
 files: 
 - Rakefile
-- test/test_all.rb
 - test/test_case.rb
+- test/test_all.rb
 - lib/case.rb
 - lib/case/core.rb
-test_files: 
-- test/test_all.rb
+has_rdoc: true
+homepage: 
+post_install_message: 
 rdoc_options: []
 
-extra_rdoc_files: []
-
-executables: []
-
-extensions: []
-
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
 requirements: []
 
-dependencies: []
-
+rubyforge_project: concurrent
+rubygems_version: 1.1.1
+signing_key: 
+specification_version: 2
+summary: Pattern matching for Ruby
+test_files: 
+- test/test_all.rb