lportal 1.0.0

data/lib/web/portlet_preferences.rb

@@ -0,0 +1,42 @@
+module Web
+  class PortletPreferences < ActiveRecord::Base
+    set_table_name       :portletpreferences
+    set_primary_key      :portletpreferencesid
+  
+    public
+  
+    belongs_to :layout,
+      :class_name => 'Web::Layout',
+      :foreign_key => 'plid'
+  
+    belongs_to :owner,
+      :class_name => 'User',
+      :foreign_key => 'ownerid'
+  
+    # primkey in resource_ table
+    def primkey
+      "#{self.plid}_LAYOUT_#{self.portletid}"
+    end
+  
+    # argument plid is to comply API with Web::Portlet.resource
+    def resource(plid)
+      Resource.find_by_primkey(self.primkey)
+  #     Resource.find(:all, :conditions => "primkey='#{self.primkey}'")
+    end
+  
+    # loads the preferences XML structure to Ruby Hash
+    def preferences_
+      xml = REXML::Document.new(self.preferences)
+      preferences = []
+      xml.elements.each("portlet-preferences/preference") do |pref|
+        phash = {
+          :name  => pref.elements["name"].text,
+          :value => (pref.elements["value"] ? pref.elements["value"].text : "")
+        }
+        preferences << phash
+      end
+      return preferences
+    end
+  
+  end
+end

data/lib/wiki/node.rb

@@ -0,0 +1,21 @@
+module Wiki
+  class Node < ActiveRecord::Base
+    set_table_name       :wikinode
+    set_primary_key      :nodeid
+
+    # com.liferay.portlet.wiki.model.WikiNode
+    def liferay_class
+      'com.liferay.portlet.wiki.model.WikiNode'
+    end
+
+    has_many :pages,
+      :class_name  => "Wiki::Page",
+      :foreign_key => "nodeid"
+    alias :articles :pages
+
+    has_many :resources,
+      :class_name  => "Wiki::PageResource",
+      :foreign_key => "nodeid"
+
+  end
+end

data/lib/wiki/page.rb

@@ -0,0 +1,29 @@
+module Wiki
+  class Page < ActiveRecord::Base
+    set_table_name       :wikipage
+    set_primary_key      :pageid
+
+    # com.liferay.portlet.wiki.model.WikiPage
+    def liferay_class
+      'com.liferay.portlet.wiki.model.WikiPage'
+    end
+
+    # association to WikiNode
+    belongs_to :node,
+      :class_name  => 'Wiki::Node',
+      :foreign_key => 'nodeid'
+
+    belongs_to :user,
+      :foreign_key => 'userid'
+    alias :writer :user
+
+    belongs_to :resource,
+      :class_name => 'Wiki::PageResource',
+      :foreign_key => 'resourceprimkey'
+
+    def asset
+      self.resource.asset
+    end
+
+  end
+end

data/lib/wiki/pageresource.rb

@@ -0,0 +1,20 @@
+module Wiki
+  class PageResource < ActiveRecord::Base
+    set_table_name       :wikipageresource
+    set_primary_key      :resourceprimkey
+
+    # com.liferay.portlet.wiki.model.WikiPageResource
+    def liferay_class
+      'com.liferay.portlet.wiki.model.WikiPageResource'
+    end
+
+    # association to WikiNode
+    belongs_to :node,
+      :class_name  => "Wiki::Node",
+      :foreign_key => "nodeid"
+
+    has_one :asset,
+      :foreign_key => 'classpk'
+
+  end
+end

data/lportal.rb

@@ -0,0 +1,9 @@
+require 'find'
+require 'active_record'
+
+file = File.symlink?(__FILE__) ? File.readlink(__FILE__) : __FILE__
+this_dir = File.dirname(File.expand_path(file))
+
+Find.find(this_dir+'/lib') do |file|
+  require file unless FileTest.directory?(file)
+end

data/test/unit/account_test.rb

@@ -0,0 +1,20 @@
+require 'test_helper'
+
+class AccountTest < ActiveSupport::TestCase
+  def setup
+    @accounts = Account.find :all
+    assert !@accounts.empty?, "No accounts found"
+  end
+
+  def test_company
+    @accounts.each do |x|
+      assert !x.company.nil?, "#{x.id} has no company"
+    end
+  end
+
+  def test_user
+    @accounts.each do |x|
+      assert !x.user.nil?, "#{x.id} has no user"
+    end
+  end
+end

data/test/unit/address_test.rb

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

data/test/unit/announcement_test.rb

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

data/test/unit/asset_test.rb

@@ -0,0 +1,29 @@
+require 'test_helper'
+
+class AssetTest < ActiveSupport::TestCase
+  def setup
+    @assets = Asset.find :all
+  end
+
+  # each asset's resource _must_ belong to a company
+  def test_company
+    @assets.each do |asset|
+      asset_company = asset.company
+      resource_company = asset.resource.company
+      assert !asset_company.nil?, "Asset #{asset.id} does not belong to any company"
+      assert !resource_company.nil?, "Asset's #{asset.id} resource #{asset.resource.id} does not belong to any company"
+      assert asset_company==resource_company, "Asset #{asset.id} and resource #{asset.resource.id} belong to a different company"
+    end
+  end
+
+#   def test_asset_types
+#     Asset.resource_types.each do |type|
+#       type.find(:all).each do |asset|
+#         assert !asset.resource.nil?
+#         assert asset.resource.asset == asset
+#         assert !asset.resource.liferay_class.nil?
+#       end
+#     end
+#   end
+
+end

data/test/unit/bookmark_test.rb

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

data/test/unit/company_test.rb

@@ -0,0 +1,60 @@
+require 'test_helper'
+
+class CompanyTest < ActiveSupport::TestCase
+  def setup
+    @companies = Company.find :all
+    assert !@companies.empty?, "No companies found"
+  end
+
+  # each company must have an account
+  def test_account
+    @companies.each do |c|
+      assert !c.account.nil?, "#{c.id} has no account"
+    end
+  end
+
+  # each company must have contacts
+  def test_contacts
+    @companies.each do |c|
+      assert !c.contacts.empty?, "#{c.id} has no contacts"
+    end
+  end
+
+  # hmm?
+  def test_defaultuser
+    @companies.each do |c|
+      assert c.account.user.is_default?, "No default user for #{c.id}"
+      assert c.account.user.is_active?, "Default user account for #{c.id} is not active"
+      assert c.account.user.company == c, "Default user for #{c.id} has wrong company"
+      assert !c.account.user.account.nil?, "Default user for #{c.id} has no account"
+    end
+  end
+
+  # each company must have a webid
+  def test_webid
+    @companies.each do |c|
+      assert !c.webid.nil?, "#{c.id} has no webid"
+    end
+  end
+
+  # each company must have a virtualhost
+  def test_virtualhost
+    @companies.each do |c|
+      assert !c.virtualhost.nil?, "#{c.id} has no virtualhost"
+    end
+  end
+
+  # each company must have organization(s)
+  def test_virtualhost
+    @companies.each do |c|
+      assert !c.organizations.empty?, "#{c.id} has no organizations"
+    end
+  end
+
+  def test_resource
+    @companies.each do |x|
+      assert !x.resource.nil?, "#{x.id} has no resource"
+    end
+  end
+
+end

data/test/unit/contact_test.rb

@@ -0,0 +1,23 @@
+require 'test_helper'
+
+class ContactTest < ActiveSupport::TestCase
+  # Replace this with your real tests.
+  def setup
+    @contacts = Contact.find :all
+    assert !@contacts.empty?, "No contacts found"
+  end
+
+  # each company must have an account
+  def test_account
+    @contacts.each do |c|
+      assert !c.account.nil?, "#{c} has no account"
+    end
+  end
+
+  def test_user
+    @contacts.each do |x|
+      assert !x.user.nil?, "#{x} has no user"
+    end
+  end
+
+end

data/test/unit/dl_file_test.rb

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

data/test/unit/dl_folder_test.rb

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

data/test/unit/group_test.rb

@@ -0,0 +1,76 @@
+require 'test_helper'
+
+class GroupTest < ActiveSupport::TestCase
+  def setup
+    @groups = Group.find :all
+    assert !@groups.empty?, "No groups"
+  end
+
+  # each group must belong to a company
+  def test_company
+    @groups.each do |x|
+      assert !x.company.nil?, "#{x.id} belongs to no company"
+    end
+  end
+
+  def test_organizations
+    @groups.each do |x|
+      x.organizations.each do |org|
+        assert organization.nil?, "#{x.id} has_and_belongs_to to unknown organization #{org.inspect}"
+      end
+    end
+  end
+
+  def test_roles
+    @groups.each do |x|
+      x.roles.each do |role|
+        assert role.nil?, "#{x.id} has_and_belongs_to an unknown role #{role.inspect}"
+      end
+    end
+  end
+
+  def test_permissions
+    @groups.each do |x|
+      x.permissions.each do |permission|
+        assert permission.nil?, "#{x.id} has_and_belongs_to an unknown permission #{permission.inspect}"
+      end
+    end
+  end
+
+  def test_usergroups
+    @groups.each do |x|
+      x.usergroups.each do |usergroup|
+        assert usergroup.nil?, "#{x.id} has_and_belongs_to an unknown usergroup #{usergroup.inspect}"
+      end
+    end
+  end
+
+  # each group must belong to a creator
+  def test_creator
+    @groups.each do |x|
+      assert !x.creator.nil?, "#{x.id} has no creator"
+    end
+  end
+
+  # each group must have a friendlyurl
+  def test_friendlyurl
+    @groups.each do |x|
+      assert !x.friendlyurl.nil?, "#{x.id} has no friendlyurl"
+    end
+  end
+
+  # each group must have one or more layouts
+  def test_layoutsets
+    @groups.each do |x|
+      assert !x.layoutsets.empty?, "#{x.id} has no layoutsets"
+      assert !(x.layoutsets.size > 2), "#{x.id} has more than 2 layoutsets"
+    end
+  end
+
+  def test_resource
+    @groups.each do |x|
+      assert !x.resource.nil?, "#{x.id} has no resource"
+    end
+  end
+
+end

data/test/unit/ig/folder_test.rb

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

data/test/unit/ig/image_test.rb

@@ -0,0 +1,20 @@
+require 'test_helper'
+
+class IG::ImageTest < ActiveSupport::TestCase
+  def setup
+    @igimages = IG::Image.find :all
+  end
+
+  def test_company
+    @igimages.each do |x|
+      assert !x.company.nil?, "#{x.id} belongs to no company"
+    end
+  end
+
+  def test_user
+    @igimages.each do |x|
+      assert !x.user.nil?, "#{x.id} belongs to no user!"
+    end
+  end
+
+end

data/test/unit/image_test.rb

@@ -0,0 +1,34 @@
+require 'test_helper'
+
+class ImageTest < ActiveSupport::TestCase
+  def setup
+    @images = Image.find :all
+  end
+
+  def test_type
+    @images.each do |x|
+      assert !x.type_.nil?, "#{x.id} type is null"
+    end
+  end
+
+  def test_dimensions
+    @images.each do |x|
+      assert !x.width.nil? && !x.height.nil?, "#{x.id} has no width && height"
+    end
+  end
+
+  def test_size
+    @images.each do |x|
+      assert !x.size_.nil?, "#{x.id} size is null"
+      assert x.size_ > 0, "#{x.id} size is not positive"
+    end
+  end
+
+  def test_gallery
+    @images.each do |x|
+      igs = IG::Image.find(:first, :conditions => "smallimageid=#{x.id} OR largeimageid=#{x.id} OR custom1imageid=#{x.id} OR custom2imageid=#{x.id}")
+      assert !igs.nil?, "#{x.id} is not referenced in any igimage"
+    end
+  end
+
+end

data/test/unit/journal/article_image_test.rb

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

data/test/unit/journal/article_resource_test.rb

@@ -0,0 +1,20 @@
+require 'test_helper'
+
+class Journal::ArticleResourceTest < ActiveSupport::TestCase
+  def setup
+    @resources = Journal::ArticleResource.find :all
+  end
+
+  def test_group
+    @resources.each do |x|
+      assert !x.group.nil?, "#{x.id} belongs to no group!"
+    end
+  end
+
+  def test_article
+    @resources.each do |x|
+      assert !x.article.nil?, "#{x.id} has no article!"
+    end
+  end
+
+end

data/test/unit/journal/article_test.rb

@@ -0,0 +1,39 @@
+require 'test_helper'
+
+class Journal::ArticleTest < ActiveSupport::TestCase
+  def setup
+    @articles = Journal::Article.find :all
+  end
+
+  # each article must belong to a company
+  def test_company
+    @articles.each do |x|
+      assert !x.company.nil?, "#{x.id} belongs to no company"
+    end
+  end
+
+  def test_group
+    @articles.each do |x|
+      assert !x.group.nil?, "#{x.id} belongs to no group!"
+    end
+  end
+
+  def test_owner
+    @articles.each do |x|
+      assert !x.owner.nil?, "#{x.id} belongs to no user!"
+    end
+  end
+
+  def test_articleid
+    @articles.each do |x|
+      assert !x.articleid.nil?, "#{x.id} has no articleid!"
+    end
+  end
+
+  def test_resource
+    @articles.each do |x|
+      assert !x.resource.nil?, "#{x.id} belongs to no resource"
+    end
+  end
+
+end

data/test/unit/mb/category_test.rb

@@ -0,0 +1,35 @@
+require 'test_helper'
+
+class MB::CategoryTest < ActiveSupport::TestCase
+  def setup
+    @categories = MB::Category.find :all
+  end
+
+  # each article must belong to a company
+  def test_company
+    @categories.each do |x|
+      assert !x.company.nil?, "#{x.id} belongs to no company"
+    end
+  end
+
+  def test_group
+    @categories.each do |x|
+      assert !x.group.nil?, "#{x.id} belongs to no group!"
+    end
+  end
+
+  def test_user
+    @categories.each do |x|
+      assert !x.user.nil?, "#{x.id} belongs to no user!"
+    end
+  end
+
+  def test_parent
+    @categories.each do |x|
+      unless x.parentcategoryid == 0 then
+        assert !x.parent.nil?, "#{x.id} refers to parent category #{x.parentcategoryid} which does not exist"
+      end
+    end
+  end
+
+end

data/test/unit/mb/discussion_test.rb

@@ -0,0 +1,14 @@
+require 'test_helper'
+
+class MB::DiscussionTest < ActiveSupport::TestCase
+  def setup
+    @discussions = MB::Discussion.find :all
+  end
+
+  def test_thread
+    @discussions.each do |x|
+      assert !x.thread.nil?, "#{x.id} belongs to no thread"
+    end
+  end
+
+end

data/test/unit/mb/message_test.rb

@@ -0,0 +1,46 @@
+require 'test_helper'
+
+class MB::MessageTest < ActiveSupport::TestCase
+  def setup
+    @messages = MB::Message.find :all
+  end
+
+  def test_company
+    @messages.each do |x|
+      assert !x.company.nil?, "#{x.id} belongs to no company"
+    end
+  end
+
+  def test_user
+    @messages.each do |x|
+      assert !x.user.nil?, "#{x.id} belongs to no user!"
+    end
+  end
+
+  def test_category
+    @messages.each do |x|
+      assert !x.category.nil?, "#{x.id} belongs to no category!"
+    end
+  end
+
+  def test_thread
+    @messages.each do |x|
+      assert !x.thread.nil?, "#{x.id} belongs to no thread"
+      if x.parentmessageid == 0 then
+        assert x.thread.rootmessageid == x.id, "Discrepancy between thread #{x.thread.id} rootmessageid #{x.thread.rootmessageid} and message #{x.id}"
+      end
+    end
+  end
+
+  def test_parent
+    @messages.each do |x|
+      unless x.parentmessageid == 0 then
+        assert !x.parent.nil?, "#{x.id} refers to parent message #{x.parentmessageid} which does not exist"
+      else
+        # there must be a thread with this message as root!
+        assert MB::Thread.find(:all).map{|t| t.rootmessageid }.include?(x.id), " Message #{x.id} appears not to belong to any thread"
+      end
+    end
+  end
+
+end

data/test/unit/mb/thread_test.rb

@@ -0,0 +1,21 @@
+require 'test_helper'
+
+class MB::ThreadTest < ActiveSupport::TestCase
+  def setup
+    @threads = MB::Thread.find :all
+  end
+
+  def test_category
+    @threads.each do |x|
+      assert !x.category.nil?, "#{x.id} belongs to no category"
+    end
+  end
+
+  def test_root
+    @threads.each do |x|
+      assert !x.root.nil?, "#{x.id} has no root message"
+    end
+  end
+
+
+end