hyperactive 0.1.0

data/tests/record_test.rb

@@ -0,0 +1,158 @@
+
+require File.join(File.dirname(__FILE__), 'test_helper')
+
+class MyRecord < Hyperactive::Record
+  attr_accessor :bajs
+
+  def self.save_hook(instance, &block)
+    $BEFORE_SAVE += 1
+    yield
+    $AFTER_SAVE += 1
+  end
+  save_hooks << self.method(:save_hook)
+
+  def self.create_hook(instance, &block) 
+    $BEFORE_CREATE += 1
+    yield
+    $AFTER_CREATE += 1
+  end
+  create_hooks << self.method(:create_hook)
+
+  def self.destroy_hook(instance, &block)
+    $BEFORE_DESTROY += 1
+    yield
+    $AFTER_DESTROY += 1
+  end
+  destroy_hooks << self.method(:destroy_hook)
+end
+
+class RecordTest < Test::Unit::TestCase
+
+  def setup
+    @c = TestChest.new(:persistence_provider => Archipelago::Hashish::BerkeleyHashishProvider.new(Pathname.new(__FILE__).parent.join("chest.db")))
+    @c.publish!
+    @c2 = TestChest.new(:persistence_provider => Archipelago::Hashish::BerkeleyHashishProvider.new(Pathname.new(__FILE__).parent.join("chest2.db")))
+    @c2.publish!
+    @tm = TestManager.new(:persistence_provider => Archipelago::Hashish::BerkeleyHashishProvider.new(Pathname.new(__FILE__).parent.join("tranny1.db")))
+    @tm.publish!
+    Hyperactive::CAPTAIN.setup(:chest_description => {:class => 'TestChest'},
+                               :tranny_description => {:class => 'TestManager'})
+    Hyperactive::CAPTAIN.update_services!
+    assert_within(10) do
+      Hyperactive::CAPTAIN.chests.keys.sort == [@c.service_id, @c2.service_id].sort
+    end
+    assert_within(10) do
+      Hyperactive::CAPTAIN.trannies.keys == [@tm.service_id]
+    end
+    $BEFORE_SAVE = 0
+    $AFTER_SAVE = 0
+    $BEFORE_DESTROY = 0
+    $AFTER_DESTROY = 0
+    $BEFORE_CREATE = 0
+    $AFTER_CREATE = 0
+  end
+
+  def teardown
+    @c.stop!
+    @c.persistence_provider.unlink
+    @c2.stop!
+    @c2.persistence_provider.unlink
+    @tm.stop!
+    @tm.persistence_provider.unlink
+    Archipelago::Disco::MC.clear!
+    Hyperactive::CAPTAIN.update_services!
+    assert_within(10) do
+      Hyperactive::CAPTAIN.chests.empty?
+    end
+    assert_within(10) do
+      Hyperactive::CAPTAIN.trannies.empty?
+    end
+  end
+
+  def test_index_find
+    MyRecord.class_eval do
+      index_by :bajs
+    end
+    r1 = MyRecord.get_instance
+    r1.bajs = "brunt"
+    r2 = MyRecord.get_instance
+    r2.bajs = "brunt"
+    r3 = MyRecord.get_instance
+    r3.bajs = "gult"
+    r4 = MyRecord.get_instance
+    r4.bajs = "beige"
+
+    assert_equal(Set.new([r2.record_id,r1.record_id]), Set.new(MyRecord.find_by_bajs("brunt").collect(Proc.new do |k,v|
+                                                                                                        v.record_id
+                                                                                                      end)))
+    assert_equal([r3.record_id], MyRecord.find_by_bajs("gult").collect(Proc.new do |k,v|
+                                                               v.record_id
+                                                             end))
+    
+    r1.destroy
+
+    assert_equal([r2.record_id], MyRecord.find_by_bajs("brunt").collect(Proc.new do |k,v|
+                                                                          v.record_id
+                                                                        end))
+    
+  end
+
+  def test_select_reject
+    MyRecord.class_eval do
+      select(:brunt, Proc.new do |r|
+               r.bajs == "brunt"
+             end)
+      reject(:not_brunt, Proc.new do |r|
+               r.bajs == "brunt"
+             end)
+    end
+    r1 = MyRecord.get_instance
+    r1.bajs = "brunt"
+    r2 = MyRecord.get_instance
+    r2.bajs = "brunt"
+    r3 = MyRecord.get_instance
+    r3.bajs = "gult"
+    r4 = MyRecord.get_instance
+    r4.bajs = "beige"
+
+    assert_equal(Set.new([r2.record_id,r1.record_id]), Set.new(MyRecord.brunt.collect(Proc.new do |k,v|
+                                                                                        v.record_id
+                                                                                      end)))
+    assert_equal(Set.new([r3.record_id,r4.record_id]), Set.new(MyRecord.not_brunt.collect(Proc.new do |k,v|
+                                                                                            v.record_id
+                                                                                          end)))
+    
+    r1.destroy
+    r2.destroy
+    r3.destroy
+    r4.destroy
+
+    assert_equal(Set.new, Set.new(MyRecord.brunt.collect(Proc.new do |k,v|
+                                                           v.record_id
+                                                         end)))
+    assert_equal(Set.new, Set.new(MyRecord.not_brunt.collect(Proc.new do |k,v|
+                                                               v.record_id
+                                                             end)))
+  end
+  
+  def test_create_update_destroy
+    r = MyRecord.get_instance
+    assert(Archipelago::Treasure::Dubloon === r)
+    assert_equal(1, $BEFORE_SAVE)
+    assert_equal(1, $AFTER_SAVE)
+    assert_equal(1, $BEFORE_CREATE)
+    assert_equal(1, $AFTER_CREATE)
+    r.bajs = "brunt"
+    assert_equal(2, $BEFORE_SAVE)
+    assert_equal(2, $AFTER_SAVE)
+    assert_equal("brunt", r.bajs)
+    assert_equal("brunt", Hyperactive::CAPTAIN[r.record_id].bajs)
+    i = r.record_id
+    assert_equal(r, Hyperactive::CAPTAIN[i])
+    r.destroy
+    assert_equal(1, $BEFORE_DESTROY)
+    assert_equal(1, $AFTER_DESTROY)
+    assert_equal(nil, Hyperactive::CAPTAIN[i])
+  end
+
+end

data/tests/test_helper.rb

@@ -0,0 +1,66 @@
+
+home = File.expand_path(File.dirname(__FILE__))
+$: << File.join(home, "..", "lib")
+
+require 'hyperactive'
+require 'pp'
+require 'test/unit'
+require 'benchmark'
+require 'drb'
+require 'archipelago'
+require 'socket'
+require 'ipaddr'
+require 'thread'
+
+DRb.start_service
+
+class TestTransaction
+  def join(o)
+  end
+  def state
+    :active
+  end
+end
+
+class TestManager < Archipelago::Tranny::Manager
+  attr_reader :persistence_provider
+  def log_error(e)
+    puts e
+    pp e.backtrace
+  end
+end
+
+class TestJockey < Archipelago::Disco::Jockey
+  attr_reader :remote_services, :local_services
+end
+
+class TestChest < Archipelago::Treasure::Chest
+  attr_reader :persistence_provider
+end
+
+def bm(label = "", options = {})
+  n = options[:n] || 1000
+  width = options[:width] || 50
+  Benchmark.benchmark(" " * width + Benchmark::Tms::CAPTION, width, Benchmark::Tms::FMTSTR, "ms/call") do |b|
+    times = b.report("#{n}x#{label}") do
+      n.times do
+        yield
+      end
+    end
+    [times * 1000 / n.to_f]
+  end
+end
+
+class Test::Unit::TestCase
+
+  def assert_within(timeout, &block)
+    t = Time.new
+    rval = yield
+    while !rval && t > Time.new - timeout
+      rval = yield
+      sleep(0.05)
+    end
+    assert(rval)
+  end
+
+end

data/tests/tree_benchmark.rb

@@ -0,0 +1,66 @@
+
+require File.join(File.dirname(__FILE__), 'test_helper')
+
+class TreeBenchmark < Test::Unit::TestCase
+
+  def setup
+    @c = TestChest.new(:persistence_provider => Archipelago::Hashish::BerkeleyHashishProvider.new(Pathname.new(__FILE__).parent.join("chest.db")))
+    @c.publish!
+    @c2 = TestChest.new(:persistence_provider => Archipelago::Hashish::BerkeleyHashishProvider.new(Pathname.new(__FILE__).parent.join("chest2.db")))
+    @c2.publish!
+    @tm = TestManager.new(:persistence_provider => Archipelago::Hashish::BerkeleyHashishProvider.new(Pathname.new(__FILE__).parent.join("tranny1.db")))
+    @tm.publish!
+    Hyperactive::CAPTAIN.setup(:chest_description => {:class => 'TestChest'},
+                               :tranny_description => {:class => 'TestManager'})
+    assert_within(20) do
+      Set.new(Hyperactive::CAPTAIN.chests.keys) == Set.new([@c.service_id, @c2.service_id])
+    end
+    assert_within(20) do
+      Hyperactive::CAPTAIN.trannies.keys == [@tm.service_id]
+    end
+  end
+
+  def teardown
+    @c.stop!
+    @c.persistence_provider.unlink
+    @c2.stop!
+    @c2.persistence_provider.unlink
+    @tm.stop!
+    @tm.persistence_provider.unlink
+  end
+  
+  def test_set_get
+    h = Hyperactive::Tree.get_instance
+    r = Hyperactive::Record.get_instance
+    hash_test("Tree", h, r, 100)
+  end
+
+  def test_regular_hash_set_get
+    Hyperactive::CAPTAIN["h"] = {}
+    h = Hyperactive::CAPTAIN["h"]
+    r = Hyperactive::Record.get_instance
+    hash_test("Hash", h, r, 100)
+  end
+
+  private
+  
+  def hash_test(label, h, r, c)
+    bm("#{label}#set/get/delete", :n => c * 1) do
+      f = rand(1 << 32)
+      h[f] = r
+      x = h[f]
+      h.delete(f)
+    end    
+    bm("#{label}#set", :n => c * 10) do
+      f = rand(1 << 32)
+      h[f] = r
+    end
+    bm("#{label}#set/get/delete (big)", :n => c * 1) do
+      f = rand(1 << 32)
+      h[f] = r
+      x = h[f]
+      h.delete(f)
+    end
+  end
+
+end

data/tests/tree_test.rb

@@ -0,0 +1,75 @@
+
+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
+    @c = TestChest.new(:persistence_provider => Archipelago::Hashish::BerkeleyHashishProvider.new(Pathname.new(__FILE__).parent.join("chest.db")))
+    @c.publish!
+    @c2 = TestChest.new(:persistence_provider => Archipelago::Hashish::BerkeleyHashishProvider.new(Pathname.new(__FILE__).parent.join("chest2.db")))
+    @c2.publish!
+    @tm = TestManager.new(:persistence_provider => Archipelago::Hashish::BerkeleyHashishProvider.new(Pathname.new(__FILE__).parent.join("tranny1.db")))
+    @tm.publish!
+    Hyperactive::CAPTAIN.setup(:chest_description => {:class => 'TestChest'},
+                               :tranny_description => {:class => 'TestManager'})
+    Hyperactive::CAPTAIN.update_services!
+    assert_within(10) do
+      Hyperactive::CAPTAIN.chests.keys.sort == [@c.service_id, @c2.service_id].sort
+    end
+    assert_within(10) do
+      Hyperactive::CAPTAIN.trannies.keys == [@tm.service_id]
+    end
+  end
+
+  def teardown
+    @c.stop!
+    @c.persistence_provider.unlink
+    @c2.stop!
+    @c2.persistence_provider.unlink
+    @tm.stop!
+    @tm.persistence_provider.unlink
+    Archipelago::Disco::MC.clear!
+    Hyperactive::CAPTAIN.update_services!
+    assert_within(10) do
+      Hyperactive::CAPTAIN.chests.empty?
+    end
+    assert_within(10) do
+      Hyperactive::CAPTAIN.trannies.empty?
+    end
+  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
+    h2 = {}
+    10.times do
+      r = Hyperactive::Record.get_instance
+      h[r.record_id] = r
+      h2[r.record_id] = r
+    end
+
+    h2.each do |k,v|
+      assert_equal(v, h[k])
+      assert_equal(v, Hyperactive::CAPTAIN[h.record_id][k])
+    end
+  end
+
+end

metadata

@@ -0,0 +1,65 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.11
+specification_version: 1
+name: hyperactive
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+date: 2006-11-27 00:00:00 +01:00
+summary: A base class for persistent objects that uses archipelago for persistence. Useful for Ruby on Rails models for example.
+require_paths: 
+- lib
+email: zond at troja dot ath dot cx
+homepage: 
+rubyforge_project: 
+description: 
+autorequire: hyperactive
+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: 
+platform: ruby
+signing_key: 
+cert_chain: 
+authors: 
+- Martin Kihlgren
+files: 
+- lib/hyperactive.rb
+- lib/hyperactive/hooker.rb
+- lib/hyperactive/record.rb
+- lib/hyperactive/tree.rb
+- tests/record_test.rb
+- tests/test_helper.rb
+- tests/tree_benchmark.rb
+- tests/tree_test.rb
+- GPL-2
+- README
+test_files: 
+- tests/record_test.rb
+- tests/tree_test.rb
+- tests/test_helper.rb
+rdoc_options: 
+- --line-numbers
+- --inline-source
+extra_rdoc_files: 
+- README
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: archipelago
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 0.2.0
+    version: