hprevalence 0.1.0

data/test/natural_object_model_test.rb

@@ -0,0 +1,119 @@
+
+$:.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
+    
+    @system.available_items << Dvd.new( 'Fight Club', 22.1, fiction )
+    @system.available_items << 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
+  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 << Dvd.new( 'Fight Club', 22.1, fiction )
+    @system.available_items << 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 << Dvd.new( 'Pet Sematary - 1989', 22.6, horror )
+    @system.available_items << Dvd.new( 'Falwty 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 << Dvd.new( 'Fight Club', 22.1, fiction )
+    @system.available_items << 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/simple_engine_test.rb

@@ -0,0 +1,79 @@
+$:.unshift(File.dirname(__FILE__) + "/../lib/")
+
+require 'hprevalence'
+require 'test/unit'
+require 'abstract_hprevalence_testcase'
+require 'task_model'
+
+class SimpleEngineTest < Test::Unit::TestCase
+  include AbstractHPrevalenceTestHelper
+  
+  def setup
+    reset_dir 'store/engine_test'
+    ensure_dir
+    load_engine
+  end
+  
+  def teardown
+    @engine.close
+  end
+  
+  def load_engine
+    teardown unless @engine.nil?
+  
+    @engine = HPrevalence::EngineBuilder.build( @target_dir ) { 
+      TaskDatabase.new() 
+    }
+    
+    assert_not_nil @engine
+    @system = @engine.system
+    assert_not_nil @system
+  end
+  
+  def test_add_task
+    task = Task.new( 'put the cat out', 'Before go sleep, put the cat out otherwise he will meow during the night' )
+    @engine.execute_command( AddTaskCommand.new( task ) )
+    
+    assert_equal 1, @system.tasks.length
+    
+    load_engine
+    
+    assert_equal 1, @system.tasks.length
+    assert_equal 'put the cat out', @system.tasks[0].name
+    assert_equal 'Before go sleep, put the cat out otherwise he will meow during the night', @system.tasks[0].contents
+  end
+
+  def test_add_and_remove
+    task = Task.new( 'one', 'Before go sleep, put the cat out otherwise he will meow during the night' )
+    @engine.execute_command( AddTaskCommand.new( task ) )
+    task = Task.new( 'two', 'Brush your teeth before go to bed' )
+    @engine.execute_command( AddTaskCommand.new( task ) )
+
+    assert_equal 2, @system.tasks.length
+
+    @engine.execute_command( RemoveTaskCommand.new( 'two' ) )
+    
+    assert_equal 1, @system.tasks.length
+    
+    load_engine
+    
+    assert_equal 1, @system.tasks.length
+    assert_equal 'one', @system.tasks[0].name
+    assert_equal 'Before go sleep, put the cat out otherwise he will meow during the night', @system.tasks[0].contents
+  end
+  
+  def test_snapshot
+    task = Task.new( 'one', 'Before go sleep, put the cat out otherwise he will meow during the night' )
+    @engine.execute_command( AddTaskCommand.new( task ) )
+    task = Task.new( 'two', 'Brush your teeth before go to bed' )
+    @engine.execute_command( AddTaskCommand.new( task ) )
+
+    assert_equal 2, @system.tasks.length
+    @engine.take_snapshot
+    
+    load_engine
+    
+    assert_equal 2, @system.tasks.length
+  end
+  
+end

data/test/task_model.rb

@@ -0,0 +1,74 @@
+$:.unshift(File.dirname(__FILE__) + "/../lib/")
+
+class Task
+  
+  attr_accessor :name, :contents
+  
+  def initialize( name, contents )
+    @name, @contents = name, contents
+  end
+  
+end
+
+class TaskDatabase
+  attr_reader :tasks
+  attr_accessor :priority_task
+  
+  def initialize()
+    @tasks = []
+    @priority_task = nil
+  end
+  
+  def add_task( task )
+    @tasks << task
+  end
+  
+  def remove_task_by_name( name )
+    @tasks.delete_if { |task|
+      task.name == name
+    }
+  end
+  
+  def find_task_by_name( name )
+    @tasks.find { |task|
+      task.name == name
+    }
+  end
+  
+end
+
+class AddTaskCommand 
+  
+  def initialize( task )
+    @task = task
+  end
+  
+  def execute( system )
+    system.add_task( @task )
+  end
+  
+end
+
+class UpdateTaskCommand 
+  
+  def initialize( name, new_content )
+    @name, @new_content = name, new_content
+  end
+  
+  def execute( system )
+    system.find_task_by_name( @name ).contents = new_content
+  end
+  
+end
+
+class RemoveTaskCommand 
+  
+  def initialize( name )
+    @name = name
+  end
+  
+  def execute( system )
+    system.remove_task_by_name( @name )
+  end
+  
+end

data/test/transparent_module_test.rb

@@ -0,0 +1,95 @@
+$:.unshift(File.dirname(__FILE__) + "/../lib/")
+
+require 'hprevalence'
+require 'transparent'
+require 'abstract_hprevalence_testcase'
+require 'task_model'
+require 'test/unit'
+
+class TransparentTest < Test::Unit::TestCase
+  include AbstractHPrevalenceTestHelper
+  
+  def setup
+    reset_dir 'store/transparent_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 ) { 
+      TaskDatabase.new() 
+    }
+    
+    assert_not_nil @engine
+    @system = @engine.system
+    assert_not_nil @system
+  end
+  
+  def test_proxy_registration
+    fake_proxy1 = ""
+    fake_proxy2 = 10
+    
+    proxy_id1 = @engine.register_proxy( fake_proxy1 )
+    proxy_id2 = @engine.register_proxy( fake_proxy2 )
+
+    assert_not_nil proxy_id1
+    assert_not_nil proxy_id2
+    
+    assert_equal fake_proxy1, @engine.proxy_by_id( proxy_id1 )
+    assert_equal fake_proxy2, @engine.proxy_by_id( proxy_id2 )
+  end
+  
+  def test_simple_case
+    assert_equal 0, @system.tasks.length
+    @system.add_task( Task.new( 'first', 'content' ) )
+    @system.add_task( Task.new( 'second', 'content' ) )
+    assert_equal 2, @system.tasks.length
+    
+    load_engine
+
+    assert_equal 2, @system.tasks.length
+  end
+  
+  def test_simple_case_with_snapshot
+    assert_equal 0, @system.tasks.length
+    @system.add_task( Task.new( 'first', 'content' ) )
+    @system.add_task( Task.new( 'second', 'content' ) )
+    assert_equal 2, @system.tasks.length
+    
+    @engine.take_snapshot
+    
+    load_engine
+
+    assert_equal 2, @system.tasks.length
+  end
+  
+  def test_several_snapshots
+    assert_equal 0, @system.tasks.length
+    @system.add_task( Task.new( 'first', 'content' ) )
+    @system.add_task( Task.new( 'second', 'content' ) )
+    assert_equal 2, @system.tasks.length
+    
+    @engine.take_snapshot
+    @system.add_task( Task.new( 'third', 'content' ) )
+    @engine.take_snapshot
+    @system.add_task( Task.new( 'forth', 'content' ) )
+    @engine.take_snapshot
+
+    load_engine
+
+    assert_equal 4, @system.tasks.length
+    @system.remove_task_by_name( 'first' )
+    assert_equal 3, @system.tasks.length
+    
+    load_engine
+
+    assert_equal 3, @system.tasks.length
+  end
+  
+end

metadata

@@ -0,0 +1,54 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.1
+specification_version: 1
+name: hprevalence
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+date: 2004-10-24
+summary: Ruby based prevalence engine.
+require_paths: 
+  - lib
+author: Hamilton Verissimo
+email: hammett@apache.org
+homepage: http://www.digitalcraftsmen.com.br/~hammett
+rubyforge_project: hprevalence
+description: HPrevalence is an prevalence engine for Ruby which aims to provide non-intrusive capabilities to  prevalent object models.
+autorequire: hprevalence
+default_executable: 
+bindir: bin
+has_rdoc: false
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+    - 
+      - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+  version: 
+platform: ruby
+files: 
+  - README
+  - "./rake.rb"
+  - "./rakefile.rb"
+  - "./lib/hprevalence.rb"
+  - "./lib/transparent.rb"
+  - "./lib/internal/command_logger.rb"
+  - "./lib/internal/iomanager.rb"
+  - "./lib/internal/object_graph.rb"
+  - "./lib/internal/serializer.rb"
+  - "./lib/internal/store_manager.rb"
+  - "./test/abstract_hprevalence_testcase.rb"
+  - "./test/command_logger_test.rb"
+  - "./test/default_model_serializer_test.rb"
+  - "./test/dvd_store_model.rb"
+  - "./test/file_io_manager_test.rb"
+  - "./test/natural_object_model_test.rb"
+  - "./test/simple_engine_test.rb"
+  - "./test/task_model.rb"
+  - "./test/transparent_module_test.rb"
+test_files: []
+rdoc_options: []
+extra_rdoc_files: []
+executables: []
+extensions: []
+requirements: []
+dependencies: []