archipelago 0.1.0

data/tests/treasure_test.rb

@@ -0,0 +1,257 @@
+
+require File.join(File.dirname(__FILE__), 'test_helper')
+require 'treasure'
+require 'drb'
+require 'tranny'
+require 'hashish'
+
+class TreasureTest < Test::Unit::TestCase
+
+  def setup
+    DRb.start_service
+    @c = TestChest.new(:persistence_provider => Archipelago::Hashish::BerkeleyHashishProvider.new(Pathname.new(__FILE__).parent.join("chest.db")))
+    @c2 = TestChest.new(:persistence_provider => Archipelago::Hashish::BerkeleyHashishProvider.new(Pathname.new(__FILE__).parent.join("chest2.db")))
+    @tm = TestManager.new
+  end
+
+  def teardown
+    @c.persistence_provider.unlink
+    @c2.persistence_provider.unlink
+    @tm.persistence_provider.unlink
+    DRb.stop_service
+  end
+
+  def test_store_load_update
+    s = "hehu"
+    @c["oj"] = "hehu"
+    oj1 = @c["oj"]
+    assert_equal(oj1, @c["oj"])
+    assert_equal("hehu", oj1)
+
+    s2 = @c["oj"]
+    assert_equal(s, s2)
+    assert_equal(s.upcase, s2.upcase)
+    assert(s.object_id != s2.object_id)
+
+    s2 << "kissekotte"
+    s << "kissekotte"
+    assert_equal(s, s2)
+
+    s3 = @c["oj"]
+    assert_equal(s2, s3)
+    assert_equal(s2.object_id, s3.object_id)
+  end
+
+  def test_multi_transaction
+    @c["oj"] = "hehu"
+
+    t = @tm.begin
+    t2 = @tm.begin
+
+    @c["oj", t] = "kiss"
+    @c["oj", t].upcase!
+    @c["oj", t2].upcase!
+
+    assert_equal(:commited, t.commit!)
+    assert_equal(:aborted, t2.commit!)
+    assert_equal("KISS", @c["oj"])
+  end
+
+  def test_multi_chest
+    @c["oj"] = "hehu"
+    @c2["bla"] = "hirr"
+
+    t = @tm.begin
+
+    @c["oj", t].upcase!
+    @c2["bla", t].upcase!
+
+    t.abort!
+
+    assert_equal("hehu", @c["oj"])
+    assert_equal("hirr", @c2["bla"])
+
+    t = @tm.begin
+
+    @c["oj", t].upcase!
+    @c2["bla", t].upcase!
+
+    assert_equal(:commited, t.commit!)
+    assert_equal("HEHU", @c["oj"])
+    assert_equal("HIRR", @c2["bla"])
+
+    t = @tm.begin
+
+    @c["oj", t] = "bark"
+    @c2["bla", t] = "boll"
+    @c2["bla"] = "burk"
+
+    assert_equal(:aborted, t.commit!)
+    assert_equal("HEHU", @c["oj"])
+    assert_equal("burk", @c2["bla"])
+
+    t = @tm.begin
+    t2 = @tm.begin
+
+    s = @c["oj", t]
+    s2 = @c["oj", t2]
+    s3 = @c2["bla", t]
+
+    s.swapcase!
+    s2.swapcase!
+    s3.swapcase!
+
+    assert_equal(:commited, t2.commit!)
+    assert_equal(:aborted, t.commit!)
+    assert_equal("hehu", @c["oj"])
+    assert_equal("burk", @c2["bla"])
+  end
+
+  def test_chained_linking
+    @c["oj"] = "hehu"
+    s = @c["oj"]
+    @c2["oj"] = s
+    s2 = @c2["oj"]
+    s2.swapcase!
+    assert_equal("HEHU", @c["oj"])
+    assert_equal("HEHU", s2)
+    assert_equal("HEHU", @c2["oj"])
+  end
+
+  def test_transaction_store_load_update_commit
+    @c["oj"] = "hehu"
+    oj = @c["oj"]
+
+    t = @tm.begin
+
+    @c["oj", t] = "hirr"
+    oj2 = @c["oj", t]
+
+    assert(oj != oj2)
+    assert_equal("hehu", oj)
+    assert_equal("hirr", oj2)
+    
+    assert_equal(:commited, t.commit!)
+    assert_raise(Archipelago::Treasure::UnknownTransactionException) do
+      oj2.size
+    end
+    assert_raise(Archipelago::Treasure::IllegalJoinException) do
+      @c["oj", t]
+    end
+
+    assert_equal("hirr", oj)
+    assert_equal("hirr", @c["oj"])
+
+    t = @tm.begin
+    @c["oj", t] = "blar"
+    @c["oj"] = "kuk"
+    assert_equal(:aborted, t.commit!)
+    assert_equal("kuk", @c["oj"])
+    
+    t = @tm.begin
+    @c["oj", t] = "bungk"
+    @c.delete("oj")
+    assert_equal(:aborted, t.commit!)
+    assert_equal(nil, @c["oj"])
+
+    t = @tm.begin
+    @c["oj"] = "baba"
+    @c.delete("oj", t)
+    assert_equal(:commited, t.commit!)
+    assert_equal(nil, @c["oj"])
+
+    t = @tm.begin
+    @c["oj"] = "bagi"
+    @c.delete("oj", t)
+    @c["oj"] = "ooqoq"
+    assert_equal(:aborted, t.commit!)
+    assert_equal("ooqoq", @c["oj"])
+
+    @c.delete("oj")
+    t = @tm.begin
+    @c["oj", t] = "ghgh"
+    assert_equal(nil, @c["oj"])
+    assert_equal(:commited, t.commit!)
+    assert_equal("ghgh", @c["oj"])
+  end
+  
+  def test_transaction_store_load_update_abort
+    @c["oj"] = "hehu"
+    oj1 = @c["oj"]
+
+    assert(@c.active_transactions.empty?)
+
+    t = @tm.begin
+    oj2 = @c["oj", t]
+    assert_equal(oj1, oj2)
+
+    @c["oj", t] = "hehu2"
+
+    assert_equal([t], @c.active_transactions)
+
+    assert_equal("hehu2", @c["oj", t])
+    assert_equal("hehu2", oj2)
+    assert("hehu2" != @c["oj"])
+    assert("hehu2" != oj1)
+    assert(@c["oj"] != @c["oj", t])
+    assert(oj1 != oj2)
+    assert_equal(@c["oj", t], @c["oj", t])
+    assert_equal(oj2, @c["oj", t])
+
+    t2 = @tm.begin
+    assert_equal(@c["oj"], @c["oj", t2])
+    oj3 = @c["oj", t2]
+    assert_equal(oj1, oj3)
+    assert(oj2 != oj3)
+    
+    @c["oj", t2] = "bar"
+    assert_equal(oj3, @c["oj", t2])
+    assert(@c["oj", t] != @c["oj", t2])
+    assert(oj2 != oj3)
+
+    assert_equal("hehu", @c["oj"])
+    assert_equal("hehu", oj1)
+
+    assert_equal(tranny_sort([t, t2]), 
+                 tranny_sort(@c.active_transactions))
+
+    oj1.replace("brumma")
+    oj2.replace("bajs")
+
+    assert_equal("brumma", @c["oj"])
+    assert_equal("bar", @c["oj", t2])
+    assert_equal("bajs", @c["oj", t])
+
+    @c.delete("oj")
+    @c.delete("oj", t)
+
+    assert_equal("bar", @c["oj", t2])
+    assert_equal(nil, @c["oj", t])
+    
+    t.abort!
+
+    assert_equal([t2], @c.active_transactions)
+    assert_raise(Archipelago::Treasure::IllegalJoinException) do
+      @c["oj", t]
+    end
+    assert_raise(Archipelago::Treasure::UnknownTransactionException) do
+      "hej" == oj2
+    end
+
+    t2.abort!
+    
+    assert_raise(Archipelago::Treasure::UnknownTransactionException) do
+      oj3.size
+    end
+    assert(@c.active_transactions.empty?)
+  end
+  
+  private
+
+  def tranny_sort(a)
+    a.sort do |x,y|
+      x.transaction_id <=> y.transaction_id
+    end
+  end
+
+end

metadata

@@ -0,0 +1,69 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.11
+specification_version: 1
+name: archipelago
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+date: 2006-11-12 00:00:00 +01:00
+summary: A set of tools for distributed computing in ruby.
+require_paths: 
+- lib
+email: zond at troja dot ath dot cx
+homepage: 
+rubyforge_project: 
+description: 
+autorequire: archipelago
+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/archipelago.rb
+- lib/current.rb
+- lib/disco.rb
+- lib/hashish.rb
+- lib/pirate.rb
+- lib/tranny.rb
+- lib/treasure.rb
+- scripts/chest.rb
+- scripts/console
+- scripts/pirate.rb
+- scripts/tranny.rb
+- GPL-2
+- TODO
+- profiles/1000xChest#join!-prepare!-commit!.rb
+- profiles/1000xDubloon#[]=(t).rb
+- profiles/1000xDubloon#method_missing(t).rb
+- profiles/profile_helper.rb
+- profiles/README
+- README
+test_files: 
+- tests/current_test.rb
+- tests/disco_test.rb
+- tests/pirate_test.rb
+- tests/tranny_test.rb
+- tests/treasure_test.rb
+- tests/test_helper.rb
+rdoc_options: 
+- --line-numbers
+- --inline-source
+extra_rdoc_files: 
+- README
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: []
+