lore 0.4.8 → 0.9.2

data/test/README

@@ -1,31 +0,0 @@
-
-  How to run tests
-
-  - Create (empty) database test: 
-
-     $ createdb test
-
-  - Create user 'lore' with password 'lore23' 
-    (change this in trunk/lore.rb, if you want to)
-
-     $shell: createuser lore
-     $shell: ...
-     $shell: psql test
-     $psql/test: ALTER USER lore WITH PASSWORD 'lore23'; 
-     $psql/test: \q
-
-  - Insert test schema into database:  
-     $shell: psql test < test/test_db.sql
-
-  - Run tests. No test should fail except those 
-    saying they are supposed to (printing something like 
-    'This will fail')
-    
-    It's best to redirect STDERR to a file. 
-    
-    $shell: ruby test/ts_lore.rb 2>test.log
-  
-  - Check the logfile in case you are interested in 
-    the kinky details. 
-
-

data/test/custom_models.rb

@@ -1,18 +0,0 @@
-
-require('lore/model') 
-
-module Some
-module App
-
-  class New_Model < Lore::Model 
-    table :new_model, :public
-    primary_key :model_id, :model_id_seq
-    has_attribute :name, Lore::Type.integer
-    has_attribute :created, Lore::Type.timestamp
-    has_attribute :model_id, Lore::Type.integer
-
-
-  end
-end
-end
-

data/test/env.rb

@@ -1,5 +0,0 @@
-
-require('lore')
-
-Lore.add_login_data 'test' => ['lore','lore23']
-Lore::Context.enter :test

data/test/prepare.rb

@@ -1,37 +0,0 @@
-
-require 'rubygems'
-require 'cuba'
-require 'lore'
-require 'lore/connection'
-
-Lore::Context.enter :aurita
-
-Cuba.import_imp_model :wiki, :article
-
-include Cuba::Wiki
-
-STDERR.puts '----------------------------------------'
-
-Article.all.entities
-
-Article.select { |art| 
-  art.join(User_Group).using(:user_group_id) { |a|
-    a.where((Article.content_id > '100') & (Article.title == 'foo') | 
-            (Article.content_id < '200') & (Article.title <=> 'bar') & (Article.published == 't'))
-  a.limit(10)
-    a.order_by(Article.article_id, :desc)
-  }
-}
-
-STDERR.puts '----------------------------------------'
-
-=begin
-Article.prepare(:by_id, Lore::Type.integer) { |a|
-  a.where(Article.article_id == Lore::Clause.new('$1'))
-}
-2.times do
- p Article.find(1).with(Article.article_id == '1001').entity.article_id
-# Article.by_id(1001).first.article_id
-end
-=end
-

data/test/tc_aspect.rb

@@ -1,58 +0,0 @@
-
-require 'test/unit'
-require('./test/model')
-
-
-module Lore
-module Unit
-
-  # Extend Car by hooks: 
-  class Car 
-    def self.pre_create(attrib_hash)
-      attrib_hash[:aspect_pre_value] = 'ChangedPre'
-    end
-    def self.post_create(obj)
-      obj[:aspect_post_value] = 'ChangedPost'
-    end
-    def self.pre_commit(obj)
-      obj[:maxspeed] = 120
-    end
-    def self.post_commit(obj)
-      obj[:num_seats] = 5
-    end
-    def self.pre_delete(obj)
-    end
-    def self.post_delete()
-    end
-  end
-
-  class TC_Aspect < Test::Unit::TestCase
-
-    def setup
-      @@ct = Car_Type.create(:name => 'Pickup')
-      @@ac = Car.create(:name => 'Foo', 
-                        :aspect_pre_value => 'WillChange', 
-                        :aspect_post_value => 'WillChange', 
-                        :maxspeed => 100, 
-                        :num_doors => 5, 
-                        :manuf_id => 1, 
-                        :num_seats => 4, 
-                        :car_type_id => @@ct.car_type_id)
-    end
-
-    def test_create
-      assert_equal(@@ac.aspect_pre_value, 'ChangedPre')
-      assert_equal(@@ac.aspect_post_value, 'ChangedPost')
-    end
-
-    def test_update
-      @@ac[:name] = 'RedPickup'
-      @@ac.commit
-      assert_equal(@@ac.num_seats.to_s, '5')
-      assert_equal(@@ac.maxspeed.to_s, '120')
-    end
-
-  end
-
-end
-end

data/test/tc_cache.rb

@@ -1,83 +0,0 @@
-
-require 'test/unit'
-
-require('./test/model')
-
-module Lore
-module Unit
-
-  class TC_Cache < Test::Unit::TestCase
-
-    def setup
-      m1 = Manufacturer.create( :name => 'BMW' )
-      m2 = Manufacturer.create( :name => 'Mercedes' )
-      m3 = Manufacturer.create( :name => 'Audi' )
-    
-      ct1 = Car_Type.create( :name => 'Limousine' )
-      ct2 = Car_Type.create( :name => 'SUV' )
-      ct3 = Car_Type.create( :name => 'Cabrio' )
-      ct4 = Car_Type.create( :name => 'Boxter' )
-      
-      c1 = Car.create(
-        :manuf_id => m2.manuf_id,
-        :name => 'SLK', 
-        :num_seats => 2, 
-        :maxspeed => 180, 
-        :num_doors => 3, 
-        :car_type_id => ct3.car_type_id
-      )
-    end
-
-    def teardown
-      Manufacturer.delete_all
-      Vehicle.delete_all
-      Car_Type.delete_all
-      Car.delete_all
-      Bike.delete_all
-      Owner.delete_all
-      Garage.delete_all
-    end
-
-    def test_basic
-      Lore.enable_cache
-      Car.use_entity_cache Lore::Cache::Mmap_Entity_Cache
-
-      passed = true
-      org_name = Car.all.entity.name
-      20.times { 
-        cached_inst = Car.all.entity
-        cached_name = cached_inst.name
-        passed = passed && (org_name == cached_name)
-        assert_equal(org_name, cached_name)
-        passed = passed && (!Lore.cache_enabled? || cached_inst.is_cached_entity?)
-      }
-      assert(passed, 'Cached value and original value differ (This will fail if caching is not configured, doing no harm)') 
-
-      20.times { 
-        cached_inst = Car.all.entity
-        cached_name = cached_inst.name
-        passed = passed && (org_name == cached_name)
-        assert_equal(org_name, cached_name)
-        cached_inst[:name] = 'Changed'
-        passed = passed && (cached_inst.name == 'Changed')
-        assert_equal(cached_inst.name, 'Changed')
-        cached_inst.commit
-        passed = passed && (!Lore.cache_enabled? || !cached_inst.is_cached_entity?)
-      }
-      Lore.disable_cache
-      assert(passed, 'Cached value and original value differ') 
-    end
-
-    def test_random_select
-      # Random selects must not be cached under any circumstances. 
-      random_car = Car.select('*, random() as rand') { |rcar|
-        rcar.where(true)
-        rcar.order_by(:rand, :desc)
-        rcar.limit(1)
-      }.first
-      assert(!random_car.loaded_from_cache)
-    end
-
-  end
-end
-end

data/test/tc_clause.rb

@@ -1,104 +0,0 @@
-
-require 'test/unit'
-require('./test/model')
-require('lore/clause')
-
-module Lore
-module Unit
-
-
-  class TC_Clause < Test::Unit::TestCase
-
-  private
-
-    def clean(query)
-      return query.gsub("\n",'').gsub("\t",' ').gsub(/(\s+)/,' ')
-    end
-
-  public
-
-    def setup
-    end
-
-    def teardown
-    end
-
-    def test_models
-      assert(Car.table_name == 'public.car')
-      assert(Vehicle.table_name == 'public.vehicle')
-    end
-
-    def test_attribte_clauses
-      assert(Car.vehicle_id.to_s == 'public.car.vehicle_id', 'clause failed: ' << Car.vehicle_id.to_s)
-    end
-
-    def test_inherited_attributes
-      # Attribute only in derived model: 
-      assert_equal('public.car.vehicle_id', Car.vehicle_id.to_s) 
-      # Attribute in both base and derived model (default to derived model): 
-      assert_equal('public.car.id', Car.id.to_s)
-      # Attribute only in base model (redirect to base model attribute); 
-      assert_equal('public.vehicle.name', Car.name.to_s)
-    end
-
-    def test_logic
-
-      (Car.name == 'foo') & (Car.vehicle_id == '23')
-
-    end
-
-    def test_operators
-      s1 = Car.name == Vehicle.name
-      s1_sql = 'public.vehicle.name = public.vehicle.name'
-      assert(clean(s1.to_s) == s1_sql, s1.to_s + ' != ' << s1_sql)
-
-      s2 = Car.name.not_in( 
-          Vehicle.select(Vehicle.name) { |v| v.where(v.id == 1) } 
-      )
-      s2_sql = "public.vehicle.name NOT IN (SELECT public.vehicle.name FROM public.vehicle WHERE public.vehicle.id = '1' ) "
-      assert_equal(clean(s2.to_s), s2_sql)
-
-    end
-
-    def test_select_value
-      ct = Car_Type.create( :name => 'Pickup' )
-      Car.create(
-        :manuf_id => 1,
-        :name => 'SLK', 
-        :num_seats => 2, 
-        :maxspeed => 180, 
-        :num_doors => 3, 
-        :car_type_id => ct.car_type_id
-      )
-      latest_car = Car.create(
-        :manuf_id => 1,
-        :name => 'SLK2', 
-        :num_seats => 2, 
-        :maxspeed => 180, 
-        :num_doors => 3, 
-        :car_type_id => ct.car_type_id
-      )
-      all_car_names = Car.all(Car.name).entities
-      assert(all_car_names.include?('slk'))
-      assert(all_car_names.include?('slk2'))
-      assert_equal Car.value_of.max(Car.vehicle_id).to_i, latest_car.vehicle_id.to_i
-      assert_equal Car.value_of.max(Car.vehicle_id).to_i, Car.value_of.max('public.vehicle.id').to_i
-
-    end
-
-    def test_ranges
-      Car.select { |c| 
-        c.where(c.id.in([1,2,3,4]))
-      }
-      Car.select { |c| 
-        c.where(c.id.in(1..4))
-      }
-    end
-
-    def test_having
-    end
-
-  end
-
-end
-end

data/test/tc_deep_inheritance.rb

@@ -1,49 +0,0 @@
-
-require 'test/unit'
-require './test/model'
-require 'lore/symbol'
-
-module Lore
-module Unit
-
-  class TC_Deep_Inheritancei < Test::Unit::TestCase
-
-    def test_create
-
-      Manufacturer.delete_all
-      Vehicle.delete_all
-      Car.delete_all
-      Car_Type.delete_all
-
-      m = Manufacturer.create(:name => 'temp')
-      o = Owner.create(:name => 'temp')
-      ct = Car_Type.create(:name => 'temp')
-
-      # Make sure vehicle and car ids differ by at 
-      # least 1: 
-      v = Vehicle.create(:manuf_id => m.id, 
-                         :owner_id => o.id, 
-                         :name => 'temp', 
-                         :num_seats => 2, 
-                         :num_doors => 5, 
-                         :maxspeed => 190)
-
-      v.delete
-      c = Convertible.create(:color => 'red', 
-                             :manuf_id => m.id, 
-                             :owner_id => o.id, 
-                             :name => 'convertible1', 
-                             :num_seats => 2, 
-                             :num_doors => 5, 
-                             :maxspeed => 190, 
-                             :car_type_id => ct.id)
-      c.delete
-      m.delete
-      o.delete
-      ct.delete
-    end
-
-  end
-
-end
-end

data/test/tc_factory.rb

@@ -1,57 +0,0 @@
-
-require 'test/unit'
-require './test/model'
-require 'lore/model_factory'
-require 'lore/gui/form_generator'
-
-module Lore
-module Unit
-  
-  class TC_Factory < Test::Unit::TestCase
-    
-    public
-    
-    def setup
-      begin
-        Model_Factory.drop_model(Some::App::New_Model)
-        Model_Factory.drop_model(Some::App::Other_Model)
-      rescue ::Exception => excep
-        # ignore
-      end
-    end
-    
-    def teardown
-      Model_Factory.drop_model(Some::App::New_Model)
-      Model_Factory.drop_model(Some::App::Other_Model)
-    end
-    
-    def test_simple
-      builder = Model_Factory.new('Some::App::New_Model')
-      builder.set_attributes(:model_id => { :type => Type.integer, :not_null => true }, 
-                             :name     => { :type => Type.integer, :not_null => true, :check => "name <> ''", :unique => true }, 
-                             :created  => { :type => Type.timestamp, :not_null => true, :default => 'now()' })
-      builder.add_primary_key(:key_name => 'model_pkey', :attribute => 'model_id')
-      builder.output_file = 'custom_models.rb'
-      builder.build_model_klass()
-      
-      form_string = GUI::Form_Generator.new(Some::App::New_Model).generate.string
-      
-      assert_equal(Some::App::New_Model.to_s, 'Some::App::New_Model') 
-      
-      builder = Model_Factory.new('Some::App::Other_Model')
-      builder.add_attribute('other_id_1', :type => Type.integer, :not_null => true)
-      builder.add_attribute('other_id_2', :type => Type.integer, :not_null => true)
-      builder.add_attribute('name', :type => Type.integer, :not_null => true, :check => "name <> ''", :unique => true)
-      builder.add_attribute('created', :type => Type.timestamp, :not_null => true, :default => 'now()')
-      builder.add_primary_key(:attribute => 'other_id_1', :key_name => 'id1') 
-      builder.add_primary_key(:attribute => 'other_id_2', :key_name => 'id2') 
-      builder.output_file = 'custom_models.rb'
-      builder.build_model_klass()
-
-      assert_equal(Some::App::Other_Model.to_s, 'Some::App::Other_Model') 
-    end
-    
-  end
-  
-end # module
-end # module