maglevrecord 0.0.3 → 0.1.1

data/test/snapshot/test_snapshot_attributes.slow.rb

@@ -0,0 +1,57 @@
+require "snapshot/test_snapshot"
+
+class AttrSnapshotTest < SnapshotTest
+
+  def self.changes
+    @changes
+  end
+
+  as_instance_method :changes
+
+  def self.startup
+    super
+    clean
+    @changes = compare(
+      class_string('MyTestClass2', 'attr_accessor :no_value, :lala'),
+      class_string('MyTestClass2', 'attr_accessor :students, :lala'))
+  end
+
+  def self.shutdown
+    super
+    clean
+  end
+
+  def test_snapshot_without_error
+    assert_not_nil changes
+  end
+
+  def test_no_class_removed
+    assert_equal changes.removed_classes, []
+  end
+
+  def test_class_changed
+    assert_equal changes.changed_classes.size, 1
+  end
+
+  def test_no_class_was_added
+    assert_equal [], changes.new_classes
+  end
+
+  def changed_class
+    assert_not_nil changes.changed_classes[0], 'a class must have changed'
+    changes.changed_classes[0]
+  end
+
+  def test_accessor_added
+    assert_equal changed_class.new_attr_accessors, [:students]
+  end
+
+  def test_accessor_removed
+    assert_equal changed_class.removed_attr_accessors, [:no_value]
+  end
+
+  # TODO: add tests for attr_reader and attr_writer ...
+
+end
+
+

data/test/snapshot/test_snapshot_classes.slow.rb

@@ -0,0 +1,32 @@
+require "snapshot/test_snapshot"
+
+class ClassSnapshotTest < SnapshotTest
+
+  def setup
+    super
+    clean
+  end
+
+  def teardown
+    super
+    clean
+  end
+
+  def test_new_class
+    changes = compare('', class_string('MyTestClass', 'def x;end'))
+    assert_equal 1, changes.new_classes.size
+    classdiv = changes.new_classes[0]
+    assert_equal classdiv.class_name, 'MyTestClass'
+    assert_equal classdiv.snapshot_class, MyTestClass
+  end
+
+  def test_class_removed_from_file_but_still_in_stone
+    changes= compare(class_string('MyTestClass2', 'def x;end'), '')
+    assert_equal 1,  changes.removed_classes.size
+    classdiv = changes.removed_classes[0]
+    assert_equal classdiv.class_name, 'MyTestClass2'
+    assert_equal classdiv.snapshot_class, MyTestClass2
+  end
+
+end
+

data/test/snapshot/test_snapshotable.rb

@@ -0,0 +1,53 @@
+require "maglev_record"
+require "more_asserts"
+
+class MySnapshotableClass
+  include MaglevRecord::Snapshotable
+end
+
+class MySnapshotableSubclass < MySnapshotableClass
+end
+
+class MyNotSnapshotableClass
+end
+
+class MyBaseClass
+  include MaglevRecord::Base
+end
+
+class SnapshotableTest < Test::Unit::TestCase
+
+  def self.startup
+    @snapshotable_classes = MaglevRecord::Snapshotable.snapshotable_classes
+  end
+
+  def self.snapshotable_classes
+    @snapshotable_classes
+  end
+
+  def snapshotable_classes
+    self.class.snapshotable_classes
+  end
+
+  def test_includes_MySnapshotableClass
+    assert_include? snapshotable_classes, MySnapshotableClass
+  end
+
+  def test_deas_not_include_Bases
+    assert_not_include? snapshotable_classes, MaglevRecord::Base
+    assert_not_include? snapshotable_classes, MaglevRecord::RootedBase
+  end
+
+  def test_does_not_include_some_other_class
+    assert_not_include? snapshotable_classes, MyNotSnapshotableClass
+  end
+
+  def test_includes_subclass
+    assert_include? snapshotable_classes, MySnapshotableSubclass
+  end
+
+  def test_classes_including_base
+    assert_include? snapshotable_classes, MyBaseClass
+  end
+
+end

data/test/test_accessors.rb

@@ -0,0 +1,46 @@
+require "more_asserts"
+require "maglev_record"
+require "example_model"
+
+class AccessorTest < Test::Unit::TestCase
+
+  def rooted_example_book
+    RootedBook.example
+  end
+
+  def unrooted_example_book
+    UnrootedBook.example
+  end
+
+  def test_accessors_working
+    [rooted_example_book, unrooted_example_book].each do |b|
+      assert_equal b.author, "Author"
+      assert_equal b.title, "Title"
+    end
+  end
+
+  def test_accessors_are_not_instance_variables
+    [rooted_example_book, unrooted_example_book].each do |b|
+      # In ruby 1.9 these are Symbols!
+      assert_not b.instance_variables.include? "@author"
+      assert_not b.instance_variables.include? "@title"
+    end
+  end
+
+  def test_accessors_are_stored_in_a_hash
+    [rooted_example_book, unrooted_example_book].each do |b|
+      assert b.attributes.is_a? Hash
+      assert b.attributes.has_key? :author
+      assert b.attributes.has_key? :title
+    end
+  end
+
+  def test_updating_attributes
+    [rooted_example_book, unrooted_example_book].each do |b|
+      b.update_attributes(:title => "New Title", :author => 2)
+      assert_equal b.title, "New Title"
+      assert_equal b.author, 2
+    end
+  end
+
+end

data/test/test_active_model_like_interface.rb

@@ -6,6 +6,6 @@ class ActiveModelLikeInterfaceTest < Test::Unit::TestCase
   include ActiveModel::Lint::Tests
 
   def model
-    Book.dummy
+    RootedBook.example
   end
 end

data/test/test_model_timestamps.rb

@@ -0,0 +1,22 @@
+require "more_asserts"
+require "maglev_record"
+require "example_model"
+require "timecop"
+
+class ModelTimestampTest < Test::Unit::TestCase
+
+  def test_time
+    @test_time ||= Time.local(2008, 9, 1, 10, 5, 0)
+  end
+  def test_created_at
+    Timecop.freeze(test_time)
+    model = RootedBook.example
+    assert_equal model.created_at, test_time
+  end
+
+  def teardown
+    Timecop.return
+  end
+
+
+end

data/test/test_more_asserts.rb

@@ -0,0 +1,68 @@
+require 'more_asserts'
+
+class MyTest < Test::Unit::TestCase
+
+    def self.startup
+      #puts 'runs only once at start2'
+      if @startup_called.nil?
+        @startup_called = 1
+      else
+         @startup_called += 1
+      end
+      super
+    end
+
+    def self.shutdown
+      #puts 'runs only once at end2'
+      if @shutdown_called.nil?
+        @shutdown_called = 1
+      else
+         @shutdown_called += 1
+      end
+      super
+    end
+
+    def setup
+      @setup_called = true
+    	#puts 'runs before each test'
+    end
+
+    def teardown
+      @teardown_called = true
+    	#puts 'runs after each test'
+    end	
+
+    def test_stuff
+    	assert_equal @setup_called, true
+      assert_equal @teardown_called, nil
+      assert_equal self.class.instance_variable_get( :@shutdown_called ), nil
+      assert_equal self.class.instance_variable_get( :@startup_called ), 1
+    end
+
+    def test_stuff2
+      test_stuff
+    end
+
+  class << self
+    alias :old_suite123 :suite
+
+    def suite
+      raise unless MyTest.instance_variable_get(:@shutdown_called) == nil
+      raise unless MyTest.instance_variable_get(:@startup_called) == nil
+      ret = old_suite123
+      class << ret
+        alias :run_old123 :run
+
+        def run(*args, &block)
+          raise unless MyTest.instance_variable_get(:@shutdown_called) == nil
+          raise unless MyTest.instance_variable_get(:@startup_called) == nil
+          ret = run_old123(*args, &block)
+          raise unless MyTest.instance_variable_get(:@shutdown_called) == 1
+          raise unless MyTest.instance_variable_get(:@startup_called) == 1
+          ret
+        end
+      end
+     ret
+    end
+  end
+end

data/test/test_naming.rb

@@ -0,0 +1,22 @@
+require "more_asserts"
+require "maglev_record"
+require "example_model"
+
+class NamingTest < Test::Unit::TestCase
+
+  def rooted_example_book
+    RootedBook.example
+  end
+
+  def unrooted_example_book
+    UnrootedBook.example
+  end
+
+  def test_models_respond_to_model_name
+    [rooted_example_book, unrooted_example_book].each do |b|
+      assert b.class.respond_to?(:model_name)
+    end
+    assert_equal "RootedBook", rooted_example_book.class.model_name
+    assert_equal "UnrootedBook", unrooted_example_book.class.model_name
+  end
+end

data/test/test_persistence.rb

@@ -0,0 +1,127 @@
+require "more_asserts"
+require "maglev_record"
+require "example_model"
+
+class UnrootedPersistanceTest < Test::Unit::TestCase
+
+  def setup
+    MaglevRecord.reset
+  end
+
+  def new_unrooted_example_book
+    UnrootedBook.example
+  end
+
+  def test_new_creates_new_object
+    b = new_unrooted_example_book
+    assert_not_nil b
+    assert_equal b.author, "Author"
+    assert_equal b.title, "Title"
+  end
+
+  def test_new_object_is_maglev_persistable
+    assert new_unrooted_example_book.class.maglev_persistable?
+  end
+
+  def test_new_object_is_not_persisted
+    b = new_unrooted_example_book
+    assert b.new_record?
+    assert_not b.persisted?
+  end
+
+  def test_persisted_object_is_persisted
+    b = new_unrooted_example_book
+    Maglev::PERSISTENT_ROOT[:test] = b
+    assert b.new_record?
+    assert_not b.persisted?
+    MaglevRecord.save
+    assert b.persisted?
+    assert_not b.new_record?
+  end
+
+  def test_create_on_unrooted_model_should_raise_error
+    assert_raise MaglevRecord::InvalidOperationError do
+      UnrootedBook.create
+    end
+  end
+
+  def test_clear_on_unrooted_model_should_raise_error
+    assert_raise MaglevRecord::InvalidOperationError do
+      UnrootedBook.clear
+    end
+  end
+
+  def test_id_returns_object_id
+    b = new_unrooted_example_book
+    assert_equal b.id, b.object_id
+  end
+
+end
+
+class RootedPersistanceTest < Test::Unit::TestCase
+
+  def new_rooted_example_book
+    RootedBook.example
+  end
+
+  def setup
+    MaglevRecord.reset
+    # RootedBook.clear
+  end
+
+  def test_new_creates_new_object
+    b = new_rooted_example_book
+    assert_not_nil b
+    assert_equal b.author, "Author"
+    assert_equal b.title, "Title"
+  end
+
+  def test_new_stores_object_in_persistent_root
+    b = new_rooted_example_book
+    assert RootedBook.object_pool.has_value? b
+  end
+
+  def test_new_object_is_maglev_persistable
+    assert new_rooted_example_book.class.maglev_persistable?
+  end
+
+  def test_new_object_is_not_persisted
+    b = new_rooted_example_book
+    assert b.new_record?
+    assert_not b.persisted?
+  end
+
+  def test_persisted_object_is_persisted
+    b = new_rooted_example_book
+    Maglev::PERSISTENT_ROOT[:test] = b
+    assert b.new_record?
+    assert_not b.persisted?
+    MaglevRecord.save
+    assert b.persisted?
+    assert_not b.new_record?
+  end
+
+  def test_object_pool_key_is_a_class
+    assert_equal RootedBook.object_pool_key, RootedBook
+  end
+
+  def test_object_pool_is_a_hash
+    assert RootedBook.object_pool.is_a? Hash
+  end
+
+  def test_clear_clears
+    RootedBook.new(RootedBook.example_params)
+    assert_not_equal RootedBook.object_pool.size, 0
+    MaglevRecord.save
+    RootedBook.clear
+    assert_equal RootedBook.object_pool.size, 0
+  end
+
+  # def test_create_commits_model
+  #   assert_equal RootedBook.size, 0
+  #   RootedBook.create(RootedBook.example_params)
+  #   MaglevRecord.reset
+  #   assert_equal RootedBook.size, 1
+  # end
+
+end

data/test/test_query_interface.rb

@@ -5,46 +5,41 @@ require "example_model"
 class QueryInterfaceTest < Test::Unit::TestCase
 
   def setup
-    [
-      Book.new(:title => "Harry Potter and the Philosopher's stone", :author => "Joanne K. Rowling"),
-      Book.new(:title => "Harry Potter and the Chamber of Secrets", :author => "Joanne K. Rowling"),
-      Book.new(:title => "Harry Potter and the Prisoner of Azkaban", :author => "Joanne K. Rowling"),
-      Book.new(:title => "Harry Potter and the Goblet of Fire", :author => "Joanne K. Rowling"),
-      Book.new(:title => "Harry Potter and the Order of the Phoenix", :author => "Joanne K. Rowling"),
-      Book.new(:title => "Harry Potter and the Half-blood Prince", :author => "Joanne K. Rowling"),
-      Book.new(:title => "Harry Potter and the Deathly Hallows", :author => "Joanne K. Rowling"),
-      Book.new(:title => "The Magician's Guild", :author => "Trudi Canavan")
-    ].each do |book|
-      book.save
-    end
+    RootedBook.clear
+    RootedBook.create(:title => "Harry Potter and the Philosopher's stone", :author => "Joanne K. Rowling")
+    RootedBook.create(:title => "The Hobbit", :author => "J. R. R. Tolkien")
+    RootedBook.create(:title => "The Lord of the Rings", :author => "J. R. R. Tolkien")
+    RootedBook.create(:title => "Charlie and the Chocolate Factory", :author => "Roald Dahl")
+    RootedBook.create(:title => "A Christmas Carol", :author => "Charles Dickens")
   end
 
-  def teardown
-    Book.clear
+  def test_all_returns_all_books
+    all_books = RootedBook.all
+    assert_equal all_books.class, Array
+    assert_equal all_books.size, 5
   end
 
   def test_size_returns_correct_amount_of_books
-    assert_equal Book.size, 8
-  end
-
-  def test_clear_clears_the_database
-    assert Book.size > 0
-    Book.clear
-    assert Book.size == 0
+    assert_equal RootedBook.size, 5
   end
 
   def test_first_returns_the_first_book
-    assert Book.first.title.include? "Philosopher"
+    assert RootedBook.first.title.include? "Philosopher"
   end
 
   def test_normal_enumerable_methods_work
-    assert_equal 7, Book.count { |b| b.author == "Joanne K. Rowling" }
+    assert_equal 2, RootedBook.count { |b| b.author == "J. R. R. Tolkien" }
   end
 
   def test_work_on_real_objects
-    book = Book.first
+    book = RootedBook.first
     book.author = "William Shakespeare"
-    assert_equal Book.first.author, "William Shakespeare"
+    assert_equal RootedBook.first.author, "William Shakespeare"
+  end
+
+  def test_find_object_by_id
+    book = RootedBook.all[2]
+    assert_equal book, RootedBook.find_by_objectid(book.object_id)
   end
 
 end

data/test/test_sensibles.rb

@@ -0,0 +1,38 @@
+require "more_asserts"
+require "maglev_record"
+
+class User
+  include MaglevRecord::RootedBase
+  attr_accessor :password_digest
+
+  has_secure_password
+  # TODO: No validations so far
+  # validates_presence_of :password, :on => :create
+end
+
+class SensibleTest #< Test::Unit::TestCase
+
+  def pass
+    "some_pass"
+  end
+
+  def example_user
+    attr_hash = {
+      :password => pass,
+      :password_confirmation => pass,
+    }
+    User.new(attr_hash)
+  end
+
+  def test_sensible_deletion
+    user = example_user
+
+    assert_equal user.password, pass
+    assert_equal user.password_confirmation, pass
+
+    user.clear_sensibles
+
+    assert_equal user.password, nil
+    assert_equal user.password_confirmation, nil
+  end
+end

data/test/test_validation.rb

@@ -1,81 +1,44 @@
-require "test/unit"
+require "more_asserts"
 require "maglev_record"
 require "example_model"
 
 class ValidationTest < Test::Unit::TestCase
 
   def setup
-    [
-      Book.new(:title => "Harry Potter and the Philosopher's stone", :author => "Joanne K. Rowling"),
-      Book.new(:title => "Harry Potter and the Chamber of Secrets", :author => "Joanne K. Rowling")
-    ].each do |book|
-      book.save
-    end
+    MaglevRecord.reset
+    RootedBook.clear
+    MaglevRecord.save
   end
 
-  def teardown
-    Book.clear
-  end
-
-  def test_reset_single_attribute
-    book = Book.find { |b| b.title == "Harry Potter and the Philosopher's stone" }
-    book.author = "J. R. R. Tolkien"
-    book.reset_author!
-    assert_equal book.author, "Joanne K. Rowling"
-  end
+  # TODO
+  # def test_reset
+  #   book = Book.find { |b| b.title == "Harry Potter and the Philosopher's stone" }
+  #   book.author = "J. R. R. Tolkien"
+  #   book.title = "The Lord of the Rings"
 
-  def test_reset_all_attributes
-    book = Book.find { |b| b.title == "Harry Potter and the Philosopher's stone" }
-    book.author = "J. R. R. Tolkien"
-    book.title = "The Lord of the Rings"
-    #book.reset!
-    #assert_equal book.author, "Joanne K. Rowling"
-    #assert_equal book.title, "Harry Potter and the Philosopher's stone"
-  end
+  #   MaglevRecord.reset
+  #   assert_not_nil Book.find { |b| b.title == "Harry Potter and the Philosopher's stone" }
+  # end
 
-  def invalid_model
-    Book.new(:author => "J. R. R. Tolkien", :title => "LotR")
+  def test_validation_works
+    book = RootedBook.new(:author => "Book")
+    assert book.valid?
+    assert_not book.invalid?
+    MaglevRecord.save
   end
 
   def test_validation_fails
-    book = invalid_model
+    book = RootedBook.new()
     assert !book.valid?
     assert book.invalid?
+    MaglevRecord.save
   end
 
   def test_errors_not_empty
-    book = invalid_model
+    book = RootedBook.new()
     book.valid?
     assert book.errors.count > 0
   end
 
-  def test_validation_succeeds
-    book = Book.new(:author => "J. R. R. Tolkien", :title => "Harry Potter and the Philosopher's stone")
-    assert book.valid?
-    assert !book.invalid?
-  end
-
-  def test_save_excl_invalid_throws_error
-    book = invalid_model
-
-    @catch = false
-    begin
-      book.save!
-    rescue StandardError
-      @catch = true
-    end
-
-    assert @catch
-  end
-
-  def test_save_invalid_returns_false
-    book = invalid_model
-    assert !book.save
-  end
-
-  def test_save_skip_validation
-    book = invalid_model
-    assert book.save(:validate => false)
-  end
 end
 

data/todo.txt

@@ -0,0 +1 @@
+be rake testslow TEST=/home/nicco/Documents/maglevrecord/test/migration/test_snapshot.rb ; buildtest