datamapper 0.1.0

data/profile_data_mapper.rb

@@ -0,0 +1,18 @@
+require 'example'
+require 'ruby-prof'
+
+# RubyProf, making profiling Ruby pretty since 1899!
+def profile(&b)
+  result = RubyProf.profile &b
+
+  printer = RubyProf::GraphHtmlPrinter.new(result)
+  File::open('profile_results.html', 'w+') do |file|
+    printer.print(file, 0)
+  end
+end
+
+profile do
+  1000.times do
+    Zoo[:name => 'Galveston']
+  end
+end

data/rakefile.rb

@@ -0,0 +1,80 @@
+#!/usr/bin/env ruby
+
+require 'rake'
+require 'spec/rake/spectask'
+require 'rake/rdoctask'
+require 'rake/gempackagetask'
+require 'rake/contrib/rubyforgepublisher'
+
+task :default => 'test'
+
+desc "Run specifications"
+Spec::Rake::SpecTask.new('test') do |t|
+  t.spec_opts = [ '-rspec/spec_helper' ]
+  t.spec_files = FileList[ENV['FILES'] || 'spec/*.rb']
+end
+
+desc "Run comparison with ActiveRecord"
+task :perf do
+  load 'performance.rb'
+end
+
+desc "Profile DataMapper"
+task :profile do
+  load 'profile_data_mapper.rb'
+end
+
+PACKAGE_VERSION = '0.1.0'
+
+PACKAGE_FILES = FileList[
+  'README',
+  'CHANGELOG',
+  'MIT-LICENSE',
+  '*.rb',
+  'lib/**/*.rb',
+  'spec/**/*.{rb,yaml}'
+].to_a
+
+PROJECT = 'datamapper'
+
+desc "Generate Documentation"
+rd = Rake::RDocTask.new do |rdoc|
+  rdoc.rdoc_dir = 'doc'
+  rdoc.title = "DataMapper -- An Object/Relational Mapper for Ruby"
+  rdoc.options << '--line-numbers' << '--inline-source' << '--main' << 'README'
+  rdoc.rdoc_files.include(PACKAGE_FILES.reject { |path| path =~ /^(spec|\w+\.rb)/ })
+end
+
+gem_spec = Gem::Specification.new do |s| 
+  s.platform = Gem::Platform::RUBY 
+  s.name = PROJECT 
+  s.summary = "An Object/Relational Mapper for Ruby"
+  s.description = "It's ActiveRecord, but Faster, Better, Simpler."
+  s.version = PACKAGE_VERSION 
+   
+  s.authors = 'Sam Smoot'
+  s.email = 'ssmoot@gmail.com'
+  s.rubyforge_project = PROJECT 
+  s.homepage = 'http://datamapper.org' 
+   
+  s.files = PACKAGE_FILES 
+   
+  s.require_path = 'lib'
+  s.requirements << 'none'
+  s.autorequire = 'data_mapper'
+
+  s.has_rdoc = true 
+  s.rdoc_options << '--line-numbers' << '--inline-source' << '--main' << 'README' 
+  s.extra_rdoc_files = rd.rdoc_files.reject { |path| path =~ /\.rb$/ }.to_a 
+end
+
+Rake::GemPackageTask.new(gem_spec) do |p|
+  p.gem_spec = gem_spec
+  p.need_tar = true
+  p.need_zip = true
+end
+
+desc "Publish to RubyForge"
+task :rubyforge => [ :rdoc, :gem ] do
+  Rake::SshDirPublisher.new(ENV['RUBYFORGE_USER'], "/var/www/gforge-projects/#{PROJECT}", 'doc').upload
+end

data/spec/basic_finder.rb

@@ -0,0 +1,67 @@
+context 'Finder' do
+  
+  specify 'database-specific load should not fail' do
+    
+    DataMapper::database do |db|
+      froggy = db.find(Animal, :first, :conditions => ['name = ?', 'Frog'])
+      froggy.name.should == 'Frog'
+    end
+
+  end
+  
+  specify 'current-database load should not fail' do
+    froggy = DataMapper::database.find(Animal, :first).name.should == 'Frog'
+  end
+  
+  specify 'load through ActiveRecord impersonation should not fail' do
+    Animal.find(:all).size.should == 16
+  end
+  
+  specify 'load through Og impersonation should not fail' do
+    Animal.all.size.should == 16
+  end
+  
+  specify ':conditions option should accept a hash' do
+    Animal.all(:conditions => { :name => 'Frog' }).size.should == 1
+  end
+  
+  specify 'non-standard options should be considered part of the conditions' do
+    database.log.debug('non-standard options should be considered part of the conditions')
+    zebra = Animal.first(:name => 'Zebra')
+    zebra.name.should == 'Zebra'
+    
+    elephant = Animal[:name => 'Elephant']
+    elephant.name.should == 'Elephant'
+    
+    aged = Person.all(:age => 29)
+    aged.size.should == 2
+    aged.first.name.should == 'Sam'
+    aged.last.name.should == 'Bob'
+    
+    fixtures(:animals)
+  end
+  
+  specify 'should not find deleted objects' do
+    database do
+      wally = Animal[:name => 'Whale']
+      wally.destroy!.should == true
+    
+      wallys_evil_twin = Animal[:name => 'Whale']
+      wallys_evil_twin.should == nil
+    
+      wally.new_record?.should == true
+      wally.save
+    
+      Animal[:name => 'Whale'].should == wally
+    end
+  end
+  
+  specify 'lazy-loads should issue for whole sets' do
+    people = Person.all
+    
+    people.each do |person|
+      person.notes
+    end
+  end
+  
+end

data/spec/belongs_to.rb

@@ -0,0 +1,47 @@
+context 'An Exhibit' do
+  
+  setup do
+    @aviary = Exhibit[:name => 'Monkey Mayhem']
+  end
+  
+  specify 'has a zoo association' do
+    @aviary.zoo.class.should == Zoo
+    Exhibit.new.zoo.should == nil
+  end
+  
+  specify 'belongs to a zoo' do
+    database do |db|
+      @aviary.zoo.should == @aviary.session.find(Zoo, :first, :name => 'San Diego')
+    end
+  end
+  
+  specify 'can build its zoo' do
+    database do |db|
+      e = Exhibit.new({:name => 'Super Extra Crazy Monkey Cage'})
+      e.zoo.should == nil
+      e.build_zoo({:name => 'Monkey Zoo'})
+      e.zoo.class == Zoo
+      e.zoo.new_record?.should == true
+      
+      # Need to get associations working properly before this works ....
+      e.save
+    end
+  end
+  
+  specify 'can build its zoo' do
+    database do |db|
+      e = Exhibit.new({:name => 'Super Extra Crazy Monkey Cage'})
+      e.zoo.should == nil
+      e.create_zoo({:name => 'Monkey Zoo'})
+      e.zoo.class == Zoo
+      e.zoo.new_record?.should == false
+      e.save
+    end
+  end
+  
+  teardown do
+    fixtures('zoos')
+    fixtures('exhibits')
+  end
+
+end

data/spec/fixtures/animals.yaml

@@ -0,0 +1,32 @@
+- name: Frog
+  notes: I am a Frog!
+- name: Bear
+  notes: I am a Bear!
+- name: Giraffe
+  notes: I am a Giraffe!
+- name: Zebra
+  notes: I am a Zebra!
+- name: Cow
+  notes: I am a Cow!
+- name: Pig
+  notes: I am a Pig!
+- name: Cup
+  notes: I am a Cup!
+- name: Cat
+  notes: I am a Cat!
+- name: Dog
+  notes: I am a Dog!
+- name: Elephant
+  notes: I am a Elephant!
+- name: Whale
+  notes: I am a Whale!
+- name: Dolphin
+  notes: I am a Dolphin!
+- name: Mouse
+  notes: I am a Mouse!
+- name: Rat
+  notes: I am a Rat!
+- name: Camel
+  notes: I am a Camel!
+- name: Fox
+  notes: I am a Fox!

data/spec/fixtures/exhibits.yaml

@@ -0,0 +1,90 @@
+- name: Horses & Courses
+  zoo_id: 1
+- name: Aviary
+  zoo_id: 1
+- name: Polar Planet
+  zoo_id: 2
+- name: Monkey Mayhem
+  zoo_id: 2
+- name: Amazonia
+  zoo_id: 3
+- name: Deep Blue Ocean
+  zoo_id: 3
+- name: Fish Fight!
+  zoo_id: 3
+- name: The Dolphin Show
+  zoo_id: 3
+- name: Canal Life
+  zoo_id: 4
+- name: The Reptile Pit
+  zoo_id: 4
+- name: Kangaroo Exhibit
+  zoo_id: 4
+- name: A Million Years Ago...
+  zoo_id: 5
+- name: The Wild West
+  zoo_id: 5
+- name: Tumble Weeds
+  zoo_id: 5
+- name: Missisipi Mud
+  zoo_id: 6
+- name: Craw-Daddy's of the Deep!
+  zoo_id: 6
+- name: The Littlest Big City
+  zoo_id: 7
+- name: Jellyfish On Parade
+  zoo_id: 8
+- name: Sea-Life Among the Rigs
+  zoo_id: 8
+- name: Monsters of the Rainforest
+  zoo_id: 8
+- name: So You Wanna Be A Street-Kid?
+  zoo_id: 9
+- name: Don't Feed the Hippies!
+  zoo_id: 9
+- name: At the Equator
+  zoo_id: 10
+- name: River Habitats
+  zoo_id: 10
+- name: A Fiesta of Plant-life
+  zoo_id: 10
+- name: Smog World!
+  zoo_id: 11
+- name: Where Are They Now? Extinct Species Edition
+  zoo_id: 11
+- name: The Fragile Eco-System of the Cheese-Steak
+  zoo_id: 12
+- name: Rats!
+  zoo_id: 13
+- name: Penguins on Wall St.
+  zoo_id: 13
+- name: King of the Jungle
+  zoo_id: 13
+- name: The World's Fish-Market
+  zoo_id: 14
+- name: Water-World
+  zoo_id: 14
+- name: Micro-sized Soft-shelled Crabs
+  zoo_id: 14
+- name: Do Animals Like Coffee?
+  zoo_id: 14
+- name: On A Clear Day...
+  zoo_id: 15
+- name: Twenty Thousand Leagues Under the Sky
+  zoo_id: 15
+- name: Closed for Renovation
+  zoo_id: 16
+- name: Ducks!
+  zoo_id: 17
+- name: Retired Animal Life
+  zoo_id: 18
+- name: The Clean Side of the Gulf
+  zoo_id: 18
+- name: The Complete History of Rice
+  zoo_id: 19
+- name: Safari World
+  zoo_id: 19
+- name: Of Mice & Men
+  zoo_id: 20
+- name: Snakes!
+  zoo_id: 20

data/spec/fixtures/fruit.yaml

@@ -0,0 +1,6 @@
+- name: Kiwi
+  devourer_id: 5
+- name: Pear
+  devourer_id: 11
+- name: Watermelon
+  devourer_id: 7

data/spec/fixtures/people.yaml

@@ -0,0 +1,15 @@
+- name: Sam
+  age: 29
+  occupation: Programmer
+- name: Amy
+  age: 28
+  occupation: Business Analyst Manager
+- name: Scott
+  age: 25
+  occupation: Programmer
+- name: Josh
+  age: 23
+  occupation: Supervisor
+- name: Bob
+  age: 29
+  occupation: Peon

data/spec/fixtures/zoos.yaml

@@ -0,0 +1,20 @@
+- name: Dallas
+- name: San Diego
+- name: Miami
+- name: Ft. Lauderdale
+- name: Ft. Worth
+- name: New Orleans
+- name: San Antonio
+- name: Galveston
+- name: Austin
+- name: Brownsville
+- name: Los Angeles
+- name: Phillidelphia
+- name: New York
+- name: Seattle
+- name: Houston
+- name: Corpus Christi
+- name: Sacramento
+- name: Pensacola
+- name: Santa Francisco
+- name: Orlando

data/spec/has_and_belongs_to_many.rb

@@ -0,0 +1,25 @@
+# context 'An Exhibit' do
+#   
+#   setup do
+#     @amazonia = Exhibit[:name => 'Amazonia']
+#   end
+#   
+#   specify 'has an animals association' do
+#     [@amazonia, Exhibit.new].each do |exhibit|
+#       exhibit.animals.class.should == DataMapper::Associations::HasAndBelongsToManyAssociation
+#     end
+#   end
+#   
+#   specify 'has many animals' do
+#     @amazonia.animals.size.should == 2
+#   end
+#   
+#   specify 'should load associations magically' do
+#     Exhibit.all.each do |exhibit|
+#       exhibit.animals.each do |animal|
+#         animal.exhibits.should.include?(exhibit)
+#       end
+#     end
+#   end
+#   
+# end

data/spec/has_many.rb

@@ -0,0 +1,34 @@
+describe DataMapper::Associations::HasManyAssociation do
+  
+  before(:all) do
+    fixtures(:zoos)
+    fixtures(:exhibits)
+    
+    @san_diego = Zoo[:name => 'San Diego']
+    @dallas = Zoo[:name => 'Dallas']
+    @miami = Zoo[:name => 'Miami']
+  end
+    
+  it 'should expose a proxy for the accessor' do
+    [@miami, Zoo.new].each do |z|
+      z.exhibits.class.should == DataMapper::Associations::HasManyAssociation
+    end
+  end
+  
+  it 'should lazily-load the association when Enumerable methods are called' do
+    database do |db|
+      @san_diego.exhibits.size.should == 2
+      @san_diego.exhibits.should include(@san_diego.session.find(Exhibit, :first, :name => 'Monkey Mayhem'))
+    end
+  end
+  
+  it 'should eager-load associations for an entire set' do
+    zoos = Zoo.all
+    zoos.each do |zoo|
+      zoo.exhibits.each do |exhibit|
+        exhibit.zoo.should == zoo
+      end
+    end
+  end
+  
+end