[Archipelago-submits] [48] trunk/hyperactive/tests/tree_test.rb: added select/reject tests as well

[nobody at rubyforge.org]

Revision: 48
Author:   zond
Date:     2006-11-25 19:37:01 -0500 (Sat, 25 Nov 2006)

Log Message:
-----------
added select/reject tests as well

Modified Paths:
--------------
    trunk/hyperactive/tests/tree_test.rb

Modified: trunk/hyperactive/tests/tree_test.rb
===================================================================
--- trunk/hyperactive/tests/tree_test.rb	2006-11-26 00:26:27 UTC (rev 47)
+++ trunk/hyperactive/tests/tree_test.rb	2006-11-26 00:37:01 UTC (rev 48)
@@ -1,6 +1,15 @@
 
 require File.join(File.dirname(__FILE__), 'test_helper')
 
+class RecordMatcher
+  def initialize(i)
+    @i = i
+  end
+  def call(k,v)
+    k == @i
+  end
+end
+
 class TreeTest < Test::Unit::TestCase
 
   def setup
@@ -25,6 +34,16 @@
     @c2.persistence_provider.unlink
     @tm.persistence_provider.unlink
   end
+
+  def test_select_reject
+    h = Hyperactive::Tree.get_instance
+    r1 = Hyperactive::Record.get_instance
+    r2 = Hyperactive::Record.get_instance
+    h[r1.record_id] = r1
+    h[r2.record_id] = r2
+    assert_equal(r1.record_id, h.select(RecordMatcher.new(r1.record_id)).first.first)
+    assert_equal(r1.record_id, h.reject(RecordMatcher.new(r2.record_id)).keys.first)
+  end
   
   def test_set_get
     h = Hyperactive::Tree.get_instance