sugarcrm 0.9.10 → 0.9.11

data/test/connection/test_get_module_fields.rb

@@ -1,10 +1,7 @@
 require 'helper'
 
-class TestModuleFields < Test::Unit::TestCase
+class TestModuleFields < ActiveSupport::TestCase
   context "A SugarCRM.connection" do
-    setup do
-      SugarCRM::Connection.new(URL, USER, PASS, {:debug => false, :register_modules => false})
-    end
     should "return a hash of module fields when #get_module_fields" do
       fields = SugarCRM.connection.get_module_fields("Users")
       assert_instance_of ActiveSupport::HashWithIndifferentAccess, fields

data/test/connection/test_get_relationships.rb

@@ -1,10 +1,7 @@
 require 'helper'
 
-class TestGetRelationships < Test::Unit::TestCase
+class TestGetRelationships < ActiveSupport::TestCase
   context "A SugarCRM.connection" do
-    setup do
-      SugarCRM::Connection.new(URL, USER, PASS, {:register_modules => false, :debug => false})
-    end
     should "return a list of email_addresses when sent #get_relationship and a user_id" do
       email_addresses = SugarCRM.connection.get_relationships(
         "Users",1,"email_addresses"

data/test/connection/test_get_server_info.rb

@@ -1,10 +1,7 @@
 require 'helper'
 
-class TestGetServerInfo < Test::Unit::TestCase
+class TestGetServerInfo < ActiveSupport::TestCase
   context "A SugarCRM.connection" do
-    setup do
-      SugarCRM::Connection.new(URL, USER, PASS, {:register_modules => false})
-    end
     should "get server info" do
       assert_instance_of String, SugarCRM.connection.get_server_info["version"]
     end

data/test/connection/test_get_user_id.rb

@@ -1,10 +1,7 @@
 require 'helper'
 
-class TestGetUserID < Test::Unit::TestCase
+class TestGetUserID < ActiveSupport::TestCase
   context "A SugarCRM.connection" do
-    setup do
-      SugarCRM::Connection.new(URL, USER, PASS, {:register_modules => false})
-    end
     should "get the ID of the logged in user" do
       assert true, SugarCRM.connection.get_user_id  
     end

data/test/connection/test_get_user_team_id.rb

@@ -1,10 +1,7 @@
 require 'helper'
 
-class TestGetUserTeamID < Test::Unit::TestCase
+class TestGetUserTeamID < ActiveSupport::TestCase
   context "A SugarCRM.connection" do
-    setup do
-      SugarCRM::Connection.new(URL, USER, PASS, {:register_modules => false})
-    end
     should "get the team ID of the logged in user" do
       assert true, SugarCRM.connection.get_user_team_id
     end

data/test/connection/test_login.rb

@@ -1,12 +1,10 @@
 require 'helper'
 
-class TestLogin < Test::Unit::TestCase
+class TestLogin < ActiveSupport::TestCase
   context "A SugarCRM.connection" do
-    setup do
-      SugarCRM::Connection.new(URL, USER, PASS, {:register_modules => false})
-    end
     should "login and set session id" do
-      assert (SugarCRM.connection.session.class == String)
+      assert (SugarCRM.connection.session_id.class == String)
+      assert_equal SugarCRM.connection.session.id, SugarCRM.connection.session_id
     end
   end
 end

data/test/connection/test_logout.rb

@@ -1,10 +1,7 @@
 require 'helper'
 
-class TestLogout < Test::Unit::TestCase
+class TestLogout < ActiveSupport::TestCase
   context "A SugarCRM.connection" do
-    setup do
-      SugarCRM::Connection.new(URL, USER, PASS, {:register_modules => false})
-    end
     should "logout and not be able to login with the old session id" do
       assert (SugarCRM.connection.logout.class == Hash)
     end

data/test/connection/test_set_note_attachment.rb

@@ -1,9 +1,8 @@
 require 'helper'
 
-class TestSetNoteAttachment < Test::Unit::TestCase
+class TestSetNoteAttachment < ActiveSupport::TestCase
   context "A SugarCRM.connection" do
     should "Add an attachment to a Note" do
-      SugarCRM.connect(URL, USER, PASS, {:debug => false})
       n = SugarCRM::Note.new
       n.name = "A Test Note"
       assert n.save

data/test/connection/test_set_relationship.rb

@@ -1,9 +1,8 @@
 require 'helper'
 
-class TestSetRelationship < Test::Unit::TestCase
+class TestSetRelationship < ActiveSupport::TestCase
   context "A SugarCRM.connection" do
     should "add and remove a relationship when #set_relationship" do
-      SugarCRM.connect(URL, USER, PASS, {:debug => false})    
       meeting  = SugarCRM::Meeting.new
       meeting.date_start = DateTime.now
       meeting.duration_hours = 0.5

data/test/helper.rb

@@ -6,13 +6,11 @@ $LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
 $LOAD_PATH.unshift(File.dirname(__FILE__))
 require 'sugarcrm'
 
-class Test::Unit::TestCase
-  # Replace these with your test instance
-  URL   = "http://localhost:8080/sugarcrm"
-  USER  = "admin"
-  PASS  = 'letmein' 
+CONFIG_PATH = File.join(File.dirname(__FILE__),'config.yaml')
 
-  def setup_connection
-    SugarCRM.connect(URL, USER, PASS, {:debug => false})
-  end
+class ActiveSupport::TestCase
+  # put your credentials into a YAML file in the test directory
+  # the format should be identical to the config_test.yaml found in the same directory
+  raise "test/config.yaml file not found. See README for instructions on setting up a testing environment" unless File.exists? CONFIG_PATH
+  SugarCRM::Session.new_from_file(CONFIG_PATH)
 end

data/test/test_association_collection.rb

@@ -1,9 +1,8 @@
 require 'helper'
 
-class TestAssociationCollection < Test::Unit::TestCase
+class TestAssociationCollection < ActiveSupport::TestCase
   context "A SugarCRM::AssociationCollection instance" do
     should "create a new instance when #new" do
-      SugarCRM.connect!(URL, USER, PASS)
       u   = SugarCRM::User.find("seed_sarah_id")
       ac  = SugarCRM::AssociationCollection.new(u,:email_addresses)
       assert_instance_of SugarCRM::AssociationCollection, ac

data/test/test_associations.rb

@@ -1,6 +1,6 @@
 require 'helper'
 
-class TestAssociations < Test::Unit::TestCase
+class TestAssociations < ActiveSupport::TestCase
   context "A SugarCRM::Associations class" do
     should "Return an array of Association objects when self#register(SugarCRM::User.new)" do
       associations = SugarCRM::Associations.register(SugarCRM::User.new)
@@ -8,6 +8,23 @@ class TestAssociations < Test::Unit::TestCase
       assert associations.proxy_methods.include? "email_addresses"
     end
   end
+  
+  context "A SugarCRM::Association class" do
+    should "compute relationship cardinality correctly" do
+      c = SugarCRM::Case.first
+      link_fields_hash = c.associations.classify{|i| i.link_field}
+      # TODO: test one_to_one cardinality by creating custom module with custom relationship
+      # (no "official" one-to-one relationship exists in Sugar out of the box)
+      assert_equal :one_to_many, link_fields_hash['calls'].first.cardinality
+      assert_equal :many_to_one, link_fields_hash['accounts'].first.cardinality
+      assert_equal :many_to_many, link_fields_hash['contacts'].first.cardinality
+    end
+    should "respond to #pretty_print" do
+      a = SugarCRM::Case.first.associations.first
+      assert_respond_to a, :pretty_print
+    end
+  end
+  
   context "A SugarCRM::Base instance" do
     should "return an email address when sent #email_addresses" do
       u = SugarCRM::User.find("seed_sarah_id")

data/test/test_connection.rb

@@ -1,17 +1,13 @@
 require 'helper'
 
-class TestConnection < Test::Unit::TestCase
+class TestConnection < ActiveSupport::TestCase
   context "A SugarCRM::Connection instance" do
-    setup do
-      @connection = SugarCRM::Connection.new(URL, USER, PASS)
-    end
     should "retrieve the list of available modules" do
       assert_instance_of Array, SugarCRM.modules
       assert_instance_of SugarCRM::Module, SugarCRM.modules[0]
     end
     should "create sub-classes by module name" do
-      @connection = SugarCRM::Connection.new(URL, USER, PASS, {:register_modules => true})
-      assert SugarCRM.const_defined? "User"
+      assert SugarCRM.session.namespace_const.const_defined? "User"
     end
   end
 end

data/test/test_module.rb

@@ -1,12 +1,7 @@
 require 'helper'
 
-class TestModule < Test::Unit::TestCase
+class TestModule < ActiveSupport::TestCase
   context "A SugarCRM::Module instance" do
-    
-    setup do
-      @connection = SugarCRM::Connection.new(URL, USER, PASS)
-    end
-    
     should "respond to #fields" do
       assert_respond_to SugarCRM.modules[0], :fields
     end
@@ -20,4 +15,37 @@ class TestModule < Test::Unit::TestCase
     #  assert_equal "accounts_cstm", SugarCRM::Account._module.custom_table_name
     #end
   end
+  
+  context "SugarCRM::Module" do
+    should "find modules" do
+      assert_instance_of SugarCRM::Module, SugarCRM::Module.find("Accounts")
+    end
+    
+    should "(de)register all modules" do
+      assert SugarCRM.modules.size > 0
+      assert SugarCRM.session.namespace_const.const_defined? 'User'
+      
+      SugarCRM::Module.deregister_all(SugarCRM.session)
+      assert SugarCRM.modules.size == 0
+      assert ! (SugarCRM.session.namespace_const.const_defined? 'User')
+      
+      SugarCRM::Module.register_all(SugarCRM.session)
+      assert SugarCRM.modules.size > 0
+      assert SugarCRM.session.namespace_const.const_defined? 'User'
+    end
+  end
+  
+  context "The SugarCRM class" do
+    should "return current user" do
+      current_user = SugarCRM.current_user
+      assert_instance_of SugarCRM::User, current_user
+      assert_equal SugarCRM.config[:username], current_user.user_name
+    end
+    
+    should "implement reload!" do
+      assert_nothing_raised do
+        SugarCRM.reload!
+      end
+    end
+  end
 end

data/test/test_response.rb

@@ -1,9 +1,8 @@
 require 'helper'
 
-class TestResponse < Test::Unit::TestCase
+class TestResponse < ActiveSupport::TestCase
   context "A SugarCRM::Response instance" do
     setup do
-      @connection = SugarCRM::Connection.new(URL, USER, PASS)
       @json =  {"entry_list"=> [{
                 "name_value_list"=> {
                   "address_city" => {"name"=>"address_city", "value"=>""},
@@ -16,7 +15,7 @@ class TestResponse < Test::Unit::TestCase
               }],
              "relationship_list"=>[]}
   
-      @response = SugarCRM::Response.handle(@json)
+      @response = SugarCRM::Response.handle(@json, SugarCRM.session)
     end
       
     should "return an instance of a SugarCRM Module" do

data/test/test_session.rb

@@ -0,0 +1,109 @@
+require 'helper'
+
+class TestSession < ActiveSupport::TestCase
+  context "The SugarCRM::Session class" do
+    should "raise SugarCRM::MissingCredentials if at least one of url/username/password is missing" do
+      assert_raise(SugarCRM::MissingCredentials){ SugarCRM.connect('http://127.0.0.1/sugarcrm', nil, nil) }
+    end
+    
+    should "assign namespaces in a way that prevents collisions" do
+      # Namespae0 already assigned (linked to the current connection)
+      One = SugarCRM::Session.new_from_file(CONFIG_PATH)
+      Two = SugarCRM::Session.new_from_file(CONFIG_PATH)
+      One.disconnect!
+      Three = SugarCRM::Session.new_from_file(CONFIG_PATH)
+      assert_not_equal Two, Three # namespaces must be different
+      Two.disconnect!
+      Three.disconnect!
+    end
+  end
+
+  context "A SugarCRM::Session instance" do
+    should "load monkey patch extensions" do
+      SugarCRM.extensions_folder = File.join(File.dirname(__FILE__), 'extensions_test')
+      assert SugarCRM::Contact.is_extended?
+      assert SugarCRM::Contact.is_extended?
+    end
+    
+    should "implement reload!" do
+      assert_nothing_raised do
+        SugarCRM.reload!
+      end
+    end
+    
+    should "load config file" do
+      SugarCRM.load_config File.join(File.dirname(__FILE__), 'config_test.yaml')
+      config_contents = { 
+        :config => {
+          :base_url => 'http://127.0.0.1/sugarcrm',
+          :username => 'admin',
+          :password => 'letmein'
+        }
+      }
+      config_contents[:config].each{|k,v| assert_equal v, SugarCRM.config[k]}
+    end
+    
+    should "be able to disconnect, and log in to Sugar automatically if credentials are present in config file" do
+      assert_nothing_raised{ SugarCRM.current_user }
+      assert SugarCRM.sessions.size == 1
+    
+      SugarCRM.disconnect!
+      assert SugarCRM.sessions.size == 0
+      
+      assert_raise(SugarCRM::NoActiveSession){ SugarCRM.current_user }
+      
+      SugarCRM::Session.new_from_file(CONFIG_PATH)
+      
+      assert_nothing_raised{ SugarCRM.current_user }
+      assert SugarCRM.sessions.size == 1
+    end
+    
+    should "update the login credentials on connection" do
+      config = YAML.load_file(CONFIG_PATH) # was loaded in helper.rb
+      ["base_url", "username", "password"].each{|k|
+        assert_equal config["config"][k], SugarCRM.config[k.to_sym]
+      }
+    end
+    
+    should "return the server version" do
+      assert_equal String, SugarCRM.sugar_version.class
+    end
+  end
+  
+  context "The SugarCRM module" do
+    should "show the only the namespaces currently in use with SugarCRM.namespaces" do
+      assert_equal 1, SugarCRM.namespaces.size
+      
+      assert_difference('SugarCRM.namespaces.size') do
+        OneA = SugarCRM::Session.new_from_file(CONFIG_PATH)
+      end
+      
+      assert_difference('SugarCRM.namespaces.size', -1) do
+        OneA.disconnect!
+      end
+    end
+    
+    should "add a used namespace on each new connection" do
+      assert_difference('SugarCRM.used_namespaces.size') do
+        OneB = SugarCRM::Session.new_from_file(CONFIG_PATH)
+      end
+      
+      # connection (and namespace) is reused => no used namespace should be added
+      assert_no_difference('SugarCRM.used_namespaces.size') do
+        OneB.reconnect!
+      end
+      
+      assert_no_difference('SugarCRM.used_namespaces.size') do
+        OneB.disconnect!
+      end
+    end
+    
+    should "not allow access to methods on SugarCRM if there are multiple active connections" do
+      OneC = SugarCRM::Session.new_from_file(CONFIG_PATH)
+      
+      assert_raise(SugarCRM::MultipleSessions){ SugarCRM.current_user }
+      
+      OneC.disconnect!
+    end
+  end
+end

data/test/test_sugarcrm.rb

@@ -1,15 +1,10 @@
 require 'helper'
 
-class TestSugarCRM < Test::Unit::TestCase
+class TestSugarCRM < ActiveSupport::TestCase
   context "A SugarCRM::Base instance" do
     
-    should "establish a connection when SugarCRM#connect!" do
-      SugarCRM.connect!(URL, USER, PASS)
-      assert SugarCRM.connection.connected?
-    end
-    
     should "establish a connection when Base#establish_connection" do
-      SugarCRM::Base.establish_connection(URL, USER, PASS)
+      # Base#establish_connection was called automatically when loading config file containing connection params
       assert SugarCRM.connection.connected?
     end
   
@@ -96,6 +91,40 @@ class TestSugarCRM < Test::Unit::TestCase
       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'" ] },
@@ -188,6 +217,28 @@ class TestSugarCRM < Test::Unit::TestCase
       assert a.save!
       assert a.delete
     end
+    
+    should "implement Base#reload!" do
+      a = SugarCRM::User.last
+      b = SugarCRM::User.last
+      assert_not_equal 'admin', a.user_name # make sure we don't mess up admin user
+      # Save the original value, so we can set it back.
+      orig_last_name = a.last_name.dup
+      diff_last_name = a.last_name + 'crm'
+      b.last_name    = diff_last_name
+      b.save!
+      # Compare the two user objects
+      assert_not_equal b.last_name, a.last_name
+      a.reload!
+      assert_equal a.last_name, b.last_name
+      # Set the name back to what it was before
+      b.last_name = orig_last_name
+      b.save!
+    end
+  end
+  
+  should "respond to #pretty_print" do 
+    assert_respond_to SugarCRM::User.new, :pretty_print
   end
   
 end