sugarcrm 0.9.12 → 0.9.13

data/test/test_finders.rb

@@ -0,0 +1,183 @@
+require 'helper'
+
+class TestFinders < ActiveSupport::TestCase
+  context "A SugarCRM::Base instance" do
+    should "always return an Array when :all" do
+      users = SugarCRM::User.all(:limit => 10)
+      assert_instance_of Array, users
+      users = SugarCRM::User.find(:all, :conditions => {:user_name => '= admin'})
+      assert_instance_of Array, users
+      assert users.length == 1
+      users = SugarCRM::User.find(:all, :conditions => {:user_name => '= invalid_user_123'})
+      assert_instance_of Array, users
+      assert users.length == 0
+    end
+    
+    should "support finding first instance (sorted by attribute)" do
+      account = SugarCRM::Account.first({
+        :order_by => 'name'
+      })
+      assert_instance_of SugarCRM::Account, account
+    end
+    
+    should "support finding last instance (sorted by attribute)" do
+      expected_account = SugarCRM::Account.first({:order_by => 'name DESC'})
+      account = SugarCRM::Account.last({:order_by => 'name'})
+      assert_equal expected_account.id, account.id
+      
+      expected_account = SugarCRM::Account.first({:order_by => 'name DESC'})
+      account = SugarCRM::Account.last({:order_by => 'name ASC'})
+      assert_equal expected_account.id, account.id
+      
+      expected_account = SugarCRM::Account.first({:order_by => 'name ASC'})
+      account = SugarCRM::Account.last({:order_by => 'name DESC'})
+      assert_equal expected_account.id, account.id
+    end
+    
+    should "support finding last instance with symbol as :order_by option" do
+      expected_account = SugarCRM::Account.first({:order_by => 'id DESC'})
+      account = SugarCRM::Account.last({:order_by => :id})
+      assert_equal expected_account.id, account.id
+    end
+    
+    should "support finding last instance (last created)" do
+      expected_account = SugarCRM::Account.first({:order_by => 'date_entered DESC'})
+      account = SugarCRM::Account.last
+      assert_equal expected_account.id, account.id
+    end
+    
+    should "support returning only certain fields" do
+      user = SugarCRM::User.first(:fields => [:first_name, :department])
+      assert_instance_of SugarCRM::User, user
+    end
+    
+    should "raise a RuntimeError when searching for last instance with multiple order clauses" do
+      assert_raise(RuntimeError){ SugarCRM::Account.last({:order_by => 'name, id DESC'}) }
+    end
+    
+    should "raise a RuntimeError when searching for last instance if order clause has weird format" do
+      assert_raise(RuntimeError){ SugarCRM::Account.last({:order_by => 'name id DESC'}) }
+      assert_raise(RuntimeError){ SugarCRM::Account.last({:order_by => 'name DESC id'}) }
+    end
+    
+    should "support searching based on conditions" do
+      accounts = SugarCRM::Account.all({
+        :conditions => { :billing_address_postalcode => ["> '70000'", "< '79999'" ] },
+        :limit => 2,
+        :order_by => 'billing_address_postalcode'
+      })
+      assert_instance_of SugarCRM::Account, accounts.first
+    end
+    
+    should "support searching based on SQL operators" do
+      accounts = SugarCRM::Account.all({
+        :conditions => { :name => "LIKE '%Inc%'" }
+      })
+      assert accounts
+      assert_instance_of SugarCRM::Account, accounts.first
+    end
+    
+    should "return an an instance of itself when sent #find(id)" do
+      assert_instance_of SugarCRM::User, SugarCRM::User.find(1)
+    end
+    
+    should "receive a response containing all fields when sent #get_entry" do
+      u = SugarCRM::User.find(1)
+      assert_equal u.user_name, "admin"
+    end
+    
+    should "return an array of records when sent #find([id1, id2, id3])" do
+      users = SugarCRM::User.find(["seed_sarah_id", 1])
+      assert_equal "admin", users.last.user_name
+    end
+    
+    # test Base#find_by_sql edge case
+    should "return an array of records with small limit and an offset of 0" do
+      accounts = SugarCRM::Account.all(:limit => 3, :offset => 0)
+      assert_equal 3, accounts.size
+    end
+    
+    # test Base#find_by_sql edge case: force slize size to vary up and down
+    should "return an array of records with small offset and a limit greater than 5 but not divisible by 5" do
+      accounts = SugarCRM::Account.all(:limit => 13, :offset => 2)
+      assert_equal 13, accounts.size
+    end
+    
+    # test Base#find_by_sql standard case
+    should "return an array of records with high limit" do
+      accounts = SugarCRM::Account.all(:limit => 12)
+      assert_equal 12, accounts.size
+    end
+    
+    should "accept a block" do
+      # try small limit which will return result on the first result slice (and call yield block only once)
+      count = 0
+      assert_nothing_raised do
+        SugarCRM::Account.all(:limit => 2){|a|
+          count += 1
+        }
+      end
+      assert_equal 2, count
+      
+      # try larger limit which will require multiple result slices to be fetched and yielded individually (yield block called for each result slice)
+      count = 0
+      assert_nothing_raised do
+        SugarCRM::Account.all(:limit => 12){|a|
+          count += 1
+        }
+      end
+      assert_equal 12, count
+    end
+    
+    should "retrieve all records (with no limit option) correctly" do
+      count = 0
+      SugarCRM::Account.all{|a|
+        count += 1
+      }
+      assert_equal SugarCRM::Account.count, count
+    end
+    
+    should "return an array of records when using :order_by, :limit, and :offset options" do
+      accounts = SugarCRM::Account.all(:order_by => 'name', :limit => 3, :offset => 10)
+      accounts_api = SugarCRM.connection.get_entry_list('Accounts', '1=1', :order_by => 'name', :limit => 3, :offset => 10)
+      assert_equal accounts_api, accounts
+    end
+    
+    should "return an array of records working around a SugarCRM bug when :limit > :offset" do
+      accounts = SugarCRM::Account.all(:order_by => 'name', :limit => 10, :offset => 2)
+      assert_equal 10, accounts.size
+    end
+    
+    should "return an array of 1 record with :limit => 1, :offset => 1" do
+      accounts = SugarCRM::Account.all(:order_by => 'name', :limit => 1, :offset => 1)
+      assert_equal 1, accounts.size
+    end
+    
+    should "ignore :offset => 0" do
+      accounts = SugarCRM::Account.all(:order_by => 'name', :limit => 3)
+      accounts_offset = SugarCRM::Account.all(:order_by => 'name', :limit => 3, :offset => 0)
+      assert_equal accounts, accounts_offset
+    end
+    
+    should "compute offsets correctly" do
+      accounts = SugarCRM::Account.all(:order_by => 'name', :limit => 10, :offset => 3)
+      accounts_first_slice = SugarCRM::Account.all(:order_by => 'name', :limit => 5, :offset => 3)
+      accounts_second_slice = SugarCRM::Account.all(:order_by => 'name', :limit => 5, :offset => 8)
+      assert_equal accounts, accounts_first_slice.concat(accounts_second_slice)
+    end
+    
+    should "return an instance of User when sent User#find_by_username" do
+      u = SugarCRM::User.find_by_user_name("sarah")
+      assert_equal "sarah@example.com", u.email_addresses.first.email_address
+    end
+    
+    should "create or retrieve a record when #find_or_create_by_name" do
+      a = SugarCRM::Account.find_or_create_by_name("Really Important Co. Name")
+      assert_instance_of SugarCRM::Account, a
+      assert !a.new?
+      b = SugarCRM::Account.find_or_create_by_name("Really Important Co. Name")
+      assert a == b
+      assert a.delete
+    end
+  end
+end

data/test/test_sugarcrm.rb

@@ -1,6 +1,18 @@
 require 'helper'
 
 class TestSugarCRM < ActiveSupport::TestCase
+  context "A class inheriting SugarCRM::Base" do
+    should "implement self.class.count" do
+      nb_accounts = SugarCRM::Account.count
+      assert nb_accounts > 0
+      nb_inc_accounts = SugarCRM::Account.count(:conditions => {:name => "LIKE '%Inc'"})
+      nb_inc_accounts_size = SugarCRM::Account.all(:conditions => {:name => "LIKE '%Inc'"}).size
+      assert nb_inc_accounts > 0
+      assert nb_inc_accounts < nb_accounts
+      assert_equal nb_inc_accounts_size, nb_inc_accounts
+    end
+  end
+  
   context "A SugarCRM::Base instance" do
   
     should "return the module name" do
@@ -11,7 +23,7 @@ class TestSugarCRM < ActiveSupport::TestCase
       assert_instance_of ActiveSupport::HashWithIndifferentAccess, SugarCRM::Account._module.fields
     end
     
-    should "responsd to self#methods" do
+    should "respond to self#methods" do
       assert_instance_of Array, SugarCRM::User.new.methods
     end
     
@@ -50,17 +62,6 @@ class TestSugarCRM < ActiveSupport::TestCase
       end
     end
 
-    should "always return an Array when :all" do
-      users = SugarCRM::User.all(:limit => 10)
-      assert_instance_of Array, users
-      users = SugarCRM::User.find(:all, :conditions => {:user_name => '= admin'})
-      assert_instance_of Array, users
-      assert users.length == 1
-      users = SugarCRM::User.find(:all, :conditions => {:user_name => '= invalid_user_123'})
-      assert_instance_of Array, users
-      assert users.length == 0
-    end
-
     should "create, modify, and delete a record" do
       u = SugarCRM::User.new
       assert u.email1?
@@ -81,131 +82,9 @@ class TestSugarCRM < ActiveSupport::TestCase
       assert m.destroyed?
     end
     
-    should "support finding first instance (sorted by attribute)" do
-      account = SugarCRM::Account.first({
-       	:order_by => 'name'
-      })
-      assert_instance_of SugarCRM::Account, account
-    end
-    
-    should "support finding last instance (sorted by attribute)" do
-      expected_account = SugarCRM::Account.first({:order_by => 'name DESC'})
-      account = SugarCRM::Account.last({:order_by => 'name'})
-      assert_equal expected_account.id, account.id
-      
-      expected_account = SugarCRM::Account.first({:order_by => 'name DESC'})
-      account = SugarCRM::Account.last({:order_by => 'name ASC'})
-      assert_equal expected_account.id, account.id
-      
-      expected_account = SugarCRM::Account.first({:order_by => 'name ASC'})
-      account = SugarCRM::Account.last({:order_by => 'name DESC'})
-      assert_equal expected_account.id, account.id
-    end
-    
-    should "support finding last instance (last created)" do
-      expected_account = SugarCRM::Account.first({:order_by => 'date_entered DESC'})
-      account = SugarCRM::Account.last
-      assert_equal expected_account.id, account.id
-    end
-    
-    should "support returning only certain fields" do
-      user = SugarCRM::User.first(:fields => [:first_name, :department])
-      assert_instance_of SugarCRM::User, user
-    end
-    
-    should "raise a RuntimeError when searching for last instance with multiple order clauses" do
-      assert_raise(RuntimeError){ SugarCRM::Account.last({:order_by => 'name, id DESC'}) }
-    end
-    
-    should "raise a RuntimeError when searching for last instance if order clause has weird format" do
-      assert_raise(RuntimeError){ SugarCRM::Account.last({:order_by => 'name id DESC'}) }
-      assert_raise(RuntimeError){ SugarCRM::Account.last({:order_by => 'name DESC id'}) }
-    end
-    
-    should "support searching based on conditions" do
-      accounts = SugarCRM::Account.all({
-        :conditions => { :billing_address_postalcode => ["> '70000'", "< '79999'" ] },
-        :limit => '10',
-       	:order_by => 'billing_address_postalcode'
-      })
-      assert_instance_of SugarCRM::Account, accounts.first
-    end
-    
-    should "support searching based on SQL operators" do
-      accounts = SugarCRM::Account.all({
-        :conditions => { :name => "LIKE '%Inc%'" }
-      })
-      assert accounts
-      assert_instance_of SugarCRM::Account, accounts.first
-    end
-    
-    should "return an an instance of itself when sent #find(id)" do
-      assert_instance_of SugarCRM::User, SugarCRM::User.find(1)
-    end
-    
-    should "receive a response containing all fields when sent #get_entry" do
-      u = SugarCRM::User.find(1)
-      assert_equal u.user_name, "admin"
-    end
-    
-    should "return an array of records when sent #find([id1, id2, id3])" do
-      users = SugarCRM::User.find(["seed_sarah_id", 1])
-      assert_equal "admin", users.last.user_name
-    end
-    
-    # test Base#find_by_sql edge case
-    should "return an array of records with small limit and an offset of 0" do
-      accounts = SugarCRM::Account.all(:limit => 3, :offset => 0)
-      assert_equal 3, accounts.size
-    end
-    
-    # test Base#find_by_sql standard case
-    should "return an array of records with high limit" do
-      accounts = SugarCRM::Account.all(:limit => 12)
-      assert_equal 12, accounts.size
-    end
-    
-    should "return an array of records when using :order_by, :limit, and :offset options" do
-      accounts = SugarCRM::Account.all(:order_by => 'name', :limit => 3, :offset => 10)
-      accounts_api = SugarCRM.connection.get_entry_list('Accounts', '1=1', :order_by => 'name', :limit => 3, :offset => 10)
-      assert_equal accounts_api, accounts
-    end
-    
-    should "return an array of records working around a SugarCRM bug when :limit > :offset" do
-      accounts = SugarCRM::Account.all(:order_by => 'name', :limit => 10, :offset => 2)
-      assert_equal 10, accounts.size
-    end
-    
-    should "return an array of 1 record with :limit => 1, :offset => 1" do
-      accounts = SugarCRM::Account.all(:order_by => 'name', :limit => 1, :offset => 1)
-      assert_equal 1, accounts.size
-    end
-    
-    should "ignore :offset => 0" do
-      accounts = SugarCRM::Account.all(:order_by => 'name', :limit => 3)
-      accounts_offset = SugarCRM::Account.all(:order_by => 'name', :limit => 3, :offset => 0)
-      assert_equal accounts, accounts_offset
-    end
-    
-    should "compute offsets correctly" do
-      accounts = SugarCRM::Account.all(:order_by => 'name', :limit => 10, :offset => 3)
-      accounts_first_slice = SugarCRM::Account.all(:order_by => 'name', :limit => 5, :offset => 3)
-      accounts_second_slice = SugarCRM::Account.all(:order_by => 'name', :limit => 5, :offset => 8)
-      assert_equal accounts, accounts_first_slice.concat(accounts_second_slice)
-    end
-    
-    should "return an instance of User when sent User#find_by_username" do
-      u = SugarCRM::User.find_by_user_name("sarah")
-      assert_equal "sarah@example.com", u.email_addresses.first.email_address
-    end
-    
-    should "create or retrieve a record when #find_or_create_by_name" do
-      a = SugarCRM::Account.find_or_create_by_name("Really Important Co. Name")
-      assert_instance_of SugarCRM::Account, a
-      assert !a.new?
-      b = SugarCRM::Account.find_or_create_by_name("Really Important Co. Name")
-      assert a == b
-      assert a.delete
+    should "respond to destroy" do
+      a = SugarCRM::Account.first
+      assert a.respond_to? :destroy
     end
     
     should "support saving of records with special characters in them" do
@@ -232,10 +111,64 @@ class TestSugarCRM < ActiveSupport::TestCase
       b.last_name = orig_last_name
       b.save!
     end
-  end
+    
+    should "implement Base#update_attribute" do
+      a = SugarCRM::Account.first
+      orig_name = a.name
+      assert a.update_attribute('name', orig_name + 'test')
+      assert_not_equal orig_name, a.name
+      assert a.update_attribute('name', orig_name) # revert changes
+    end
+    
+    should "implement Base#update_attribute!" do
+      a = SugarCRM::Account.first
+      orig_name = a.name
+      assert_nothing_raised do
+        a.update_attribute!('name', orig_name + 'test')
+      end
+      assert_not_equal orig_name, a.name
+      assert a.update_attribute('name', orig_name) # revert changes
+    end
+    
+    should "implement Base#update_attributes" do
+      a = SugarCRM::Account.first
+      orig_name = a.name
+      orig_street = a.billing_address_street
+      assert a.update_attributes(:name => orig_name + 'test', :billing_address_street => orig_street + 'test')
+      assert_not_equal orig_name, a.name
+      assert_not_equal orig_street, a.billing_address_street
+      assert a.update_attributes(:name => orig_name, :billing_address_street => orig_street) # revert changes
+    end
+    
+    should "implement Base#update_attributes!" do
+      a = SugarCRM::Account.first
+      orig_name = a.name
+      orig_street = a.billing_address_street
+      assert_nothing_raised do
+        a.update_attributes!(:name => orig_name + 'test', :billing_address_street => orig_street + 'test')
+      end
+      assert_not_equal orig_name, a.name
+      assert_not_equal orig_street, a.billing_address_street
+      assert a.update_attributes(:name => orig_name, :billing_address_street => orig_street) # revert changes
+    end
+    
+    should "implement Base#persisted?" do
+      a = SugarCRM::Account.new(:name => 'temp')
+      assert ! a.persisted?
+      a.save!
+      assert a.persisted?
+      a.delete
+      assert ! a.persisted?
+    end
   
-  should "respond to #pretty_print" do 
-    assert_respond_to SugarCRM::User.new, :pretty_print
+    should "respond to #pretty_print" do 
+      assert_respond_to SugarCRM::User.new, :pretty_print
+    end
+    
+    should "return an instance's URL" do
+      user = SugarCRM::User.first
+      assert_equal "#{SugarCRM.session.config[:base_url]}/index.php?module=Users&action=DetailView&record=#{user.id}", user.url
+    end
   end
   
 end

metadata

@@ -1,12 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: sugarcrm
 version: !ruby/object:Gem::Version 
-  prerelease: false
+  hash: 33
+  prerelease: 
   segments: 
   - 0
   - 9
-  - 12
-  version: 0.9.12
+  - 13
+  version: 0.9.13
 platform: ruby
 authors: 
 - Carl Hicks
@@ -15,92 +16,98 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2011-03-02 00:00:00 -08:00
+date: 2011-04-06 00:00:00 -07:00
 default_executable: sugarcrm
 dependencies: 
 - !ruby/object:Gem::Dependency 
-  name: activesupport
+  prerelease: false
+  type: :runtime
   requirement: &id001 !ruby/object:Gem::Requirement 
     none: false
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
+        hash: 7
         segments: 
         - 3
         - 0
         - 0
         version: 3.0.0
-  type: :runtime
-  prerelease: false
+  name: activesupport
   version_requirements: *id001
 - !ruby/object:Gem::Dependency 
-  name: i18n
+  prerelease: false
+  type: :runtime
   requirement: &id002 !ruby/object:Gem::Requirement 
     none: false
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
+        hash: 3
         segments: 
         - 0
         version: "0"
-  type: :runtime
-  prerelease: false
+  name: i18n
   version_requirements: *id002
 - !ruby/object:Gem::Dependency 
-  name: json
+  prerelease: false
+  type: :runtime
   requirement: &id003 !ruby/object:Gem::Requirement 
     none: false
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
+        hash: 3
         segments: 
         - 0
         version: "0"
-  type: :runtime
-  prerelease: false
+  name: json
   version_requirements: *id003
 - !ruby/object:Gem::Dependency 
-  name: shoulda
+  prerelease: false
+  type: :development
   requirement: &id004 !ruby/object:Gem::Requirement 
     none: false
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
+        hash: 3
         segments: 
         - 0
         version: "0"
-  type: :development
-  prerelease: false
+  name: shoulda
   version_requirements: *id004
 - !ruby/object:Gem::Dependency 
-  name: bundler
+  prerelease: false
+  type: :development
   requirement: &id005 !ruby/object:Gem::Requirement 
     none: false
     requirements: 
     - - ~>
       - !ruby/object:Gem::Version 
+        hash: 23
         segments: 
         - 1
         - 0
         - 0
         version: 1.0.0
-  type: :development
-  prerelease: false
+  name: bundler
   version_requirements: *id005
 - !ruby/object:Gem::Dependency 
-  name: jeweler
+  prerelease: false
+  type: :development
   requirement: &id006 !ruby/object:Gem::Requirement 
     none: false
     requirements: 
     - - ~>
       - !ruby/object:Gem::Version 
+        hash: 7
         segments: 
         - 1
         - 5
         - 2
         version: 1.5.2
-  type: :development
-  prerelease: false
+  name: jeweler
   version_requirements: *id006
 description: 
 email: carl.hicks@gmail.com
@@ -173,7 +180,6 @@ files:
 - ./lib/sugarcrm/module_methods.rb
 - ./lib/sugarcrm/session.rb
 - ./sugarcrm.gemspec
-- ./sugarcrm.tmproj
 - LICENSE
 - README.rdoc
 - test/connection/test_get_available_modules.rb
@@ -196,6 +202,7 @@ files:
 - test/test_associations.rb
 - test/test_connection.rb
 - test/test_connection_pool.rb
+- test/test_finders.rb
 - test/test_module.rb
 - test/test_response.rb
 - test/test_session.rb
@@ -215,7 +222,7 @@ required_ruby_version: !ruby/object:Gem::Requirement
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
-      hash: 912327613836966464
+      hash: 3
       segments: 
       - 0
       version: "0"
@@ -224,13 +231,14 @@ required_rubygems_version: !ruby/object:Gem::Requirement
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
+      hash: 3
       segments: 
       - 0
       version: "0"
 requirements: []
 
 rubyforge_project: 
-rubygems_version: 1.3.7
+rubygems_version: 1.6.2
 signing_key: 
 specification_version: 3
 summary: A less clunky way to interact with SugarCRM via REST.
@@ -255,6 +263,7 @@ test_files:
 - test/test_associations.rb
 - test/test_connection.rb
 - test/test_connection_pool.rb
+- test/test_finders.rb
 - test/test_module.rb
 - test/test_response.rb
 - test/test_session.rb