lportal 1.0.0

data/test/unit/organization_test.rb

@@ -0,0 +1,57 @@
+require 'test_helper'
+
+class OrganizationTest < ActiveSupport::TestCase
+  def setup
+    @orgs = Organization.find :all
+    assert !@orgs.empty?
+  end
+
+  # each organization must belong to a company
+  def test_company
+    @orgs.each do |x|
+      assert !x.company.nil?
+    end
+  end
+
+#   # each group must belong to a creator
+#   def test_creator
+#     @orgs.each do |c|
+#       assert !c.creator.nil?
+#     end
+#   end
+
+
+  # organization's group (hive)
+  def test_hive
+    @orgs.each do |x|
+      group = x.hive
+      assert !group.nil?, "#{x.id} does not have a personal group"
+
+      # the group must have classnameid 10017 (com.liferay.portal.model.Organization)
+      assert group.classnameid == 10017, "#{x.id}'s personal group is not assigned to com.liferay.portal.model.Organization"
+
+      assert group.is_active?, "#{x.id}'s personal group is not active"
+
+      # there has to be layoutsets
+      assert !group.layoutsets.empty?, "#{x.id}'s personal group does not have layoutsets"
+    end
+  end
+
+
+  def test_group
+    @orgs.each do |x|
+
+      assert !Group.find(:all, :conditions => "classnameid=10017 AND classpk=#{x.id}").empty?, "No group found with classnameid 10017 and classpk #{x.id}"
+    end
+  end
+
+  # each member have to belong to the same company than the organization
+  def test_members_companies
+    @orgs.each do |org|
+      org.members.each do |user|
+        assert user.company == org.company, "Member #{user.id} of organization #{org.id} does not belong to company #{org.company.id}"
+      end
+    end
+  end
+
+end

data/test/unit/permission_test.rb

@@ -0,0 +1,33 @@
+require 'test_helper'
+
+class PermissionTest < ActiveSupport::TestCase
+  def setup
+    @permissions = Permission.find :all
+  end
+
+  def test_company
+    @permissions.each do |x|
+      assert !x.company.nil?, "#{x.id} belongs to no companies"
+    end
+  end
+
+  def test_resource
+    @permissions.each do |p|
+      assert !p.resource.nil?, "#{p.id} belongs to no resource!"
+    end
+  end
+
+  def test_rigidity
+    # each role must exist!
+    roles = @permissions.map{|x| x.roles}.uniq
+    roles.each do |role|
+      assert !role.nil?, "Reference to non-existing user #{role.inspect}"
+    end
+
+    # each user must exist!
+    users = @permissions.map{|x| x.users}.uniq
+    users.each do |user|
+      assert !user.nil?, "Reference to non-existing user #{user.inspect}"
+    end
+  end
+end

data/test/unit/resource_code_test.rb

@@ -0,0 +1,29 @@
+require 'test_helper'
+
+class ResourceCodeTest < ActiveSupport::TestCase
+  def setup
+    @resourcecodes = ResourceCode.find :all
+  end
+
+  # each resourcecode must belong to a company
+  def test_company
+    @resourcecodes.each do |x|
+      assert !x.company.nil?, "#{x.id} belongs to no companies"
+    end
+  end
+
+  # each resourcecode must have a scope
+  def test_scope
+    @resourcecodes.each do |x|
+      assert !x.scope.nil?, "#{x.id} has no scope"
+    end
+  end
+
+  def test_rigidity
+    # each resource must exist!
+    resources = @resourcecodes.map{|x| x.resources}.uniq
+    resources.each do |r|
+      assert !r.nil?, "Reference to non-existing resource #{r.inspect}"
+    end
+  end
+end

data/test/unit/resource_test.rb

@@ -0,0 +1,49 @@
+require 'test_helper'
+
+class ResourceTest < ActiveSupport::TestCase
+  def setup
+    @resources = Resource.find :all
+  end
+
+  # each resource must have a resourcecode
+  def test_codes
+    @resources.each do |x|
+      assert !x.code.nil?, "#{x.id} has no resourcecode"
+    end
+  end
+
+  def test_permissions
+    @resources.each do |x|
+      permissions = x.permissions
+      assert !permissions.empty?, "#{x.id} has no permissions"
+      permissions.each do |perm|
+        assert !perm.nil?, "#{x.id} refers to an undefined permission #{perm.inspect}"
+      end
+    end
+  end
+
+  def test_primkey
+    companies_ids = Company.find(:all).map{|x| x.id.to_s}
+    groups_ids = Group.find(:all).map{|x| x.id.to_s}
+
+    @resources.each do |x|
+      key = x.primkey
+
+      unless (companies_ids.include?(key) or groups_ids.include?(key))
+        content = x.content
+        assert !content.nil?, "Resource #{x.id}, primkey #{key} is not any known content type #{x.code.name}"
+
+        if key[/LAYOUT/]
+          assert !x.plid.nil?, "Improper LAYOUT resourcecode #{key} for #{x.id}"
+          assert !x.portletid.nil?, "Improper LAYOUT resourcecode #{key} for #{x.id}"
+
+          codename = key[/LAYOUT_([^_]*)/,1]
+          assert !codename.nil?, "Improper LAYOUT resourcecode #{key} for #{x.id}"
+          assert x.code.name == codename, "Codenames #{x.code.name} and #{codename} do not match for #{x.id}"
+
+        end
+      end
+    end
+  end
+
+end

data/test/unit/role_test.rb

@@ -0,0 +1,22 @@
+require 'test_helper'
+
+class RoleTest < ActiveSupport::TestCase
+  def setup
+    @roles = Role.find :all
+  end
+
+  # each role must belong to a company
+  def test_company
+    @roles.each do |x|
+      assert !x.company.nil?, "#{x.id} belongs to no companies"
+    end
+  end
+
+  def test_rigidity
+    # each user must exist!
+    users = @roles.map{|x| x.users}.uniq
+    users.each do |user|
+      assert !user.nil?, "Reference to non-existing user #{user.inspect}"
+    end
+  end
+end

data/test/unit/tag/entry_test.rb

@@ -0,0 +1,35 @@
+require 'test_helper'
+
+class TagTest < ActiveSupport::TestCase
+  def setup
+    @tags = Tag.find :all
+  end
+
+  def test_name
+    @tags.each do |x|
+      assert !x.name.nil?, "#{x.id} has no name"
+    end
+  end
+
+  # each tag must belong to a company
+  def test_company
+    @tags.each do |x|
+      assert !x.company.nil?, "#{x.id} (#{x.name}) belongs to no company"
+    end
+  end
+
+  def test_owner
+    @tags.each do |x|
+      assert !x.owner.nil?, "#{x.id} (#{x.name}) belongs to no user"
+    end
+  end
+
+  # each asset must exist!
+  def test_asset
+    assets = @tags.map{|x| x.assets}.uniq
+    assets.each do |asset|
+      assert !asset.nil?, "Reference to non-existing asset #{asset.inspect}"
+    end
+  end
+
+end

data/test/unit/tag/property_test.rb

@@ -0,0 +1,27 @@
+require 'test_helper'
+
+class Tag::PropertyTest < ActiveSupport::TestCase
+  def setup
+    @properties = Tag::Property.find :all
+  end
+
+  def test_company
+    @properties.each do |x|
+      assert !x.company.nil?, "#{x.id} belongs to no companies"
+    end
+  end
+
+  def test_owner
+    @properties.each do |x|
+      assert !x.owner.nil?, "#{x.id} belongs to no user!"
+    end
+  end
+
+  def test_rigidity
+    # each asset must exist!
+    tags = @properties.map{|x| x.tag}.uniq
+    tags.each do |tag|
+      assert !tag.nil?, "Reference to non-existing tag #{tag.inspect}"
+    end
+  end
+end

data/test/unit/user_group_test.rb

@@ -0,0 +1,8 @@
+require 'test_helper'
+
+class UserGroupTest < ActiveSupport::TestCase
+  # Replace this with your real tests.
+  def test_truth
+    assert true
+  end
+end

data/test/unit/user_test.rb

@@ -0,0 +1,103 @@
+require 'test_helper'
+
+class UserTest < ActiveSupport::TestCase
+
+  def setup
+    @users = User.find :all
+  end
+
+  # each user must have an account
+  def test_account
+    @users.each do |x|
+      # in the default liferay 5.0.1 DB, lax95 has no account
+      #assert !x.account.nil?, "#{x.screenname} has no account"
+    end
+  end
+
+  # each user must belong to a company
+  def test_company
+    @users.each do |x|
+      assert !x.company.nil?, "#{x.screenname} belongs to no companies"
+    end
+  end
+
+  # each user can belong to many organizations
+  def test_organization
+    @users.each do |x|
+      unless x.is_default?
+        assert !x.organizations.empty?, "#{x.screenname} belongs to no organizations"
+      end
+    end
+  end
+
+  # each user must have a contact
+  def test_contact
+    @users.each do |x|
+      assert !x.contact.nil?, "User #{x.screenname} does not have a contact"
+    end
+  end
+
+  def test_fullname
+    @users.each do |x|
+      assert !x.fullname.nil?
+    end
+  end
+
+  # each user must have a personal group (hive)
+  def test_hive
+    @users.each do |x|
+      group = x.hive
+      assert !group.nil?, "#{x.id} does not have a personal group"
+
+      # the group must have classnameid 10034 (com.liferay.portal.model.User)
+      assert group.classnameid == 10034, "User's personal group is not assigned to com.liferay.portal.model.User"
+
+      # if user is active, hive is active, and vice versa
+      if x.is_active?
+        assert group.is_active?, "#{x.id}'s personal group is not active"
+        # there has to be layoutsets
+        assert !group.layoutsets.empty?, "#{x.id}'s personal group does not have layoutsets"
+
+      else
+        assert !group.is_active?, "#{x.id}'s personal group is active, while the user is not"
+
+      end
+    end
+  end
+
+  def test_rigidity
+    # each group must exist!
+    groups = @users.map{|x| x.groups}.uniq
+    groups.each do |group|
+      assert !group.nil?, "Reference to non-existing group  #{group.inspect}"
+    end
+
+    # each role must exist!
+    roles = @users.map{|x| x.roles}.uniq
+    roles.each do |role|
+      assert !role.nil?, "Reference to non-existing role #{role.inspect}"
+    end
+
+    # each permission must exist!
+    perms = @users.map{|x| x.permissions}.uniq
+    perms.each do |p|
+      assert !p.nil?, "Reference to non-existing permission #{p.inspect}"
+    end
+  end
+
+#   # each user must have a friendlyurl
+#   def test_friendlyurl
+#     @users.each do |x|
+#       assert !x.friendlyurl.nil?
+#     end
+#   end
+
+
+#   # test that user has subscribed tags
+#   def test_subscriptions
+#     tags = @mikael.subscriptions
+#     assert tags.include?(@vitamins)
+#     assert tags.include?(@dieting)
+#   end
+
+end

data/test/unit/usergroup_test.rb

@@ -0,0 +1,33 @@
+require 'test_helper'
+
+class UserusergroupTest < ActiveSupport::TestCase
+  def setup
+    @usergroups = usergroup.find :all
+    assert !@usergroups.empty?, "No usergroups"
+  end
+
+  # each usergroup must belong to a company
+  def test_company
+    @usergroups.each do |x|
+      assert !x.company.nil?, "#{x.id} belongs to no company"
+    end
+  end
+
+  # each usergroup must belong to a company
+  def test_parent
+    @usergroups.each do |x|
+      unless x.parent == 0
+        assert !x.parent.nil?, "#{x.id} has no parent"
+      end
+    end
+  end
+
+  def test_usergroups
+    @usergroups.each do |x|
+      x.usergroups.each do |group|
+        assert group.nil?, "#{x.id} has_and_belongs_to an unknown group #{group.inspect}"
+      end
+    end
+  end
+
+end

data/test/unit/web/layout_set_test.rb

@@ -0,0 +1,88 @@
+require 'test_helper'
+
+class Web::LayoutSetTest < ActiveSupport::TestCase
+  def setup
+    @sets = Web::LayoutSet.find :all
+    assert !@sets.empty?
+  end
+
+  # each layoutset must belong to a company
+  def test_company
+    @sets.each do |x|
+      assert !x.company.nil?, "#{x.id} belongs to no company"
+    end
+  end
+
+#   def test_resource
+#     @sets.each do |x|
+#       assert !x.resource.nil?, "#{x.id} #{x.group.friendlyurl} belongs to no resource"
+#     end
+#   end
+
+  # each layoutset must belong to a group
+  def test_group
+    @sets.each do |x|
+      group = x.group
+      assert !group.nil?, "#{x.id} belongs to no group"
+    end
+  end
+
+  def test_public_layoutsets
+    @sets.each do |x|
+      group = x.group
+      assert !group.public_layoutset.nil?, "Group #{group.id} does not have a public layoutset"
+    end
+  end
+
+  def test_private_layoutsets
+    @sets.each do |x|
+      group = x.group
+      assert !group.private_layoutset.nil?, "Group #{group.id} does not have a private layoutset"
+    end
+  end
+
+  def test_rigidity
+    @sets.each do |x|
+      assert !x.is_public?.nil?
+    end
+
+    # each group must exist!
+    groups = @sets.map{|x| x.group}.uniq
+    groups.each do |group|
+      assert !group.nil?, "Reference to non-existing group  #{group.inspect}"
+    end
+  end
+
+  def test_pagecount
+    @sets.each do |x|
+      gid=x.group.id
+      layouts = Web::Layout.find(:all, :conditions => "groupid=#{gid} AND privatelayout=#{x.privatelayout}" )
+      assert layouts.size == x.pagecount, "Pagecount does not match layouts on #{x.id} (#{(x.is_public? ? "public" : "private")}), should be #{layouts.size}, is #{x.pagecount}"
+    end
+  end
+
+  # test /web/guest/home equivalent
+  def test_guest_layoutset
+    # identified by default user
+    group = User.find_by_defaultuser(true).hive # /guest
+    assert !group.nil?, "Default user does not have a home group"
+
+    # find all layoutsets
+    layoutsets = Web::LayoutSet.find(:all).collect {|x| x if( x.groupid==group.id ) }.compact
+
+    assert layoutsets.size > 0, "No defaultuser layoutsets found"
+    assert layoutsets.map{|x| x.is_public? }.include?(true), "No default public layoutset found"
+
+    # pick one public
+    web = layoutsets.map{|x| x if x.is_public? }.compact.first # /web
+
+    # layout
+    layout = Web::Layout.find( :first, :conditions => "groupid=#{web.group.id} AND layoutid=1 AND privatelayout=false" )
+    assert !layout.nil?, "Public layout with id 1 was not found for layoutset #{web.id} in group #{web.group.id}"
+    assert !layout.is_hidden?, "Public layout for layoutset #{web.id} is hidden"
+  end
+
+
+
+
+end

data/test/unit/web/layout_test.rb

@@ -0,0 +1,91 @@
+require 'test_helper'
+
+# [com.liferay.portal.verify.VerifyImageGallery:67] WARN  Unable to update tags asset for image 13993: No User exists with the primary key 13201
+# [com.liferay.portal.verify.VerifyJournal:134] WARN  Unable to update tags asset for article 11934: No User exists with the primary key 11373
+
+
+class Web::LayoutTest < ActiveSupport::TestCase
+  def setup
+    @layouts = Web::Layout.find :all
+    assert !@layouts.empty?
+  end
+
+  # each layout must belong to a company
+  def test_company
+    @layouts.each do |x|
+      assert !x.company.nil?, "#{x} has no company"
+    end
+  end
+
+  # each layout must belong to a group
+  def test_group
+    @layouts.each do |x|
+      assert !x.group.nil?, "#{x} has no group"
+    end
+  end
+
+  def test_rigidity
+    @layouts.each do |x|
+      assert !x.is_public?.nil?
+    end
+
+    # each group must exist!
+    groups = @layouts.map{|x| x.group}.uniq
+    groups.each do |group|
+      assert !group.nil?, "Reference to non-existing group  #{group.inspect}"
+    end
+  end
+
+  # each layout must have layoutid within the group,
+  # there must be no duplicate layoutids
+  def test_layoutid
+    @layouts.each do |x|
+      assert !x.layoutid.nil?, "#{x} has no local layout number"
+    end
+
+      groupids = @layouts.map{|x| x.groupid}.uniq
+      groupids.each do |gid|
+        # find all group's layoutids
+        pub = Web::Layout.find(:all, :conditions => "groupid=#{gid} AND privatelayout=false").map{|x| x.layoutid}
+        priv = Web::Layout.find(:all, :conditions => "groupid=#{gid} AND privatelayout=true").map{|x| x.layoutid}
+
+        # they must have no overlapping ids
+        assert pub.uniq == pub, "Group #{gid} has duplicate public layoutids"
+        assert priv.uniq == priv, "Group #{gid} has duplicate private layoutids"
+      end
+  end
+
+  # each layout must have a friendlyurl
+  def test_friendlyurl
+    @layouts.each do |x|
+      assert !x.friendlyurl.nil?, "#{x} has no friendlyurl"
+    end
+  end
+
+  # each layout must have a name
+  def test_name
+    @layouts.each do |x|
+      assert !x.name.nil?, "#{x} has no name"
+    end
+  end
+
+  # each layout must have a typesettings, and the defined portlets exist
+  def test_portlets
+    @layouts.each do |x|
+      assert !x.typesettings.nil?, "#{x} has no typesettings"
+
+      # check portlets
+      x.portletids.each do |id|
+        unless id[/INSTANCE/]
+          assert Web::Portlet.find_by_portletid(id), "#{x.id} defines portlet #{id} but it is not found in portlet"
+        end
+      end
+
+      # check instances
+      x.instanceids.each do |id|
+        assert Web::PortletPreferences.find_by_portletid(id), "#{x.id} defines portlet instance #{id} but it is not found in portletpreferences"
+      end
+    end
+  end
+
+end

data/test/unit/web/portlet_preferences_test.rb

@@ -0,0 +1,47 @@
+require 'test_helper'
+
+class Web::PortletPreferencesTest < ActiveSupport::TestCase
+  def setup
+    @prefs = Web::PortletPreferences.find :all
+  end
+
+#   # each preference must belong to an owner
+#   def test_owner
+#     @prefs.each do |x|
+#       unless x.ownerid == 0
+#         assert !x.owner.nil?, "#{x.id} belongs to no owner"
+#       end
+#     end
+#   end
+
+  # each preference must define ownertype
+  def test_ownertype
+    @prefs.each do |x|
+      assert !x.ownertype.nil?, "#{x.id} defines no ownertype"
+    end
+  end
+
+  # each preference must belong to a layout
+  def test_layout
+    @prefs.each do |x|
+      unless x.plid == 0
+        assert !x.layout.nil?, "#{x.id} refers to non-existing layout #{x.plid}"
+      end
+    end
+  end
+
+  # each preference must have a portletid
+  def test_portletid
+    @prefs.each do |x|
+      assert !x.portletid.nil?, "#{x.id} has no portletid"
+    end
+  end
+
+  # there has to be a resource for each portletpreference
+  def test_resource
+    @prefs.each do |x|
+      assert !x.resource.nil?, "No resource with primkey #{x.primkey}"
+    end
+  end
+
+end

data/test/unit/web/portlet_test.rb

@@ -0,0 +1,33 @@
+require 'test_helper'
+
+class Web::PortletTest < ActiveSupport::TestCase
+  def setup
+    @portlets = Web::Portlet.find :all
+  end
+
+  # each portlet must belong to a company
+  def test_company
+    @portlets.each do |x|
+      assert !x.company.nil?, "#{x.id} belongs to no companies"
+    end
+  end
+
+  # each role must exist
+  def test_roles
+    @portlets.each do |x|
+      roles = x.roles.split(",")
+      roles.each do |role|
+        role.gsub!(/^\ *|\ *$/,"") # clean leading and trailing spaces
+        assert Role.find_by_name(role), "Role \"#{role}\" does not exist"
+      end
+    end
+  end
+
+  # each portlet must have a resource
+  def test_resource
+    @portlets.each do |x|
+      assert !x.resource.nil?, "No resource with primkey #{x.primkey}"
+    end
+  end
+
+end

data/test/unit/wiki/node_test.rb

@@ -0,0 +1,8 @@
+require 'test_helper'
+
+class Wiki::NodeTest < ActiveSupport::TestCase
+  # Replace this with your real tests.
+  def test_truth
+    assert true
+  end
+end

data/test/unit/wiki/page_test.rb

@@ -0,0 +1,8 @@
+require 'test_helper'
+
+class Wiki::PageTest < ActiveSupport::TestCase
+  # Replace this with your real tests.
+  def test_truth
+    assert true
+  end
+end