cockpit 0.0.1.5

data/test/test_settings.rb

@@ -0,0 +1,228 @@
+require File.join(File.dirname(__FILE__), 'test_helper')
+
+class SettingsTest < ActiveSupport::TestCase
+  
+  context "Settings" do
+    
+    setup do
+      Settings.store = :memory
+      Settings.set(:lance => "first", :dane => 2)
+    end
+    
+    should "have have values" do
+      desired_result = {
+        :lance => {
+          :type => :string,
+          :value => "first"
+        },
+        :dane => {
+          :type => :integer,
+          :value => 2
+        }
+      }
+      assert_equal(desired_result, Settings.tree)
+    end
+    
+    context "get" do
+      
+      setup do
+        Settings.clear
+        Settings.set(:lance => "first", :dane => 2)
+      end
+      
+      should "be able to get values" do
+        assert_equal "first", Settings.get(:lance).value
+        assert_equal :string, Settings.get(:lance).value_type
+        assert_equal :integer, Settings.get(:dane).value_type
+      end
+      
+      should "be able ot get values by using string" do
+        assert_equal "first", Settings.get("lance").value
+      end
+      
+      should "be able to get values using all syntax" do
+        assert_equal "first", Settings.get("lance").value
+        assert_equal "first", Settings("lance").value
+        assert_equal "first", Settings["lance"].value
+        assert_equal "first", Settings.lance.value
+      end
+      
+      should "return empty TreeHash if value doesn't exist" do
+        assert_equal({}, Settings.get("nope"))
+        assert_equal false, Settings.get("nope").nil?
+        assert Settings.get("nope").empty?
+        assert Settings.get("nope").blank?
+        assert_equal({}, Settings["asset.thumb.random"].value)
+      end
+      
+      should "raise an error if we use exclamation on 'get!'" do
+        assert_raise(RuntimeError) { Settings.get!("nope") }
+      end
+    end
+    
+    context "set" do
+      
+      setup do
+        Settings.clear
+      end
+      
+      should "be able to set new values" do
+        Settings.set(:name => "value")
+        assert_equal "value", Settings[:name].value
+      end
+      
+      should "be able to set using []=" do
+        Settings[:name] = "value"
+        assert_equal "value", Settings[:name].value
+      end
+      
+      should "not be able to set a value if it's a string" do
+        assert_equal nil, Settings.set("set value")
+      end
+      
+      should "be able to set a value using parentheses syntax" do
+        Settings("path.to.hash" => "me")
+        assert_equal "me", Settings("path.to.hash").value
+      end
+      
+    end
+    
+    context "nested values" do
+      
+      should "be able to set nested value by string key" do
+        Settings["a.nested.string"] = "value"
+        assert_equal "value", Settings["a.nested.string"].value
+        assert_kind_of Cockpit::TreeHash, Settings["a.nested"]
+      end
+      
+      should "be able to change string to further nested hash" do
+        Settings["a.nested.string"] = "value"
+        assert_equal "value", Settings["a.nested.string"].value
+        Settings["a.nested.string.with.further.depth"] = "value"
+        assert_equal "value", Settings["a.nested.string.with.further.depth"].value
+        Settings["a.nested.string"] = "value"
+        assert_equal "value", Settings["a.nested.string"].value
+      end
+      
+    end
+    
+    context "with dsl" do
+      
+      setup do
+        Settings.clear
+        Settings do
+          asset :title => "Asset (and related) Settings" do
+            thumb do
+              width 100, :tip => "Thumb's width"
+              height 100, :tip => "Thumb's height"
+            end
+          end
+        end
+      end
+      
+      should "property should be a hash of values" do
+        desired_result = {
+          :type => :integer,
+          :value => 100,
+          :tip => "Thumb's width"
+        }
+        assert_equal(desired_result, Settings["asset.thumb.width"])
+      end
+      
+      should "be able to call 'value' on object" do
+        assert_equal 100, Settings["asset.thumb.width.value"]
+        assert_equal 100, Settings["asset.thumb.width"].value
+      end
+      
+      should "be able to call 'tip' if it has tooltip" do
+        assert_equal "Thumb's width", Settings["asset.thumb.width"].tip
+      end
+      
+      should "be able to call 'tip' through chain" do
+        assert_equal "Thumb's width", Settings.asset.thumb.width.tip
+      end
+      
+      context "should be able to take a lambda as a value" do
+        
+        setup do
+          Settings.clear
+          @languages = %w(English Italian Spanish)
+          Settings do
+            site :title => "Default Site Settings" do
+              languages :value => lambda { %w(English Italian Spanish) }
+            end
+          end
+        end
+        
+        should "have a proc as a value" do
+          assert_kind_of Proc, Settings["site.languages.value"]
+        end
+        
+        should "be able to call the proc" do
+          assert @languages, Settings["site.languages.value"].call
+        end
+                
+      end
+      
+      context "should be able to take a Proc.new as a value" do
+        setup do
+          Settings.clear
+          @timezones = %w(pacific central eastern)
+          Settings do
+            site :title => "Default Site Settings" do
+              timezones :value => Proc.new { %w(pacific central eastern) }
+            end
+          end
+        end
+        
+        should "have a proc as a value" do
+          assert_kind_of Proc, Settings["site.timezones.value"]
+        end
+        
+        should "be able to call the proc" do
+          assert @timezones, Settings["site.timezones.value"].call
+        end
+      end
+      
+      context "should be able to take a large dsl and make something of it!" do
+        
+        setup do
+          Settings.clear
+          load_settings
+        end
+        
+        should "find the nested teaser" do
+          assert_equal 2, Settings["site.teasers.right"].value
+        end
+        
+      end
+      
+    end
+    
+    context "setting categories" do
+      
+      setup do
+        Settings.clear
+        load_settings
+      end
+      
+      should "be able to get settings by category" do
+        [:site, :asset].each do |type|
+          assert Settings[type].keys
+        end
+      end
+
+      should "traverse categories" do
+        Settings(:site).each_setting do |key, attributes, value|
+          assert attributes
+          #puts "Key: #{key.to_s}, Attributes: #{attributes.inspect}, Value: #{value.inspect}"
+        end
+      end
+      
+    end
+    
+    teardown { Settings.clear }
+    
+  end
+  
+end

data/test/test_settings_in_database.rb

@@ -0,0 +1,153 @@
+require File.join(File.dirname(__FILE__), 'test_helper')
+
+class SettingsTest < ActiveSupport::TestCase
+  
+  context "Database Store" do
+    
+    setup do
+      Settings.clear
+      Settings.store = :db
+    end
+    
+    should "have a db as a store" do
+      assert_kind_of Cockpit::Store::Database, Settings.store
+    end
+    
+    context "save to the database" do
+      
+      setup do
+        Settings["lantial"] = "to database"
+        Settings["pollard"] = "another"
+      end
+      
+      should "have saved lance into the database" do
+        assert_equal "to database", Setting.find_by_key("lantial").value
+      end
+      
+      should "be able to change a database record through tree" do
+        assert_equal "another", Setting.find_by_key("pollard").value
+        Settings["pollard"] = "first change"
+        assert_equal "first change", Setting.find_by_key("pollard").value
+      end
+      
+      should "NOT be able to change a database record independently of the tree" do
+        setting = Setting.find_by_key("pollard")
+        assert_equal "another", setting.value
+        setting.value = "changed!"
+        setting.save
+        
+        assert_equal "changed!", Setting.find_by_key("pollard").value
+        assert_equal "changed!", Settings["pollard"].value
+      end
+      
+      context "get value" do
+        
+        setup do
+          Settings.store = :db
+          Settings.clear(:hard => true)
+        end
+        
+        should "be able to get a previously created setting from the db" do
+          assert_equal Cockpit::TreeHash.new, Settings.tree
+          Setting.create(:key => "lantial", :value => "custom value")
+          assert_equal "custom value", Settings["lantial"].value
+          assert_equal({:lantial => {:type => :string, :value => "custom value"}}, Settings.tree)
+        end
+        
+        should "be able to save objects using other syntax" do
+          key = "im.a.nested.key"
+          value = "wow"
+          assert_equal nil, Setting.find_by_key(key)
+          Settings.im.a.nested.key = value
+          assert_equal value, Settings(key).value
+          # PENDING!
+          # assert_equal value, Setting.find_by_key(key)
+          Settings("im.nesting.myself" => "here")
+          assert_equal "here", Setting.find_by_key("im.nesting.myself").value
+          Settings["me.too.please"] = "let me in"
+          assert_equal "let me in", Setting.find_by_key("me.too.please").value
+          Settings.set("finally.me" => "too")
+          assert_equal "too", Setting.find_by_key("finally.me").value
+        end
+        
+      end
+      
+      context "should not save large tree to database" do
+        
+        setup do
+          Settings.clear
+          load_settings
+        end
+        
+        should "find nested objects in database" do
+          assert_equal nil, Setting.find_by_key("site.title")
+        end
+        
+      end
+      
+      context "should find setting" do
+        
+        setup do
+          Settings.store = :db
+          Settings("lantial" => "saved")
+        end
+        
+        should "find the thing" do
+          setting = Setting.find("lantial")
+          assert setting
+        end
+        
+        teardown do
+          Settings.store = :memory
+        end
+        
+      end
+      
+    end
+    
+    should "be able to switch the store without modifying the tree" do
+      # pending
+    end
+    
+    context "type casting" do
+      
+      setup do
+        @datetime = DateTime.now
+        @time     = Time.now
+        Settings.store = :db
+        Setting.detonate
+        Settings["a.string"] = "string"
+        Settings["a.boolean"] = true
+        Settings["a.false_boolean"] = false
+        Settings["a.integer"] = 10
+        Settings["a.float"] = 10.11
+        Settings["a.datetime"] = @datetime
+        Settings["a.time"] = @time
+      end
+      
+      should "parse types" do
+        assert_equal "string",        Setting.find("a.string").value
+        assert_equal true,            Setting.find("a.boolean").value
+        assert_equal false,           Setting.find("a.false_boolean").value
+        assert_equal 10,              Setting.find("a.integer").value
+        assert_equal 10.11,           Setting.find("a.float").value
+        assert_equal @time.to_s,      Setting.find("a.time").value.to_s
+      end
+      
+      should "parse datetime" do
+        # close but not quite
+        # assert_equal @datetime, Setting.find("a.datetime").value
+        # pending
+      end
+      
+      teardown do
+        Setting.detonate
+      end
+      
+    end
+    
+    teardown { Settings.clear }
+    
+  end
+  
+end

data/test/test_settings_on_model.rb

@@ -0,0 +1,68 @@
+require File.join(File.dirname(__FILE__), 'test_helper')
+
+class SettingsTest < ActiveSupport::TestCase
+  
+  context "Settings" do
+    context "acts_as_configurable module" do
+      
+      setup do
+        @user = User.new
+      end
+      
+      should "have added settings to global hash" do
+        assert User.settings
+        assert_equal "Lance", @user.settings.name.value
+        assert_equal({:type => :string, :value => "red"}, @user.settings.favorite.color)
+      end
+      
+      should "be able to set value" do
+        Settings.user.login = "LOGIN"
+        assert_equal({:type=>:string, :value => "LOGIN"}, Settings.user.login)
+        assert_equal "LOGIN", Settings.user.login.value
+      end
+      
+      context "multiple users, custom settings" do
+        
+        setup do
+          Settings.clear(:except => [:user])
+          @user_a = User.create
+          @user_b = User.create
+          @now    = Time.now
+        end
+        
+        should "be able to change settings for user instances" do
+          @user_a.settings[:im_a] = "yes"
+          @user_b.settings[:im_b] = "yippee"
+          assert_equal "yes", @user_a.settings(:im_a).value
+          assert_equal "yippee", @user_b.settings.im_b.value
+          assert_not_equal @user_a.settings, Settings(:user)
+          assert_not_equal "yes", Settings(:user).im_a.value # global settings not changed
+        end
+        
+        should "be able to save the user" do
+          @user_a.settings.store = :db
+          @user_a.settings["im_a.having.fun"] = "lance"
+          @user_a.settings["im_a.having.a.good.time"] = @now
+          assert @user_a.valid?
+          assert_equal "lance", Setting.find_by_key("im_a.having.fun").value
+          assert_equal @user_a, Setting.find_by_key("im_a.having.fun").configurable
+          assert_equal @user_a, Setting.find_by_key("im_a.having.a.good.time").configurable
+          assert_equal @now.to_s, Setting.find_by_key("im_a.having.a.good.time").value.to_s
+          # global settings should be unchanged
+          assert_kind_of Cockpit::Store::Database, @user_a.settings.store
+          #assert_kind_of Cockpit::Store::Memory, Settings.store
+        end
+        
+        teardown do
+          @user_a.settings.store = :memory
+        end
+        
+      end
+      
+    end
+    
+    teardown { Settings.clear(:except => [:user]) }
+    
+  end
+  
+end