typus 3.0.6 → 3.0.7

data/test/lib/support/string_test.rb

@@ -0,0 +1,116 @@
+require "test_helper"
+
+class StringTest < ActiveSupport::TestCase
+
+  should "extract_settings" do
+    assert_equal %w( a b c ), "a, b, c".extract_settings
+    assert_equal %w( a b c ), " a  , b,  c ".extract_settings
+  end
+
+  context "remove_prefix" do
+
+    should "return strings without default prefix" do
+      assert_equal "posts", "admin/posts".remove_prefix
+      assert_equal "typus_users", "admin/typus_users".remove_prefix
+      assert_equal "delayed/jobs", "admin/delayed/jobs".remove_prefix
+    end
+
+    should "return strings without custom prefix" do
+      assert_equal "posts", "typus/posts".remove_prefix
+      assert_equal "typus_users", "typus/typus_users".remove_prefix
+      assert_equal "delayed/tasks", "typus/delayed/tasks".remove_prefix
+    end
+
+  end
+
+  context "extract_class" do
+
+    setup do
+      class SucursalBancaria; end
+
+      Typus::Configuration.models_constantized = { "Post" => Post,
+                                                   "TypusUser" => TypusUser,
+                                                   "Delayed::Task" => Delayed::Task,
+                                                   "SucursalBancaria" => SucursalBancaria }
+    end
+
+    should "work for models" do
+      assert_equal Post, "admin/posts".extract_class
+      assert_equal TypusUser, "admin/typus_users".extract_class
+    end
+
+    should "work for namespaced models" do
+      assert_equal Delayed::Task, "admin/delayed/tasks".extract_class
+    end
+
+    should "work with inflections" do
+      assert_equal SucursalBancaria, "admin/sucursales_bancarias".extract_class
+    end
+
+  end
+
+  context "action_mapper" do
+
+    should "return list for index" do
+      assert_equal :list, 'index'.action_mapper
+    end
+
+    should "return form for new, create, edit and update" do
+      %w(new create edit update).each do |action|
+        assert_equal :form, action.action_mapper
+      end
+    end
+
+    should "return the same action for everything else" do
+      assert_equal 'undefined', 'undefined'.action_mapper
+    end
+
+  end
+
+  context "acl_action_mapper" do
+
+    should "return create" do
+      %w(new create).each do |action|
+        assert_equal "create", action.acl_action_mapper
+      end
+    end
+
+    should "return read" do
+      %w(index show).each do |action|
+        assert_equal "read", action.acl_action_mapper
+      end
+    end
+
+    should "return update" do
+      %w(edit update position toggle relate unrelate).each do |action|
+        assert_equal "update", action.acl_action_mapper
+      end
+    end
+
+    should "return delete" do
+      %w(destroy trash).each do |action|
+        assert_equal "delete", action.acl_action_mapper
+      end
+    end
+
+    should "return other" do
+      %w(other).each do |action|
+        assert_equal "other", action.acl_action_mapper
+      end
+    end
+
+  end
+
+  context "to_resource" do
+
+    should "convert String into resource" do
+      assert_equal "entries", "Entry".to_resource
+    end
+
+    should "convert namespaced String into resource" do
+      assert_equal "category/entries", "Category::Entry".to_resource
+    end
+
+  end
+
+end

data/test/lib/typus/configuration_test.rb

@@ -0,0 +1,46 @@
+require "test_helper"
+
+class ConfigurationTest < ActiveSupport::TestCase
+
+  should "verify typus roles is loaded" do
+    assert Typus::Configuration.respond_to?(:roles!)
+    assert Typus::Configuration.roles!.is_a?(Hash)
+  end
+
+  should "verify typus config file is loaded" do
+    assert Typus::Configuration.respond_to?(:config!)
+    assert Typus::Configuration.config!.is_a?(Hash)
+  end
+
+  should "load configuration files from config broken" do
+    Typus.expects(:config_folder).at_least_once.returns("test/fixtures/config/broken")
+    assert_not_equal Hash.new, Typus::Configuration.roles!
+    assert_not_equal Hash.new, Typus::Configuration.config!
+  end
+
+  should "load configuration files from config empty" do
+    Typus.expects(:config_folder).at_least_once.returns("test/fixtures/config/empty")
+    assert_equal Hash.new, Typus::Configuration.roles!
+    assert_equal Hash.new, Typus::Configuration.config!
+  end
+
+  should "load configuration files from config ordered" do
+    Typus.expects(:config_folder).at_least_once.returns("test/fixtures/config/ordered")
+    expected = { "admin" => { "categories" => "read" } }
+    assert_equal expected, Typus::Configuration.roles!
+  end
+
+  should "load configuration files from config unordered" do
+    Typus.expects(:config_folder).at_least_once.returns("test/fixtures/config/unordered")
+    expected = { "admin" => { "categories" => "read, update" } }
+    assert_equal expected, Typus::Configuration.roles!
+  end
+
+  should "load configuration files from config default" do
+    Typus.expects(:config_folder).at_least_once.returns("test/fixtures/config/default")
+    assert_not_equal Hash.new, Typus::Configuration.roles!
+    assert_not_equal Hash.new, Typus::Configuration.config!
+    assert Typus.resources.empty?
+  end
+
+end

data/test/lib/typus/controller/actions_test.rb

@@ -0,0 +1,141 @@
+require "test_helper"
+
+class ActionsTest < ActiveSupport::TestCase
+
+  include Typus::Controller::Actions
+
+  context "add_resource_action" do
+
+    should "work" do
+      output = add_resource_action("something")
+      assert_equal [["something"]], @resource_actions
+    end
+
+    should "work when no params are set" do
+      add_resource_action()
+      assert @resource_actions.empty?
+    end
+
+  end
+
+  context "prepend_resource_action" do
+
+    should "work without args" do
+      prepend_resource_action()
+      assert @resource_actions.empty?
+    end
+
+    should "work with args" do
+      prepend_resource_action("something")
+      assert_equal [["something"]], @resource_actions
+    end
+
+    should "work prepending an action without args" do
+      add_resource_action("something")
+      prepend_resource_action()
+      assert_equal [["something"]], @resource_actions
+    end
+
+    should "work prepending an action with args" do
+      add_resource_action("something")
+      prepend_resource_action("something_else")
+      assert_equal [["something_else"], ["something"]], @resource_actions
+    end
+
+  end
+
+  context "append_resource_action" do
+
+    should "work without args" do
+      append_resource_action()
+      assert @resource_actions.empty?
+    end
+
+    should "work with args" do
+      append_resource_action("something")
+      assert_equal [["something"]], @resource_actions
+    end
+
+    should "work appending an action without args" do
+      add_resource_action("something")
+      append_resource_action()
+      assert_equal [["something"]], @resource_actions
+    end
+
+    should "work appending an action with args" do
+      add_resource_action("something")
+      append_resource_action("something_else")
+      assert_equal [["something"], ["something_else"]], @resource_actions
+    end
+
+  end
+
+  # FIXME: Cleanup all test after this line.
+
+  context "add_resources_action" do
+
+    should "work" do
+      add_resources_action("something")
+      assert_equal [["something"]], @resources_actions
+    end
+
+    should "work when no params are set" do
+      add_resources_action()
+      assert @resources_actions.empty?
+    end
+
+  end
+
+  context "prepend_resources_action" do
+
+    should "work without args" do
+      prepend_resources_action()
+      assert @resources_actions.empty?
+    end
+
+    should "work with args" do
+      prepend_resources_action("something")
+      assert_equal [["something"]], @resources_actions
+    end
+
+    should "work prepending an action without args" do
+      add_resources_action("something")
+      prepend_resources_action()
+      assert_equal [["something"]], @resources_actions
+    end
+
+    should "work prepending an action with args" do
+      add_resources_action("something")
+      prepend_resources_action("something_else")
+      assert_equal [["something_else"], ["something"]], @resources_actions
+    end
+
+  end
+
+  context "append_resources_action" do
+
+    should "work without args" do
+      append_resources_action()
+      assert @resources_actions.empty?
+    end
+
+    should "work with args" do
+      append_resources_action("something")
+      assert_equal [["something"]], @resources_actions
+    end
+
+    should "work appending an action without args" do
+      add_resources_action("something")
+      append_resources_action()
+      assert_equal [["something"]], @resources_actions
+    end
+
+    should "work appending an action with args" do
+      add_resources_action("something")
+      append_resources_action("something_else")
+      assert_equal [["something"], ["something_else"]], @resources_actions
+    end
+
+  end
+
+end

data/test/lib/typus/controller/associations_test.rb

@@ -0,0 +1,7 @@
+require "test_helper"
+
+class AssociationsTest < ActiveSupport::TestCase
+
+  include Typus::Controller::Associations
+
+end

data/test/lib/typus/controller/autocomplete_test.rb

@@ -0,0 +1,7 @@
+require "test_helper"
+
+class AutocompleteTest < ActiveSupport::TestCase
+
+  include Typus::Controller::Autocomplete
+
+end

data/test/lib/typus/controller/filters_test.rb

@@ -0,0 +1,73 @@
+require "test_helper"
+
+class FiltersTest < ActiveSupport::TestCase
+
+  include Typus::Controller::Filters
+
+  context "add_predefined_filter" do
+
+    should "work without args" do
+      add_predefined_filter()
+      assert @predefined_filters.empty?
+    end
+
+    should "work with args" do
+      add_predefined_filter("something")
+      assert_equal [["something"]], @predefined_filters
+    end
+
+  end
+
+  context "prepend_predefined_filter" do
+
+    should "work without args" do
+      prepend_predefined_filter()
+      assert @predefined_filters.empty?
+    end
+
+    should "work with args" do
+      prepend_predefined_filter("something")
+      assert_equal [["something"]], @predefined_filters
+    end
+
+    should "work prepending an action without args" do
+      add_predefined_filter("something")
+      prepend_predefined_filter()
+      assert_equal [["something"]], @predefined_filters
+    end
+
+    should "work prepending an action with args" do
+      add_predefined_filter("something")
+      prepend_predefined_filter("something_else")
+      assert_equal [["something_else"], ["something"]], @predefined_filters
+    end
+
+  end
+
+  context "append_predefined_filter" do
+
+    should "work without args" do
+      append_predefined_filter()
+      assert @predefined_filters.empty?
+    end
+
+    should "work with args" do
+      append_predefined_filter("something")
+      assert_equal [["something"]], @predefined_filters
+    end
+
+    should "work appending an action without args" do
+      add_predefined_filter("something")
+      append_predefined_filter()
+      assert_equal [["something"]], @predefined_filters
+    end
+
+    should "work appending an action with args" do
+      add_predefined_filter("something")
+      append_predefined_filter("something_else")
+      assert_equal [["something"], ["something_else"]], @predefined_filters
+    end
+
+  end
+
+end

data/test/lib/typus/controller/format_test.rb

@@ -0,0 +1,7 @@
+require "test_helper"
+
+class FormatTest < ActiveSupport::TestCase
+
+  include Typus::Controller::Format
+
+end

data/test/lib/typus/i18n_test.rb

@@ -0,0 +1,9 @@
+require "test_helper"
+
+class I18nTest < ActiveSupport::TestCase
+
+  should "work" do
+    assert_equal "Missing Translation", Typus::I18n.t("Missing Translation")
+  end
+
+end

data/test/lib/typus/orm/active_record/class_methods_test.rb

@@ -0,0 +1,378 @@
+require "test_helper"
+
+class ClassMethodsTest < ActiveSupport::TestCase
+
+  context "model_fields" do
+
+    should "be an ActiveSupport::OrderedHash" do
+      assert TypusUser.model_fields.instance_of?(ActiveSupport::OrderedHash)
+    end
+
+    should "verify TypusUser model_fields" do
+      expected = [[:id, :integer],
+                  [:first_name, :string],
+                  [:last_name, :string],
+                  [:role, :string],
+                  [:email, :string],
+                  [:status, :boolean],
+                  [:token, :string],
+                  [:salt, :string],
+                  [:crypted_password, :string],
+                  [:preferences, :string],
+                  [:created_at, :datetime],
+                  [:updated_at, :datetime]]
+
+      assert_equal expected.map { |i| i.first }, TypusUser.model_fields.keys
+      assert_equal expected.map { |i| i.last }, TypusUser.model_fields.values
+    end
+
+    should "verify Post model_fields" do
+      expected = [[:id, :integer],
+                  [:title, :string],
+                  [:body, :text],
+                  [:status, :string],
+                  [:favorite_comment_id, :integer],
+                  [:published_at, :datetime],
+                  [:typus_user_id, :integer],
+                  [:published, :boolean],
+                  [:created_at, :datetime],
+                  [:updated_at, :datetime]]
+
+      assert_equal expected.map { |i| i.first }, Post.model_fields.keys
+      assert_equal expected.map { |i| i.last }, Post.model_fields.values
+    end
+
+  end
+
+  context "model_relationships" do
+
+    should "be an ActiveSupport::OrderedHash" do
+      assert TypusUser.model_relationships.instance_of?(ActiveSupport::OrderedHash)
+    end
+
+    should "verify Post model_relationships" do
+      expected = [[:comments, :has_many],
+                  [:categories, :has_and_belongs_to_many],
+                  [:user, nil]]
+      expected.each do |key, value|
+        assert_equal value, Post.model_relationships[key]
+      end
+    end
+
+  end
+
+  context "typus_description" do
+
+    should "return the description of a model" do
+      assert_equal "System Users Administration", TypusUser.typus_description
+    end
+
+  end
+
+  context "typus_fields_for" do
+
+    should "accept strings" do
+      assert_equal %w(email role status), TypusUser.typus_fields_for("list").keys
+    end
+
+    should "accept symbols" do
+      assert_equal %w(email role status), TypusUser.typus_fields_for(:list).keys
+    end
+
+    should "return list fields for TypusUser" do
+      expected = [["email", :string],
+                  ["role", :selector],
+                  ["status", :boolean]]
+
+      assert_equal expected.map { |i| i.first }, TypusUser.typus_fields_for(:list).keys
+      assert_equal expected.map { |i| i.last }, TypusUser.typus_fields_for(:list).values
+    end
+
+    should "return form fields for TypusUser" do
+      expected = [["first_name", :string],
+                  ["last_name", :string],
+                  ["role", :selector],
+                  ["email", :string],
+                  ["password", :password],
+                  ["password_confirmation", :password],
+                  ["locale", :selector]]
+
+      assert_equal expected.map { |i| i.first }, TypusUser.typus_fields_for(:form).keys
+      assert_equal expected.map { |i| i.last }, TypusUser.typus_fields_for(:form).values
+    end
+
+    should "return form fields for Asset" do
+      expected = [["caption", :string],
+                  ["dragonfly", :file],
+                  ["dragonfly_required", :file],
+                  ["original_file_name", :virtual]]
+
+      assert_equal expected.map { |i| i.first }, Asset.typus_fields_for(:special).keys
+      assert_equal expected.map { |i| i.last }, Asset.typus_fields_for(:special).values
+    end
+
+    should "raise a RuntimeError when model does not have configuration" do
+      assert_raises RuntimeError do
+        Class.new(ActiveRecord::Base).typus_fields_for(:form)
+      end
+    end
+
+    should "return relationship fields for TypusUser" do
+      expected = %w(first_name last_name role email locale)
+      assert_equal expected, TypusUser.typus_fields_for(:relationship).keys
+    end
+
+    should "return undefined fields for TypusUser" do
+      expected = %w(first_name last_name role email locale)
+      assert_equal expected, TypusUser.typus_fields_for(:undefined).keys
+    end
+
+    should "work for transversal fields" do
+      expected = [["email", :string],
+                  ["post", :belongs_to],
+                  ["post_id", :integer],
+                  ["spam", :boolean],
+                  ["post.title", :transversal]]
+
+      assert_equal expected.map { |i| i.first }, Comment.typus_fields_for(:list).keys
+      assert_equal expected.map { |i| i.last }, Comment.typus_fields_for(:list).values
+    end
+
+  end
+
+  context "typus_filters" do
+
+    should "return filters for TypusUser" do
+      expected = [["status", :boolean],
+                  ["role", :string]]
+
+      assert_equal expected.map { |i| i.first }.join(", "), Typus::Configuration.config["TypusUser"]["filters"]
+      assert_equal expected.map { |i| i.first }, TypusUser.typus_filters.keys
+      assert_equal expected.map { |i| i.last }, TypusUser.typus_filters.values
+    end
+
+    should "return filters for Post" do
+      expected = [["published", :boolean],
+                  ["status", :string],
+                  ["created_at", :datetime]]
+
+      assert_equal expected.map { |i| i.first }.join(", "), Typus::Configuration.config["Post"]["filters"]
+      assert_equal expected.map { |i| i.first }, Post.typus_filters.keys
+      assert_equal expected.map { |i| i.last }, Post.typus_filters.values
+    end
+
+  end
+
+  context "typus_actions_on" do
+
+    should "accept strings" do
+      assert_equal %w(cleanup), Post.typus_actions_on("index")
+    end
+
+    should "accept symbols" do
+      assert_equal %w(cleanup), Post.typus_actions_on(:index)
+    end
+
+    should "return actions on list for TypusUser" do
+      assert TypusUser.typus_actions_on(:list).empty?
+    end
+
+    should "return actions on edit for Post" do
+      assert_equal %w(send_as_newsletter preview), Post.typus_actions_on(:edit)
+    end
+
+  end
+
+  context "typus_options_for" do
+
+    should "accept strings" do
+      assert_equal 15, Post.typus_options_for("form_rows")
+    end
+
+    should "accept symbols" do
+      assert_equal 15, Post.typus_options_for(:form_rows)
+    end
+
+    should "return nil when options do not exist" do
+      assert_nil TypusUser.typus_options_for(:unexisting)
+    end
+
+    should "return options for Post" do
+      assert_equal 15, Post.typus_options_for(:form_rows)
+    end
+
+    should "return options for Page" do
+      assert_equal 25, Page.typus_options_for(:form_rows)
+    end
+
+    should "return sortable options as a boolean" do
+      assert Post.typus_options_for(:sortable)
+      assert !Page.typus_options_for(:sortable)
+    end
+
+  end
+
+  context "typus_application" do
+
+    should "return application for Post" do
+      assert_equal "CRUD Extended", Post.typus_application
+    end
+
+    should "return application for View" do
+      assert_equal "Unknown", View.typus_application
+    end
+
+  end
+
+  context "typus_field_options_for" do
+
+    should "verify on models" do
+      assert_equal [:status], Post.typus_field_options_for(:selectors)
+      assert_equal [:permalink], Post.typus_field_options_for(:read_only)
+      assert_equal [:created_at], Post.typus_field_options_for(:auto_generated)
+    end
+
+    should "return empty array for unexisting option" do
+      assert Post.typus_field_options_for(:unexisting).empty?
+    end
+
+  end
+
+  context "typus_boolean" do
+
+    should "accept strings" do
+      expected = [["Active", "true"], ["Inactive", "false"]]
+      assert_equal expected, TypusUser.typus_boolean("status")
+    end
+
+    should "accept symbols" do
+      expected = [["Active", "true"], ["Inactive", "false"]]
+      assert_equal expected, TypusUser.typus_boolean(:status)
+    end
+
+    should "return booleans for Post" do
+      expected = [["True", "true"], ["False", "false"]]
+      assert_equal expected, Post.typus_boolean(:status)
+    end
+
+    should "return booleans for Comment" do
+      expected = [["Yes, it's spam", "true"], ["No, it's not spam", "false"]]
+      assert_equal expected, Comment.typus_boolean(:spam)
+    end
+
+  end
+
+  context "typus_date_format" do
+
+    should "accept strings" do
+      assert_equal :default, Post.typus_date_format("unknown")
+    end
+
+    should "accept symbols" do
+      assert_equal :default, Post.typus_date_format(:unknown)
+    end
+
+    should "return date_format for Post" do
+      assert_equal :default, Post.typus_date_format
+      assert_equal :short, Post.typus_date_format(:created_at)
+    end
+
+  end
+
+  context "typus_template" do
+
+    should "accept strings" do
+      assert_equal "datepicker", Post.typus_template("published_at")
+    end
+
+    should "accept symbols" do
+      assert_equal "datepicker", Post.typus_template(:published_at)
+    end
+
+    should "return nil if template does not exist" do
+      assert_nil Post.typus_template(:created_at)
+    end
+
+  end
+
+  context "typus_defaults_for" do
+
+    should "accept strings" do
+      assert_equal %w(title), Post.typus_defaults_for("search")
+    end
+
+    should "accepts symbols" do
+      assert_equal %w(title), Post.typus_defaults_for(:search)
+    end
+
+    should "return default_for relationships on Post" do
+      assert_equal %w(categories comments views), Post.typus_defaults_for(:relationships)
+    end
+
+  end
+
+  context "typus_search_fields" do
+
+    should "return a hash with the search modifiers" do
+      search = ["=id", "^title", "body"]
+      Post.stubs(:typus_defaults_for).with(:search).returns(search)
+      expected = {"body"=>"@", "title"=>"^", "id"=>"="}
+      assert_equal expected, Post.typus_search_fields
+    end
+
+    should "return and empty hash" do
+      search = []
+      Post.stubs(:typus_defaults_for).with(:search).returns(search)
+      expected = {}
+      assert_equal expected, Post.typus_search_fields
+    end
+
+  end
+
+  context "typus_export_formats" do
+
+    should "return post formats" do
+      assert_equal ["csv", "xml"], Post.typus_export_formats
+    end
+
+  end
+
+  context "typus_order_by" do
+
+    should "return defaults_for order_by on Post" do
+      assert_equal "posts.title ASC, posts.created_at DESC", Post.typus_order_by
+      assert_equal %w(title -created_at), Post.typus_defaults_for(:order_by)
+    end
+
+  end
+
+  context "typus_user_id?" do
+
+    should "exist on Post" do
+      assert Post.typus_user_id?
+    end
+
+    should "not exist on TypusUser" do
+      assert !TypusUser.typus_user_id?
+    end
+
+  end
+
+  context "read_model_config" do
+
+    should "return data for existing model" do
+      expected = {"application"=>"CRUD Extended",
+                  "fields"=>{"default"=>"caption, dragonfly, dragonfly_required",
+                             "special"=>"caption, dragonfly, dragonfly_required, original_file_name"}}
+      assert_equal expected, Asset.read_model_config
+    end
+
+    should "raise error when model does not exist on configuration" do
+      assert_raises RuntimeError do
+        Article.read_model_config
+      end
+    end
+
+  end
+
+end