sambal-cle 0.1.3

data/lib/sambal-cle/data_objects/forum.rb

@@ -0,0 +1,212 @@
+# Note that this class is for icon-sakai-forums. NOT jforums.
+class ForumObject
+
+  include PageHelper
+  include Utilities
+  include Workflows
+  
+  attr_accessor :site, :title, :short_description, :description, :direct_link,
+                :description_html
+  
+  def initialize(browser, opts={})
+    @browser = browser
+    
+    defaults = {
+      :title=>random_alphanums
+    }
+    options = defaults.merge(opts)
+    
+    @site=options[:site]
+    @title=options[:title]
+    @short_description=options[:short_description]
+    @description=options[:description]
+    raise "You need to specify a site for your Forum" if @site==nil
+  end
+
+  alias :name :title
+
+  def create
+    open_my_site_by_name @site unless @browser.title=~/#{@site}/
+    forums unless @browser.title=~/Forums$/
+    on Forums do |forums|
+      forums.new_forum
+    end
+    on EditForum do |edit|
+      edit.title.set @title
+      edit.short_description.set @short_description unless @short_description==nil
+      edit.enter_source_text(edit.editor, @description) unless @description==nil
+      edit.save
+    end
+  end
+    
+  def edit opts={}
+    open_my_site_by_name @site unless @browser.title=~/#{@site}/
+    forums unless @browser.title=~/Forums$/
+    on Forums do |forum|
+      forum.forum_settings @title
+    end
+    on EditForum do |edit|
+      edit.title.set opts[:title] unless opts[:title] == nil
+      edit.short_description.set opts[:short_description] unless opts[:short_description]==nil
+      unless opts[:description] == nil
+        edit.enter_source_text edit.editor, opts[:description]
+      end
+      edit.save
+    end
+    @title=opts[:title] unless opts[:title] == nil
+    @short_description=opts[:short_description] unless opts[:short_description] == nil
+    @description=opts[:description] unless opts[:description] == nil
+  end
+    
+  def view
+    open_my_site_by_name @site unless @browser.title=~/#{@site}/
+    forums unless @browser.title=~/Forums$/
+    on Forums do |forum|
+      forum.open_forum @title
+    end
+    on ForumView do |view|
+      @short_description = view.short_description
+      view.view_full_description
+      @description_html = view.description_html
+    end
+  end
+    
+  def delete
+    
+  end
+
+  def get_entity_info
+    open_my_site_by_name @site unless @browser.title=~/#{@site}/
+    forums unless @browser.title=~/Forums$/
+    # TODO: Something will probably be needed here, in case we're currently
+    # on a Forum page already.
+    on Forums do |forum|
+      forum.forum_settings @title
+    end
+    on EditForum do |edit|
+      edit.entity_picker edit.editor
+    end
+    on EntityPicker do |pick|
+      pick.view_forum_details @title
+      @direct_link = pick.direct_link
+      # TODO: put more entity info stuff here!!
+      pick.close_picker
+    end
+    on EditForum do |edit|
+      edit.cancel
+    end
+  end
+
+end
+
+class TopicObject
+
+  include PageHelper
+  include Utilities
+  include Workflows
+  
+  attr_accessor :title, :short_description, :description, :site, :forum,
+                :author, :moderated, :modified_by, :date_modified,
+                :date_created, :direct_link, :description_html
+  
+  def initialize(browser, opts={})
+    @browser = browser
+    
+    defaults = {
+      :title=>random_alphanums,
+      :short_description=>random_alphanums,
+      :description=>random_alphanums,
+
+    }
+    options = defaults.merge(opts)
+    
+    @title=options[:title]
+    @short_description=options[:short_description]
+    @description=options[:description]
+    @site=options[:site]
+    @forum=options[:forum]
+    raise "You must define a site for your Topic" if @site==nil
+    raise "You must specify an existing Forum for your Topic" if @forum==nil
+  end
+
+  alias :name :title
+
+  def create
+    open_my_site_by_name @site unless @browser.title=~/#{@site}/
+    forums unless @browser.title=~/Forums$/
+    on Forums do |forums|
+      forums.new_topic_for_forum @forum
+    end
+    on AddEditTopic do |add|
+      add.title.set @title
+      add.short_description.set @short_description
+      add.enter_source_text add.editor, @description
+      add.save
+    end
+  end
+
+  def edit opts={}
+    open_my_site_by_name @site unless @browser.title=~/#{@site}/
+    forums unless @browser.title=~/Forums$/
+    on Forums do |forum|
+      reset
+      forum.topic_settings @title
+    end
+    on AddEditTopic do |edit|
+      edit.title.set opts[:title] unless opts[:title] == nil
+      edit.short_description.set opts[:short_description] unless opts[:short_description]==nil
+      unless opts[:description] == nil
+        edit.enter_source_text edit.editor, opts[:description]
+      end
+      edit.save
+    end
+    @title=opts[:title] unless opts[:title] == nil
+    @short_description=opts[:short_description] unless opts[:short_description] == nil
+    @description=opts[:description] unless opts[:description] == nil
+  end
+    
+  def view
+    open_my_site_by_name @site unless @browser.title=~/#{@site}/
+    forums unless @browser.title=~/Forums$/
+    on Forums do |forum|
+      reset
+      forum.open_topic @title
+    end
+    on ForumView do |view|
+      @short_description = view.short_description
+      view.view_full_description
+      @description_html = view.description_html
+    end
+  end
+    
+  def delete
+    
+  end
+
+  def get_entity_info
+    open_my_site_by_name @site unless @browser.title=~/#{@site}/
+    forums unless @browser.title=~/Forums$/
+    on Forums do |forums|
+      forums.topic_settings @title
+    end
+    on AddEditTopic do |topic|
+      topic.entity_picker topic.editor
+    end
+    on EntityPicker do |picker|
+      picker.view_topic_details @forum, @title
+      @author = picker.author
+      @moderated = picker.moderated
+      @modified_by = picker.modified_by
+      @date_modified = picker.date_modified
+      @date_created = picker.date_created
+      @direct_link = picker.direct_link
+      picker.close_picker
+    end
+    on AddEditTopic do |topic|
+      topic.cancel
+    end
+  end
+  
+end
+    
+      

data/lib/sambal-cle/data_objects/lesson.rb

@@ -0,0 +1,185 @@
+class ModuleObject
+
+  include PageHelper
+  include Utilities
+  include Workflows
+
+  attr_accessor :title, :description, :keywords, :start_date, :end_date, :site, :href
+
+  def initialize(browser, opts={})
+    @browser = browser
+
+    defaults = {
+      :title=>random_alphanums
+    }
+    options = defaults.merge(opts)
+
+    @title=options[:title]
+    @description=options[:description]
+    @keywords=options[:keywords]
+    @start_date=options[:start_date]
+    @end_date=options[:end_date]
+    @site=options[:site]
+    raise "You must specify a Site name for your lesson" if @site==nil
+  end
+
+  alias :name :title
+
+  def create
+    open_my_site_by_name @site unless @browser.title=~/#{@site}/
+    lessons unless @browser.title=~/Lessons$/
+    reset
+    on_page Lessons do |page|
+      page.add_module
+    end
+    on_page AddEditModule do |page|
+      page.title.set @title
+      page.description.set @description
+      page.keywords.set @keywords
+      page.start_date.set @start_date
+      page.end_date.set @end_date
+      page.add
+    end
+    on_page ConfirmModule do |page|
+      page.return_to_modules
+    end
+    on_page Lessons do |list|
+      @href = list.href @title
+    end
+  end
+
+end
+
+class ContentSectionObject
+
+  include PageHelper
+  include Utilities
+  include Workflows
+
+  attr_accessor :site, :module, :title, :instructions, :modality, :content_type,
+                :copyright_status, :editor_content, :file_folder, :file_name, :file_path,
+                :url, :url_title, :file_description, :url_description, :href
+
+  def initialize(browser, opts={})
+    @browser = browser
+
+    defaults = {
+      :title=>random_alphanums,
+      :copyright_status=>"Public Domain",
+      :modality=>[:check_textual]
+    }
+    options = defaults.merge(opts)
+
+    @site=options[:site]
+    @module=options[:module]
+    @title=options[:title]
+    @instructions=options[:instructions]
+    @modality=options[:modality]
+    @content_type=options[:content_type]
+    @copyright_status=options[:copyright_status]
+    @editor_content=options[:editor_content]
+    @file_name=options[:file_name]
+    @file_path=options[:file_path]
+    @file_description=options[:file_description]
+    @file_folder=options[:file_folder]
+    @url=options[:url]
+    @url_title=options[:url_title]
+    @url_description=options[:url_description]
+    raise "Your modality variable must be an Array containing one or more keys\nthat match the checkbox methods, like this:\n[:uncheck_textual, :check_visual, :check_auditory]" unless @modality.class==Array
+    raise "You must specify a Site for your Section" if @site==nil
+    raise "You must specify a Module for your Section" if @module==nil
+  end
+
+  alias :name :title
+
+  def create
+    open_my_site_by_name @site unless @browser.title=~/#{@site}/
+    lessons unless @browser.title=~/Lessons$/
+    reset
+    on_page Lessons do |page|
+      page.open_lesson @module
+    end
+    on_page AddEditModule do |page|
+      page.add_content_sections
+    end
+    on_page AddEditContentSection do |page|
+      page.title.set @title
+      page.instructions.set @instructions
+      @modality.each do |content|
+        page.send(content)
+      end
+      page.content_type.select @content_type unless @content_type==nil
+    end
+
+    on AddEditContentSection do |page| # Note we are reinstantiating the class here because of
+                                       # an issue with Selenium Webdriver throwing a
+                                       # WeakReference error, given the partial page reload.
+      case @content_type
+        when "Compose content with editor"
+          page.enter_source_text page.content_editor, @editor_content
+        when "Upload or link to a file"
+          page.select_a_file
+          on_page LessonAddAttachment do |add|
+            add.upload_local_file @file_name, @file_path
+            add.continue
+          end
+          page.file_description.set @file_description
+        when "Link to new or existing URL resource on server"
+          page.select_url
+          on_page SelectingContent do |select|
+            select.new_url.set @url
+            select.url_title.set @url_title
+            select.continue
+          end
+          page.url_description.set @url_description
+        when "Upload or link to a file in Resources"
+          page.select_or_upload_file
+          on_page ResourcesBase do |add|
+            add.open_folder @file_folder unless @file_folder == nil
+            add.select_file @file_name
+            add.continue
+          end
+        else
+          raise "You have a typo in what you've specified for your Section's content type.\nIt must be one of the options contained in the dropdown."
+      end
+      page.copyright_status.select @copyright_status
+      page.add
+    end
+    on ConfirmSectionAdd do |confirm|
+      confirm.finish
+    end
+    on Lessons do |list|
+      @href = list.href @title
+    end
+  end
+
+  def edit opts={}
+    open_my_site_by_name @site unless @browser.title=~/#{@site}/
+    lessons unless @browser.title=~/Lessons$/
+    reset
+    on Lessons do |list|
+      list.check_section @title
+      list.edit
+    end
+    on AddEditContentSection do |edit|
+      edit.title.set opts[:title] unless opts[:title]==nil
+      edit.instructions.set opts[:instructions] unless opts[:instructions]==nil
+      if opts[:modality].class==Array
+        opts[:modality].each do |item|
+          edit.send(item)
+        end
+      end
+
+      # TODO: Add code here for updating attached resources
+
+      edit.enter_source_text(edit.content_editor, opts[:editor_content]) unless opts[:editor_content]==nil
+
+      # TODO: Add code here for updating remaining variables
+
+      edit.finish
+    end
+    @title=opts[:title] unless opts[:title]==nil
+    @instructions=opts[:instructions] unless opts[:instructions]==nil
+    @modality=opts[:modality] unless opts[:modality]==nil
+  end
+end

data/lib/sambal-cle/data_objects/message.rb

@@ -0,0 +1,57 @@
+class MessageObject
+
+  include PageHelper
+  include Utilities
+  include Workflows
+
+  attr_accessor :site, :subject, :send_cc, :recipients, :message, :label
+
+  def initialize(browser, opts={})
+    @browser = browser
+
+    defaults = {
+      :subject=>random_alphanums,
+      :recipients=>["All Participants"]
+    }
+    options = defaults.merge(opts)
+
+    @subject=options[:subject]
+    @recipients=options[:recipients]
+    @site=options[:site]
+    @message=options[:message]
+    @label=options[:label]
+    raise "You need to specify a site for your web content" if @site==nil
+  end
+
+  def create
+    open_my_site_by_name @site unless @browser.title=~/#{@site}/
+    messages unless @browser.title=~/Messages$/
+  end
+
+  alias compose create
+
+
+
+end
+
+class MessageFolderObject
+
+  include PageHelper
+  include Utilities
+  include Workflows
+
+  attr_accessor :site
+
+  def initialize(browser, opts={})
+    @browser = browser
+
+    defaults = {}
+
+  end
+
+  def create
+
+
+  end
+
+end

data/lib/sambal-cle/data_objects/poll.rb

@@ -0,0 +1,74 @@
+class PollObject
+
+  include PageHelper
+  include Utilities
+  include Workflows
+  
+  attr_accessor :question, :instructions, :options, :opening_date, :closing_date,
+                :access, :visibility, :site
+  
+  def initialize(browser, opts={})
+    @browser = browser
+    
+    defaults = {
+      :question=>random_alphanums,
+      :options=>[random_alphanums, random_alphanums]
+    }
+    options = defaults.merge(opts)
+    
+    @question=options[:question]
+    @options=options[:options]
+    @opening_date=options[:opening_date]
+    @closing_date=options[:closing_date]
+    @site=options[:site]
+    @instructions=options[:instructions]
+    @access=options[:access]
+    @visibility=options[:visibility]
+    raise "You need to specify a site for your blog entry" if @site==nil
+  end
+    
+  def create
+    open_my_site_by_name @site unless @browser.title=~/#{@site}/
+    polls unless @browser.title=~/Polls$/
+    on Polls do |polls|
+      polls.add
+    end
+    on AddEditPoll do |add|
+      add.question.set @question
+      add.enter_source_text add.editor, @instructions
+      # TODO: Need to add the filling out of more fields here
+      add.save_and_add_options
+    end
+    on AddAnOption do |page|
+      if @options.length > 1
+        @options[0..-2].each do |option|
+          page.enter_source_text page.editor, option
+          page.save_and_add_options
+        end
+        page.enter_source_text(page.editor, @options[-1])
+        page.save
+      else
+        page.enter_source_text(page.editor, @options[0])
+        page.save
+      end
+    end
+    on AddEditPoll do |poll|
+      poll.save
+    end
+  end
+    
+  def edit opts={}
+    #TODO: Add stuff here
+  end
+    
+  def view
+    #TODO: Add stuff here
+  end
+    
+  def delete
+    #TODO: Add stuff here
+  end
+  
+end
+    
+