maglevrecord 0.1.1 → 0.1.2

data/test/automigration/rake_task_base.rb

@@ -0,0 +1,57 @@
+require "migration/test_project.rb"
+
+class RakeTaskTestBase < ProjectTest
+
+  def setup
+    Maglev.abort_transaction
+    #Maglev.persistent do
+    #  @rooted_book = Object.remove_const :RootedBook if defined? RootedBook
+    #end
+    @project_name = 'automigration'
+    super
+    project_model_source("")
+    Maglev.persistent do
+      Object.remove_const :ProjectModel if defined?(ProjectModel)
+    end
+    snapshot!
+    Maglev.commit_transaction
+    @error_message = nil
+  end
+
+  def new_snapshot
+    # should only snapshot project model
+    classes = MaglevRecord::Snapshotable.snapshotable_classes.select(&:maglev_persistable?)
+    classes -= [BaseLecture1, BaseLecture2] if defined? BaseLecture1
+    MaglevRecord::Snapshot.new classes
+  end
+
+  def snapshot!
+    # define the interface that rake should use
+    Maglev::PERSISTENT_ROOT[:last_snapshot] = new_snapshot
+  end
+
+  def changes
+    new_snapshot.changes_since Maglev::PERSISTENT_ROOT[:last_snapshot]
+  end
+
+  def teardown
+    super
+    puts @error_mesage unless @error_message.nil?
+    Maglev.abort_transaction
+    #Object.const_set :RootedBook, @rooted_book unless @rooted_book.nil?
+  end
+
+  def project_model_source(string)
+    file_path = "app/models/project_model.rb"
+    File.open(file_path, 'w') { |file| file.write(string)}
+    load file_path
+  end
+
+  def test_no_changes_since
+    assert_equal [], changes.removed_classes
+    assert_equal [], changes.changed_classes
+    assert_equal [], changes.new_classes
+    assert changes.nothing_changed?
+  end
+
+end

data/test/automigration/test_auto.slow.rb

@@ -0,0 +1,38 @@
+require "automigration/rake_task_base"
+
+class TestAutomigrationShow < RakeTaskTestBase
+
+  def setup
+    super
+    @output = nil
+  end
+
+  def teardown
+    super
+    puts @output unless @output.nil?
+  end
+
+  def test_auto
+    project_model_source("class ProjectModel
+                            include MaglevRecord::Base
+                            def x; end
+                          end")
+    @output = rake("migrate:auto")
+    assert File.directory? './migrations'
+    assert_not_equal [], Dir[File.join(FileUtils.pwd, 'migrations', '*')]
+    file_name = Dir['./migrations/*'].first
+    assert_include? @output, file_name
+    content = File.open(file_name){|f| f.read }
+    assert_include? content, "MaglevRecord::Migration.new"
+    assert_include? content, "  def up\n    #new class: ProjectModel\n  end"
+    @output = nil
+  end
+
+  def test_no_changes_no_file
+    @output = rake("migrate:auto")
+    assert_equal "# no changes\n", @output
+    assert_equal [], Dir[File.join(FileUtils.pwd, 'migrations', '*')]
+    @output = nil
+  end
+
+end

data/test/automigration/test_migration_string.rb

@@ -0,0 +1,173 @@
+require "snapshot/test_snapshot"
+
+class MigrationStringTest < FastSnapshotTest
+
+  def setup
+    super
+    Lecture2.attr_accessor :lecturer
+    def Lecture.class_method1;end
+    Lecture.class_eval{def instance_method1;end}
+    snapshot!
+  end
+
+  def teardown
+    super
+  end
+
+  def test_no_migration_string_if_nothing_happens
+    assert_migration_string ""
+  end
+
+  def test_class_removed
+    remove_class Lecture3
+    assert_migration_string 'delete_class Lecture3'
+  end
+
+  def test_two_classes_removed
+    remove_class Lecture2, Lecture3
+    assert_migration_string "delete_class Lecture2\ndelete_class Lecture3"
+  end
+
+  def test_rename_class_is_remove_and_add
+    remove_class Lecture4
+    snapshot! # Lecture3 exists
+    redefine_migration_classes
+    remove_class Lecture3 # Lecture4 exists, Lecture3 is removed
+    assert_migration_string "rename_class Lecture3, :Lecture4"
+  end
+
+  # TODO string when attributes renamed when class renamed
+  # TODO string when many things happen
+  # TODO lecture -> lectures map to list block
+
+  def test_added_attr_accessor
+    assert_not_include? Lecture3.instance_methods, "test_accessor"
+    Lecture3.attr_accessor :test_accessor
+    assert_migration_string "#new accessor :test_accessor of Lecture3\n" +
+                    "#new instance method: Lecture3.new.test_accessor\n" +
+                    "#new instance method: Lecture3.new.test_accessor="
+  end
+
+  def test_removed_attr_accessor
+    Lecture2.delete_attribute(:lecturer)
+    assert_migration_string "Lecture2.delete_attribute(:lecturer)"
+  end
+
+  def test_remove_accessor_is_remove_and_add
+    Lecture2.delete_attribute(:lecturer)
+    Lecture2.attr_accessor :testitatetue
+    string =  "Lecture2.rename_attribute(:lecturer, :testitatetue)\n"
+    string += "#new instance method: Lecture2.new.testitatetue\n"
+    string += "#new instance method: Lecture2.new.testitatetue="
+    assert_migration_string string
+  end
+
+  def test_add_class_requires_no_migration_string
+    remove_class Lecture3, Lecture4
+    snapshot!
+    redefine_migration_classes
+    migration_string = "    #new class: Lecture3\n    #new class: Lecture4"
+    assert_migration_string migration_string, 4
+  end
+
+  def test_add_class_method
+    def Lecture.class_method2;end
+    assert_migration_string "#new class method: Lecture.class_method2"
+  end
+
+  def test_add_instance_method
+    Lecture.class_eval{def instance_method2;end}
+    assert_migration_string "#new instance method: Lecture.new.instance_method2"
+  end
+
+  def test_remove_class_method
+    Lecture.singleton_class.remove_method :class_method1
+    assert_migration_string 'Lecture.remove_class_method :class_method1'
+  end
+
+  def test_remove_instance_method
+    Lecture.remove_method :instance_method1
+    assert_migration_string 'Lecture.remove_instance_method :instance_method1'
+  end
+end
+
+class AttributeAccessorsMoveTest < FastSnapshotTest
+
+  def create_attribute
+    Lecture0.attr_writer :lecturer
+  end
+
+  def setup
+    super
+    create_attribute # template method
+    snapshot!
+    assert_include? Lecture0.attributes, "lecturer"
+    Lecture0.attributes.delete("lecturer") # bad style this is
+    # now Lecture2 is like having removed all attributes
+    assert_not_include? Lecture0.attributes, "lecturer"
+  end
+end
+
+class AttrAccessorMovesTest < AttributeAccessorsMoveTest
+
+  def create_attribute
+    Lecture0.attr_accessor :lecturer
+  end
+
+  def test_to_attr_reader
+    Lecture0.attr_reader :lecturer
+    assert_migration_string ""
+  end
+
+  def test_to_attr_writer
+    Lecture0.attr_writer :lecturer
+    assert_migration_string ""
+  end
+
+  def test_to_attr_accessor
+    Lecture0.attr_accessor :lecturer
+    assert_migration_string ""
+  end
+end
+
+class AttrReaderMovesTest < AttributeAccessorsMoveTest
+  def create_attribute
+    Lecture0.attr_reader :lecturer
+  end
+
+  def test_to_attr_reader
+    Lecture0.attr_reader :lecturer
+    assert_migration_string ""
+  end
+
+  def test_to_attr_writer
+    Lecture0.attr_writer :lecturer
+    assert_migration_string "#new instance method: Lecture0.new.lecturer="
+  end
+
+  def test_to_attr_accessor
+    Lecture0.attr_accessor :lecturer
+    assert_migration_string "#new instance method: Lecture0.new.lecturer="
+  end
+end
+
+class AttrWriterMovesTest < AttributeAccessorsMoveTest
+  def create_attribute
+    Lecture0.attr_writer :lecturer
+  end
+
+  def test_to_attr_reader
+    Lecture0.attr_reader :lecturer
+    assert_migration_string "#new instance method: Lecture0.new.lecturer"
+  end
+
+  def test_to_attr_writer
+    Lecture0.attr_writer :lecturer
+    assert_migration_string ""
+  end
+
+  def test_to_attr_accessor
+    Lecture0.attr_accessor :lecturer
+    assert_migration_string "#new instance method: Lecture0.new.lecturer"
+  end
+end

data/test/automigration/test_rake_task_preconditions.slow.rb

@@ -0,0 +1,41 @@
+require "migration/test_project.rb"
+
+class NeedMigrateUpBeforeAutomigration < ProjectTest
+
+  def setup
+    Maglev.abort_transaction
+    @project_name = 'project2'
+    super
+    Maglev::PERSISTENT_ROOT[:last_snapshot] = nil
+    Maglev.commit_transaction
+  end
+
+  def teardown
+    super
+    Maglev.abort_transaction
+  end
+
+  def test_no_snapshot_at_start
+    Maglev.abort_transaction
+    assert_nil Maglev::PERSISTENT_ROOT[:last_snapshot]
+  end
+
+  def test_migrate_up_creates_a_snapshot
+    rake('migrate:up')
+    Maglev.abort_transaction
+    snap = Maglev::PERSISTENT_ROOT[:last_snapshot]
+    assert_not_nil snap
+    assert_include? snap.snapshot_classes, ProjectModel
+  end
+
+  def test_migrate_auto_without_initial_snapshot_does_not_work
+    rake_output = rake('migrate:auto')
+    assert_equal "rake migrate:up has to be done first\n", rake_output
+  end
+
+  def test_migrate_auto2_without_initial_snapshot_does_not_work
+    rake_output = rake('migrate:auto?')
+    assert_equal "rake migrate:up has to be done first\n", rake_output
+  end
+
+end

data/test/automigration/test_show.slow.rb

@@ -0,0 +1,21 @@
+require "automigration/rake_task_base"
+
+class TestAutomigrationShow < RakeTaskTestBase
+
+  def test_automigrate_has_no_output_if_no_changes
+    rake_output = rake("migrate:auto?")
+    assert_equal "# no changes\n", rake_output
+  end
+
+  def test_project_model_is_new
+    project_model_source("class ProjectModel
+                            include MaglevRecord::Base
+                            def x; end
+                          end")
+    rake_output = rake("migrate:auto?")
+    assert_equal "#new class: ProjectModel\n", rake_output
+  end
+
+end
+
+

data/test/automigration/test_superclass_mismatch.rb

@@ -0,0 +1,96 @@
+require 'more_asserts'
+require 'temp_dir_test'
+
+class SuperclassOfX
+end
+class NotSuperclassOfX
+end
+
+class SuperclassMismatchMigrationStringTest < TempDirTest
+
+  def remove_classes
+    Object.remove_const "XX" if defined? XX
+    Object.remove_const "XY" if defined? XY
+  end
+
+  def teardown
+    remove_classes
+  end
+
+  def setup
+    super
+    remove_classes
+    @fp = write_to_file("class XX < SuperclassOfX;include MaglevRecord::Base;def h;5;end;end;
+                        class XY;include MaglevRecord::Base;attr_accessor :a;end")
+    snapshot = MaglevRecord::Snapshot.with_files([@fp])
+    write_to_file("class XX < NotSuperclassOfX;\ninclude MaglevRecord::Base;def h;end;end
+                   class XY;include MaglevRecord::Base;attr_accessor :b;end", @fp)
+    @changes = snapshot.changes_in_files
+  end
+
+  def changes
+    @changes
+  end
+
+  def test_no_class_changes_or_was_removed
+    assert_equal [], changes.new_class_names
+    assert_equal [], changes.removed_class_names
+    assert_equal [], changes.changed_class_names, "class XY changed but can not be listed here"
+    assert_equal [], changes.new_classes
+    assert_equal [], changes.removed_classes
+    assert_equal [], changes.changed_classes, "class XY changed but can not be listed here"
+  end
+
+  def test_the_state_of_all_classes_is_restored
+    assert_equal ['a'], XY.attributes
+    assert_equal XX.instance_methods(false), ["h"]
+    assert_equal 5, XX.new.h
+  end
+
+  def superclass_mismatch_change
+    assert_equal 1, changes.superclass_mismatch_classes.size
+    changes.superclass_mismatch_classes.first
+  end
+
+  def test_class_X_has_the_superclass_mismatch
+    assert_equal XX, superclass_mismatch_change.mismatching_class
+    assert_equal "XX", superclass_mismatch_change.class_name
+  end
+
+  def test_superclass_mismatch_migration_string
+    assert_equal "# TypeError: superclass mismatch for XX\n" +
+                 "# in #{@fp}\n" +
+                 "XX.change_superclass_to NotSuperclassOfX", 
+                 changes.migration_string
+    assert_equal "    # TypeError: superclass mismatch for XX\n" +
+                 "    # in #{@fp}\n" +
+                 "    XX.change_superclass_to NotSuperclassOfX", 
+                 changes.migration_string(4)
+  end
+
+  def test_changes_changed!
+    assert_not changes.nothing_changed?
+  end
+end
+
+class NoSuperclassMismatchTest < Test::Unit::TestCase
+  def test_no_superclass_mismatch
+    s = MaglevRecord::Snapshot.new
+    changes = s.changes_since(s)
+    assert_equal [], changes.superclass_mismatch_classes
+  end
+
+end
+
+
+
+
+
+
+
+
+
+
+
+
+

data/test/example_model.rb

@@ -1,5 +1,8 @@
+
 class Book
   include MaglevRecord::ReadWrite
+  include MaglevRecord::Snapshotable
+
   attr_accessor :author, :title, :comments
   def self.example_params
     { :author => "Author", :title => "Title" }
@@ -11,6 +14,9 @@ end
 
 class RootedBook < Book
   include MaglevRecord::RootedBase
+  # TODO: why does rooted book change the ancestors of book?
+  validates :author, :presence => true,
+                     :length => { :minimum => 4 }
   def book
     puts "I am a RootedBook"
   end
@@ -25,8 +31,4 @@ RootedBook.maglev_record_persistable
 UnrootedBook.maglev_record_persistable
 Maglev.commit_transaction
 
-class RootedBook
-  include ActiveModel::Validations
-  validates :author, :presence => true,
-                     :length => { :minimum => 4 }
-end
+RootedBook.redo_include_and_extend

data/test/migration/base_lectures.rb

@@ -0,0 +1,30 @@
+require "maglev_record"
+
+class BaseLecture1
+  maglev_record_persistable
+  include MaglevRecord::RootedBase
+
+  def initialize(lecturer, users)
+    @lecturer = lecturer
+    @users = users
+  end
+
+  def self.fill_with_examples
+    self.clear
+    self.new("Hans Ullrich", ["Peter Garstig", "Elfride Bricht", "Sergey Faehrlich"])
+  end
+end
+
+class BaseLecture2
+  maglev_record_persistable
+  include MaglevRecord::RootedBase
+
+  attr_accessor :lecturer, :users
+
+  def self.fill_with_examples
+    self.clear
+    lecture = self.new()
+    lecture.lecturer = "Hans Ullrich"
+    lecture.users = ["Peter Garstig", "Elfride Bricht", "Sergey Faehrlich"]
+  end
+end

data/test/migration/operation_setup.rb

@@ -1,36 +1,74 @@
 require 'more_asserts'
+require 'tempfile'
+require 'migration/base_lectures'
 
-class BaseLecture1
-  include MaglevRecord::RootedBase
+LECTURE_TEMPFILE = Tempfile.new(['lectures', '.rb'])
+LECTURES_STRING = <<LectureString
 
-  def initialize(lecturer, users)
-    @lecturer = lecturer
-    @users = users
+#puts "Loading Lectures except these \#{LECTURES_NOT_TO_LOAD}"
+
+unless LECTURES_NOT_TO_LOAD.include? 'Lecture0'
+  class Lecture0
+    # empty Lecture
+    include MaglevRecord::RootedBase
+    def x;end
   end
+end
 
-  def self.fill_with_examples
-    self.clear
-    self.new("Hans Ullrich", ["Peter Garstig", "Elfride Bricht", "Sergey Faehrlich"])
+unless LECTURES_NOT_TO_LOAD.include? 'Lecture'
+  class Lecture < BaseLecture1
+    def x;end
+    def self.x;end
+    def lecture2;false;end
   end
 end
 
-class BaseLecture2
-  include MaglevRecord::RootedBase
+unless LECTURES_NOT_TO_LOAD.include? 'Lecture2'
+  class Lecture2 < BaseLecture2
+    def x;end
+    def lecture2;true;end
+  end
+end
 
-  attr_accessor :lecturer, :users
+unless LECTURES_NOT_TO_LOAD.include? 'Lecture3'
+  class Lecture3 < Lecture
+    def x;end
+    def self.x;end
+    def lecture3;true;end
+  end
+end
 
-  def self.fill_with_examples
-    self.clear
-    lecture = self.new()
-    lecture.lecturer = "Hans Ullrich"
-    lecture.users = ["Peter Garstig", "Elfride Bricht", "Sergey Faehrlich"]
+unless LECTURES_NOT_TO_LOAD.include? 'Lecture4'
+  class Lecture4 < Lecture
+    def x;end
   end
 end
 
+module Models
+  module M1
+    class Lecture < BaseLecture2
+      def x;end
+    end
+  end
+  module M2
+  end
+  module M3
+  end
+end
+
+"Lecture Lecture0 Lecture2 Lecture3 Lecture4".split.each do |const|
+   Object.const_get(const).maglev_record_persistable if Object.const_defined? const
+end
+
+LectureString
+
+LECTURES_NOT_TO_LOAD = []  # a list of lectures that are removed from the file
+
 class Test::Unit::TestCase
 
   def self.teardown_migration_operations
-    [:Lecture, :Lecture2, :Lecture3, :Lecture4].each{ |const|
+    Maglev.abort_transaction
+    [:Lecture, :Lecture2, :Lecture3, :Lecture4, :Lecture0].each{ |const|
       if Object.const_defined? const
         Object.const_get(const).clear
         Maglev.persistent do
@@ -38,6 +76,9 @@ class Test::Unit::TestCase
         end
       end
     }
+    Maglev.commit_transaction
+    LECTURE_TEMPFILE.rewind
+    LECTURE_TEMPFILE.write " " * LECTURE_TEMPFILE.size
   end
 
   def self.setup_migration_operations
@@ -46,46 +87,15 @@ class Test::Unit::TestCase
   end
 
   def self.redefine_migration_classes
-    Object.module_eval "
-      class Lecture < BaseLecture1
-      end
-
-      class Lecture2 < BaseLecture2
-      end
-
-      class Lecture3 < Lecture
-      end
-
-      class Lecture4 < Lecture
-      end
-
-      module Models
-        module M1
-          class Lecture < BaseLecture2
-          end
-        end
-        module M2
-        end
-        module M3
-        end
-      end
-
-      [Lecture, Lecture2, Lecture3, Lecture4].each do |const|
-        const.maglev_record_persistable
-      end
-    "
-  end
-
-  def setup_migration_operations
-    self.class.setup_migration_operations
-  end
-
-  def teardown_migration_operations
-    self.class.teardown_migration_operations
+    LECTURE_TEMPFILE.rewind
+    LECTURE_TEMPFILE.write LECTURES_STRING
+    LECTURES_NOT_TO_LOAD.delete_if{|i| true}
+    Maglev.abort_transaction
+    Kernel.load LECTURE_TEMPFILE.path
+    Maglev.commit_transaction
   end
 
-  def redefine_migration_classes
-    self.class.redefine_migration_classes
-  end
+  as_instance_method :setup_migration_operations, :teardown_migration_operations
+  as_instance_method :redefine_migration_classes
 
 end

data/test/migration/projects/automigration/.gitignore

@@ -0,0 +1,15 @@
+# See http://help.github.com/ignore-files/ for more about ignoring files.
+#
+# If you find yourself ignoring temporary files generated by your text editor
+# or operating system, you probably want to add a global ignore instead:
+#   git config --global core.excludesfile ~/.gitignore_global
+
+# Ignore bundler config
+/.bundle
+
+# Ignore the default SQLite database.
+/db/*.sqlite3
+
+# Ignore all logfiles and tempfiles.
+/log/*.log
+/tmp