datamapper 0.1.0

data/spec/legacy.rb

@@ -0,0 +1,14 @@
+context 'Legacy Database' do
+  
+  specify('should allow models to map with custom attribute names') do
+    Fruit.first.name.should == 'Kiwi'
+  end
+  
+  specify('should allow custom foreign-key mappings') do
+    database do
+      Fruit[:name => 'Watermelon'].devourer_of_souls.should == Animal[:name => 'Cup']
+      Animal[:name => 'Cup'].favourite_fruit.should == Fruit[:name => 'Watermelon']
+    end
+  end
+  
+end

data/spec/models/animal.rb

@@ -0,0 +1,7 @@
+class Animal < DataMapper::Base
+  property :name, :string
+  property :notes, :text, :lazy => true
+  
+  has_one :favourite_fruit, :class => 'Fruit', :foreign_key => 'devourer_id'
+  has_and_belongs_to_many :exhibits
+end

data/spec/models/exhibit.rb

@@ -0,0 +1,6 @@
+class Exhibit < DataMapper::Base
+  property :name, :string
+  
+  belongs_to :zoo
+  has_and_belongs_to_many :animals
+end

data/spec/models/fruit.rb

@@ -0,0 +1,6 @@
+class Fruit < DataMapper::Base
+  set_table_name 'fruit'
+  property :name, :string, :column => 'fruit_name'
+  
+  belongs_to :devourer_of_souls, :class => 'Animal', :foreign_key => 'devourer_id'
+end

data/spec/models/person.rb

@@ -0,0 +1,7 @@
+class Person < DataMapper::Base
+  property :name, :string
+  property :age, :integer
+  property :occupation, :string
+  property :type, :class
+  property :notes, :text, :lazy => true
+end

data/spec/models/post.rb

@@ -0,0 +1,4 @@
+class Post < DataMapper::Base
+  property :title, :string
+  property :created_at, :datetime
+end

data/spec/models/sales_person.rb

@@ -0,0 +1,4 @@
+require File.dirname(__FILE__) + '/person'
+
+class SalesPerson < Person
+end

data/spec/models/zoo.rb

@@ -0,0 +1,5 @@
+class Zoo < DataMapper::Base
+  property :name, :string
+  
+  has_many :exhibits
+end

data/spec/new_record.rb

@@ -0,0 +1,24 @@
+context 'A new record' do
+  
+  setup do
+    @bob = Person.new(:name => 'Bob', :age => 30, :occupation => 'Sales')
+  end
+  
+  specify 'should be dirty' do
+    @bob.dirty?.should == true
+  end
+  
+  specify 'set attributes should be dirty' do
+    attributes = @bob.attributes.dup.reject { |k,v| k == :id }
+    @bob.dirty_attributes.should == { :name => 'Bob', :age => 30, :occupation => 'Sales' }
+  end
+  
+  specify 'should be marked as new' do
+    @bob.new_record?.should == true
+  end
+  
+  specify 'should have a nil id' do
+    @bob.id.should == nil
+  end
+  
+end

data/spec/spec_helper.rb

@@ -0,0 +1,61 @@
+require File.dirname(__FILE__) + '/../lib/data_mapper'
+require 'yaml'
+require 'pp'
+
+log_path = File.dirname(__FILE__) + '/../spec.log'
+
+require 'fileutils'
+FileUtils::rm log_path if File.exists?(log_path)
+
+case ENV['ADAPTER']
+when 'sqlite3' then
+  DataMapper::Database.setup do
+    adapter 'sqlite3'
+    database 'data_mapper_1.db'
+    log_stream 'spec.log'
+    log_level Logger::DEBUG
+  end
+else
+  DataMapper::Database.setup do
+    adapter 'mysql'
+    database 'data_mapper_1'
+    username 'root'
+    log_stream 'spec.log'
+    log_level Logger::DEBUG
+  end
+end
+
+Dir[File.dirname(__FILE__) + '/models/*.rb'].each do |path|
+  load path
+end
+
+database do |db|
+  db.schema.each do |table|
+    db.create_table(table.klass)
+  end
+end
+
+at_exit do
+  database do |db|
+    db.schema.each do |table|
+      db.drop_table(table.klass)
+    end
+  end
+end if ENV['DROP'] == '1'
+
+# Define a fixtures helper method to load up our test data.
+def fixtures(name)
+  entry = YAML::load_file(File.dirname(__FILE__) + "/fixtures/#{name}.yaml")
+  klass = Kernel::const_get(Inflector.classify(Inflector.singularize(name)))
+  
+  klass.truncate!
+  
+  (entry.kind_of?(Array) ? entry : [entry]).each do |hash|
+    klass::create(hash)
+  end
+end
+
+# Pre-fill the database so non-destructive tests don't need to reload fixtures.
+Dir[File.dirname(__FILE__) + "/fixtures/*.yaml"].each do |path|
+  fixtures(File::basename(path).sub(/\.yaml$/, ''))
+end

data/spec/sub_select.rb

@@ -0,0 +1,16 @@
+=begin
+context 'Sub-selection' do
+  
+  specify 'should return a Cup' do
+    Animal[:id.select => { :name => 'cup' }].name.should == 'Cup'
+  end
+  
+  specify 'should return all exhibits for Galveston zoo' do
+    Exhibit.all(:zoo_id.select(Zoo) => { :name => 'Galveston' }).size.should == 3
+  end
+  
+  specify 'should allow a sub-select in the select-list' do
+    Animal[:select => [ :id.count ]]
+  end
+end
+=end

data/spec/symbolic_operators.rb

@@ -0,0 +1,21 @@
+context 'Symbolic Operators' do
+  
+  specify('should use greater_than_or_equal_to to limit results') do
+    Person.all(:age.gte => 28).size.should == 3
+  end
+  
+  specify('use an Array for in-clauses') do
+    family = Person.all(:id => [1, 2, 4])
+    family[0].name.should == 'Sam'
+    family[1].name.should == 'Amy'
+    family[2].name.should == 'Josh'
+  end
+  
+  specify('use "not" for not-equal operations') do
+    Person.all(:name.not => 'Bob').size.should == 4
+  end
+  
+  specify('age should not be nil') do
+    Person.all(:age.not => nil).size.should == 5
+  end
+end

data/spec/validates_confirmation_of.rb

@@ -0,0 +1,36 @@
+context 'A Cow' do
+  
+  setup do
+    class Cow
+
+      include DataMapper::Extensions::ValidationHelper
+      
+      attr_accessor :name, :name_confirmation, :age
+    end
+  end
+  
+  specify('') do
+    class Cow
+      validations.clear!
+      validates_confirmation_of :name, :context => :save
+    end
+    
+    betsy = Cow.new
+    betsy.valid?.should == true
+
+    betsy.name = 'Betsy'
+    betsy.name_confirmation = ''
+    betsy.valid?(:save).should == false
+    betsy.errors.full_messages.first.should == 'Name does not match the confirmation'
+
+    betsy.name = ''
+    betsy.name_confirmation = 'Betsy'
+    betsy.valid?(:save).should == false
+    betsy.errors.full_messages.first.should == 'Name does not match the confirmation'
+
+    betsy.name = 'Betsy'
+    betsy.name_confirmation = 'Betsy'
+    betsy.valid?(:save).should == true
+  end
+  
+end

data/spec/validates_format_of.rb

@@ -0,0 +1,61 @@
+context 'An Employee' do
+  
+  setup do
+    class Employee
+
+      include DataMapper::Extensions::ValidationHelper
+      
+      attr_accessor :email
+    end
+  end
+  
+  specify('must have a valid email address') do
+    class Employee
+      validations.clear!
+      validates_format_of :email, :as => :email_address, :on => :save
+    end
+    
+    e = Employee.new
+    e.valid?.should == true
+
+    [
+      'test test@example.com', 'test@example', 'test#example.com',
+      'tester@exampl$.com', '[scizzle]@example.com', '.test@example.com'
+    ].all? { |test_email|
+      e.email = test_email
+      e.valid?(:save).should == false
+      e.errors.full_messages.first.should == "#{test_email} is not a valid email address"
+    }
+
+    e.email = 'test@example.com'
+    e.valid?(:save).should == true
+  end
+  
+  specify('must have a valid organization code') do
+    class Employee
+      validations.clear!
+      
+      attr_accessor :organization_code
+      
+      # WARNING: contrived example
+      # The organization code must be A#### or B######X12
+      validates_format_of :organization_code, :on => :save, :with => lambda { |code|
+        (code =~ /A\d{4}/) || (code =~ /[B-Z]\d{6}X12/)
+      }
+    end
+    
+    e = Employee.new
+    e.valid?.should == true
+    
+    e.organization_code = 'BLAH :)'
+    e.valid?(:save).should == false
+    e.errors.full_messages.first.should == 'Organization code is invalid'
+
+    e.organization_code = 'A1234'
+    e.valid?(:save).should == true
+
+    e.organization_code = 'B123456X12'
+    e.valid?(:save).should == true
+  end
+  
+end

data/spec/validates_length_of.rb

@@ -0,0 +1,101 @@
+context 'A Cow' do
+  
+  setup do
+    class Cow
+
+      include DataMapper::Extensions::ValidationHelper
+      
+      attr_accessor :name, :age
+    end
+  end
+  
+  specify('should not have a name shorter than 3 characters') do
+    class Cow
+      validations.clear!
+      validates_length_of :name, :min => 3, :context => :save
+    end
+    
+    betsy = Cow.new
+    betsy.valid?.should == true
+
+    betsy.valid?(:save).should == false
+    betsy.errors.full_messages.first.should == 'Name must be more than 3 characters long'
+
+    betsy.name = 'Be'
+    betsy.valid?(:save).should == false
+    betsy.errors.full_messages.first.should == 'Name must be more than 3 characters long'
+
+    betsy.name = 'Bet'
+    betsy.valid?(:save).should == true
+
+    betsy.name = 'Bets'
+    betsy.valid?(:save).should == true
+  end
+
+
+  specify('should not have a name longer than 10 characters') do
+    class Cow
+      validations.clear!
+      validates_length_of :name, :max => 10, :context => :save
+    end
+    
+    betsy = Cow.new
+    betsy.valid?.should == true
+    betsy.valid?(:save).should == true
+
+    betsy.name = 'Testicular Fortitude'
+    betsy.valid?(:save).should == false
+    betsy.errors.full_messages.first.should == 'Name must be less than 10 characters long'
+
+    betsy.name = 'Betsy'
+    betsy.valid?(:save).should == true
+  end
+
+  specify('should have a name that is 8 characters long') do
+    class Cow
+      validations.clear!
+      validates_length_of :name, :is => 8, :context => :save
+    end
+    
+    # Context is not save
+    betsy = Cow.new
+    betsy.valid?.should == true
+    
+    # Context is :save
+    betsy.valid?(:save).should == false
+
+    betsy.name = 'Testicular Fortitude'
+    betsy.valid?(:save).should == false
+    betsy.errors.full_messages.first.should == 'Name must be 8 characters long'
+
+    betsy.name = 'Samooela'
+    betsy.valid?(:save).should == true
+  end
+
+  specify('should have a name that is between 10 and 15 characters long') do
+    class Cow
+      validations.clear!
+      validates_length_of :name, :in => (10..15), :context => :save
+    end
+    
+    # Context is not save
+    betsy = Cow.new
+    betsy.valid?.should == true
+    
+    # Context is :save
+    betsy.valid?(:save)
+    betsy.errors.full_messages.first
+    
+    betsy.valid?(:save).should == false
+    betsy.errors.full_messages.first.should == 'Name must be between 10 and 15 characters long'
+    
+    betsy.name = 'Smoooooot'
+    betsy.valid?(:save).should == false
+
+    betsy.name = 'Smooooooooooooooooooot'
+    betsy.valid?(:save).should == false
+
+    betsy.name = 'Smootenstein'
+    betsy.valid?(:save).should == true
+  end
+end

data/spec/validates_uniqueness_of.rb

@@ -0,0 +1,45 @@
+context 'An Animal' do
+  
+  specify('must have a unique name') do
+    class Animal
+      validations.clear!
+      validates_uniqueness_of :name, :context => :save
+    end
+    
+    bugaboo = Animal.new
+    bugaboo.valid?.should == true
+
+    bugaboo.name = 'Bear'
+    bugaboo.valid?(:save).should == false
+    bugaboo.errors.full_messages.first.should == 'Name has already been taken'
+
+    bugaboo.name = 'Bugaboo'
+    bugaboo.valid?(:save).should == true
+  end
+  
+end
+
+context 'A Person' do
+  setup do 
+    fixtures 'people'
+  end
+  
+  specify('must have a unique name for their occupation') do
+    class Person
+      validations.clear!
+      validates_uniqueness_of :name, :context => :save, :scope => :occupation
+    end
+    
+    new_programmer_scott = Person.new(:name => 'Scott', :age => 29, :occupation => 'Programmer')
+    garbage_man_scott = Person.new(:name => 'Scott', :age => 25, :occupation => 'Garbage Man')
+    
+    # Should be valid even though there is another 'Scott' already in the database
+    garbage_man_scott.valid?(:save).should == true
+
+    # Should NOT be valid, there is already a Programmer names Scott, adding one more
+    # would destroy the universe or something
+    new_programmer_scott.valid?(:save).should == false
+    new_programmer_scott.errors.full_messages.first.should == "Name has already been taken"
+  end
+  
+end

data/spec/validations.rb

@@ -0,0 +1,63 @@
+context 'Validations' do
+  
+  setup do
+    class Cow
+      
+      include DataMapper::Extensions::ValidationHelper
+      
+      attr_accessor :name, :age
+    end
+  end
+  
+  specify('should allow you to specify not-null fields in different contexts') do
+    class Cow
+      validations.clear!
+      validates_presence_of :name, :context => :save
+    end
+    
+    betsy = Cow.new
+    betsy.valid?.should == true
+
+    betsy.valid?(:save).should == false
+    betsy.errors.full_messages.first.should == 'Name must not be blank'
+    
+    betsy.name = 'Betsy'
+    betsy.valid?(:save).should == true
+  end
+  
+  specify('should be able to use ":on" for a context alias') do
+    class Cow
+      validations.clear!
+      validates_presence_of :name, :age, :on => :create
+    end
+    
+    maggie = Cow.new
+    maggie.valid?.should == true
+    
+    maggie.valid?(:create).should == false
+    maggie.errors.full_messages.should include('Age must not be blank')
+    maggie.errors.full_messages.should include('Name must not be blank')
+    
+    maggie.name = 'Maggie'
+    maggie.age = 29
+    maggie.valid?(:create).should == true
+  end
+  
+  specify('should default to a general context if unspecified') do
+    class Cow
+      validations.clear!
+      validates_presence_of :name, :age
+    end
+    
+    rhonda = Cow.new
+    rhonda.valid?.should == false
+    
+    rhonda.errors.full_messages.should include('Age must not be blank')
+    rhonda.errors.full_messages.should include('Name must not be blank')
+    
+    rhonda.name = 'Rhonda'
+    rhonda.age = 44
+    rhonda.valid?.should == true
+  end  
+  
+end