RubyGems - hprevalence - Versions diffs - 0.1.1 → 0.2.0 - Mend

hprevalence 0.1.1 → 0.2.0

Files changed (26) hide show

data/lib/hprevalence.rb +28 -181
data/lib/internal/command_logger.rb +11 -34
data/lib/internal/marshallers/default.rb +17 -0
data/lib/internal/marshallers/soap_marshaller.rb +26 -0
data/lib/internal/marshallers/yaml_marshaller.rb +22 -0
data/lib/internal/serializer.rb +38 -52
data/lib/internal/store_manager.rb +9 -24
data/rakefile.rb +1 -1
data/samples/simple/main.rb +10 -0
data/{test → samples/simple}/task_model.rb +0 -12
data/samples/transparent/task_model.rb +36 -0
data/test/command_logger_test.rb +2 -6
data/test/default_model_serializer_test.rb +9 -8
data/test/marshaller_test.rb +68 -0
data/test/models/task_model.rb +91 -0
data/test/simple_engine_test.rb +22 -5
data/test/simple_engine_with_soap_test.rb +94 -0
data/test/simple_engine_with_yaml_test.rb +94 -0
metadata +12 -10
data/lib/transparent.rb +0 -245
data/test/circular_reference_test.rb +0 -96
data/test/dvd_store_model.rb +0 -97
data/test/natural_object_model_test.rb +0 -143
data/test/project_model.rb +0 -99
data/test/restoring_test.rb +0 -54
data/test/transparent_module_test.rb +0 -115

data/test/circular_reference_test.rb DELETED

@@ -1,96 +0,0 @@
-$:.unshift(File.dirname(__FILE__) + "/../lib/")
-require 'hprevalence'
-require 'transparent'
-require 'abstract_hprevalence_testcase'
-require 'dvd_store_model'
-require 'test/unit'
-class Item
-  attr_accessor :sub_item
-  def initialize( sub )
-    @sub_item = sub
-  end
-end
-class SampleDatabase
-  include HPrevalence::Transparent::CustomBehavior
-  attr_reader :list
-  attr_proxy_attribute :list
-  attr_proxy_method :create_item
-  def initialize()
-    @list = []
-  end
-  def create_item( sub = nil )
-    Item.new( sub )
-  end
-end
-class CircularReferenceTest < Test::Unit::TestCase
-  include AbstractHPrevalenceTestHelper
-  def setup
-    reset_dir 'store/circular_test'
-    ensure_dir
-    load_engine
-  end
-  def teardown
-    @engine.close
-  end
-  def load_engine
-    teardown unless @engine.nil?
-    @engine = HPrevalence::EngineBuilder.build_transparent( @target_dir ) {
-      SampleDatabase.new()
-    }
-    assert_not_nil @engine
-    @system = @engine.system
-    assert_not_nil @system
-  end
-  def test_simple
-    item = @system.create_item()
-    @system.list << item
-    load_engine
-    assert_equal 1, @system.list.length
-  end
-  def test_circular
-    item = @system.create_item()
-    item.sub_item = item
-    @system.list << item
-    load_engine
-    assert_equal 1, @system.list.length
-    item = @system.list[0]
-    assert_equal item, item.sub_item
-  end
-  def test_circular_with_snapshot
-    item = @system.create_item()
-    item.sub_item = item
-    @system.list << item
-    @engine.take_snapshot
-    load_engine
-    assert_equal 1, @system.list.length
-    item = @system.list[0]
-    assert_equal item, item.sub_item
-  end
-end

data/test/dvd_store_model.rb DELETED

@@ -1,97 +0,0 @@
-$:.unshift(File.dirname(__FILE__) + "/../lib/")
-require 'transparent'
-class AbstractCollection
-  include Enumerable
-  include HPrevalence::Transparent::CustomBehavior
-  attr_read_only :each
-  def initialize()
-    @list = []
-  end
-  def add( item )
-    @list << item
-    item
-  end
-  def each()
-    @list.each { |item|
-      yield(item)
-    }
-  end
-  def length
-    @list.length
-  end
-end
-class DvdCollection < AbstractCollection
-  # include HPrevalence::Transparent::CustomBehavior
-  def initialize()
-    super
-  end
-end
-class DvdStore
-  include HPrevalence::Transparent::CustomBehavior
-  attr_reader :available_items
-  attr_reader :available_categories
-  attr_reader :customers
-  attr_proxy_attribute :available_items, :available_categories, :customers
-  attr_proxy_method :create_dvd
-  attr_read_only :total_customers
-  def initialize()
-    @available_items = DvdCollection.new()
-    @available_categories = []
-    @customers = []
-  end
-  def total_customers
-    @customers.length
-  end
-  def create_dvd( dvd )
-    dvd
-  end
-end
-class Category
-  attr_reader :name
-  def initialize( name )
-    @name = name
-  end
-end
-class Dvd
-  attr_accessor :name, :price, :categories
-  def initialize( name, price, *categories )
-    @name, @price = name, price
-    @categories = *categories.dup()
-  end
-end
-class Customer
-  attr_accessor :name, :items_bought, :prefered_categories
-  def initialize( name )
-    @name = name
-    @items_bought = []
-    @prefered_categories = []
-  end
-end

data/test/natural_object_model_test.rb DELETED

@@ -1,143 +0,0 @@
-$:.unshift(File.dirname(__FILE__) + "/../lib/")
-require 'hprevalence'
-require 'transparent'
-require 'abstract_hprevalence_testcase'
-require 'dvd_store_model'
-require 'test/unit'
-class NaturalObjectModelTest < Test::Unit::TestCase
-  include AbstractHPrevalenceTestHelper
-  def setup
-    reset_dir 'store/natural_test'
-    ensure_dir
-    load_engine
-  end
-  def teardown
-    @engine.close
-  end
-  def load_engine
-    teardown unless @engine.nil?
-    @engine = HPrevalence::EngineBuilder.build_transparent( @target_dir ) {
-      DvdStore.new()
-    }
-    assert_not_nil @engine
-    @system = @engine.system
-    assert_not_nil @system
-  end
-  def test_depth_1
-    assert_equal 0, @system.total_customers
-    fiction = Category.new('Fiction')
-    comedy = Category.new('Comedy')
-    @system.available_categories << fiction
-    @system.available_categories << comedy
-    dvd1 = @system.create_dvd( Dvd.new( 'Fight Club', 22.1, fiction ) )
-    dvd2 = @system.create_dvd( Dvd.new( 'Monty Python and the Holy Grail', 15, comedy ) )
-    @system.available_items.add( dvd1 )
-    @system.available_items.add( dvd2 )
-    assert_equal 2, @system.available_items.length
-    assert_equal 2, @system.available_categories.length
-    load_engine
-    assert_equal 2, @system.available_items.length
-    assert_equal 2, @system.available_categories.length
-  end
-  def test_read_only_each
-    assert_equal 0, @system.total_customers
-    fiction = Category.new('Fiction')
-    comedy = Category.new('Comedy')
-    @system.available_categories << fiction
-    @system.available_categories << comedy
-    dvd1 = @system.create_dvd( Dvd.new( 'Fight Club', 22.1, fiction ) )
-    dvd2 = @system.create_dvd( Dvd.new( 'Monty Python and the Holy Grail', 15, comedy ) )
-    @system.available_items.add( dvd1 )
-    @system.available_items.add( dvd2 )
-    @system.available_items.each() do |item|
-    end
-  end
-  def test_more_engine_loads
-    load_engine
-    assert_equal 0, @system.total_customers
-    fiction = Category.new('Fiction')
-    comedy = Category.new('Comedy')
-    @system.available_categories << fiction
-    @system.available_categories << comedy
-    assert_equal 0, @system.available_items.length
-    assert_equal 2, @system.available_categories.length
-    @system.available_items.add( Dvd.new( 'Fight Club', 22.1, fiction ) )
-    @system.available_items.add( Dvd.new( 'Monty Python and the Holy Grail', 15, comedy ) )
-    assert_equal 2, @system.available_items.length
-    assert_equal 2, @system.available_categories.length
-    load_engine
-    assert_equal 2, @system.available_items.length
-    assert_equal 2, @system.available_categories.length
-    horror = Category.new('Horror')
-    @system.available_categories << horror
-    @system.available_items.add( Dvd.new( 'Pet Sematary - 1989', 22.6, horror ) )
-    @system.available_items.add( Dvd.new( 'Fawlty Towers - 12 episodes', 40.6, comedy ) )
-    assert_equal 4, @system.available_items.length
-    assert_equal 3, @system.available_categories.length
-    load_engine
-    assert_equal 4, @system.available_items.length
-    assert_equal 3, @system.available_categories.length
-  end
-  def test_depth_with_snapshot
-    assert_equal 0, @system.total_customers
-    fiction = Category.new('Fiction')
-    comedy = Category.new('Comedy')
-    @system.available_categories << fiction
-    @system.available_categories << comedy
-    @system.available_items.add( Dvd.new( 'Fight Club', 22.1, fiction ) )
-    @system.available_items.add( Dvd.new( 'Monty Python and the Holy Grail', 15, comedy ) )
-    assert_equal 2, @system.available_items.length
-    assert_equal 2, @system.available_categories.length
-    @engine.take_snapshot
-    load_engine
-    assert_equal 2, @system.available_items.length
-    assert_equal 2, @system.available_categories.length
-  end
-end

data/test/project_model.rb DELETED

@@ -1,99 +0,0 @@
-$:.unshift(File.dirname(__FILE__) + "/../lib/")
-require 'hprevalence'
-require 'transparent'
-class ModelBase
-  include HPrevalence::Transparent::CustomBehavior
-  attr_read_only :ident
-  attr_reader :ident
-  attr_accessor :name
-  def initialize(name, id_val = name)
-    @ident, @name = id_val, name
-  end
-end
-class ModelArrayBase
-  include Enumerable
-  include HPrevalence::Transparent::CustomBehavior
-  attr_read_only :[], :each, :length
-  def initialize()
-    @list = []
-  end
-  def add( item )
-    @list << item
-  end
-  def each
-    @list.each { |item| yield(item) }
-  end
-  def [](index)
-    if (index.kind_of?(Integer))
-      return @list[index]
-    elsif (index.kind_of?(String))
-      return find { |item| item.ident == index }
-    end
-  end
-  def length
-    @list.length
-  end
-end
-class User < ModelBase
-  attr_reader :password
-  def initialize(name, password)
-    super(name)
-    @password = password
-  end
-end
-class Project < ModelBase
-  attr_reader :owner
-  def initialize(name, idVal, owner)
-    super(name, idVal)
-    @owner = owner
-  end
-end
-class UserCollection < ModelArrayBase
-  def initialize()
-    super
-  end
-end
-class ProjectCollection < ModelArrayBase
-  def initialize()
-    super
-  end
-end
-class ApplicationDatabase
-  include HPrevalence::Transparent::CustomBehavior
-  attr_reader :users, :projects
-  attr_proxy_attribute :users, :projects
-  attr_proxy_method :create_user, :create_project
-  def initialize
-    @users = UserCollection.new()
-    @projects = ProjectCollection.new()
-  end
-  def create_user( login, pass )
-    User.new( login, pass )
-  end
-  def create_project( name, id, user )
-    Project.new( name, id, user )
-  end
-end

data/test/restoring_test.rb DELETED

@@ -1,54 +0,0 @@
-$:.unshift(File.dirname(__FILE__) + "/../lib/")
-require 'hprevalence'
-require 'transparent'
-require 'abstract_hprevalence_testcase'
-require 'project_model'
-require 'test/unit'
-class RestoringTest < Test::Unit::TestCase
-  include AbstractHPrevalenceTestHelper
-  def setup
-    @target_dir = create_dir_name('store/fixed')
-    load_engine
-  end
-  def teardown
-    @engine.close
-  end
-  def load_engine
-    teardown unless @engine.nil?
-    @engine = HPrevalence::EngineBuilder.build_transparent( @target_dir ) {
-      ApplicationDatabase.new()
-    }
-    assert_not_nil @engine
-    @system = @engine.system
-    assert_not_nil @system
-  end
-  def test_a
-    teardown
-    reset_dir 'store/fixed'
-    setup
-    user = @system.create_user( "test", "test" )
-    @system.users.add( user ) unless @system.users.length != 0
-    project = @system.create_project( 'cas', 'Castle', user )
-    @system.projects.add( project )
-  end
-  def atest_aaa
-    assert_equal 1, @system.users.length
-    assert_equal 1, @system.projects.length
-  end
-end