sambal-cle 0.1.3

data/lib/sambal-cle/page_objects/entity_picker.rb

@@ -0,0 +1,62 @@
+class EntityPicker < BasePage
+
+  def view_assignment_details(title)
+    unless self.div(:class=>"title", :text=>title).present?
+      self.link(:text=>"Assignments").wait_until_present(5)
+      self.link(:text=>"Assignments").click
+      self.link(:text=>title).wait_until_present(15)
+      self.link(:text=>title).click
+    end
+    self.div(:class=>"title", :text=>title).wait_until_present(5)
+  end
+
+  def select_assignment(title)
+    view_assignment_details(title)
+    self.link(:text=>"Select this item").click
+    self.window(:index=>0).use
+    self.frame(:index=>2).button(:id=>"btnOk").click
+  end
+
+  def close_picker
+    self.window.close
+    self.window(:index=>0).use
+    self.frame(:index=>2).button(:id=>"btnCancel").click
+  end
+
+  def view_forum_details(title)
+    unless self.span(:class=>"entity-item-label icon-sakai-entity-forum", :text=>title).present?
+      self.link(:class=>/entity-item-label icon-sakai-entity-forum/).wait_until_present(10)
+      self.link(:class=>/entity-item-label icon-sakai-entity-forum/).click
+      self.link(:text=>title).wait_until_present(10)
+      self.link(:text=>title).click
+    end
+    self.div(:class=>"title", :text=>title).wait_until_present
+  end
+
+  def view_topic_details(forum, topic)
+    unless self.span(:class=>"entity-item-label icon-sakai-entity-forum", :text=>title).present?
+      self.link(:class=>/entity-item-label icon-sakai-entity-forum/).wait_until_present(10)
+      self.link(:class=>/entity-item-label icon-sakai-entity-forum/).click
+      self.link(:text=>forum).wait_until_present(10)
+      self.link(:text=>forum).click
+      self.link(:text=>topic).wait_until_present(10)
+      self.link(:text=>topic).click
+    end
+    self.div(:class=>"title", :text=>topic).wait_until_present(10)
+  end
+
+  value(:url) { |b| b.td(text: "url").parent.td(class: "attrValue").text }
+  value(:portal_url) { |b| b.td(text: "portalURL").parent.td(class: "attrValue").text }
+  value(:direct_link) { |b| b.link(text: "Select this item").href }
+  value(:retract_time) { |b| b.td(text: "Retract Time").parent.td(class: "attrValue").text }
+  value(:time_due) { |b| b.td(text: "Time Due").parent.td(class: "attrValue").text }
+  value(:time_modified) { |b| b.td(text: "Time Modified").parent.td(class: "attrValue").text }
+  value(:description) { |b| b.td(text: "Description").parent.td(class: "attrValue").text }
+  value(:time_created) { |b| b.td(text: "Time Created").parent.td(class: "attrValue").text }
+  value(:date_created) { |b| b.td(text: "Date Created").parent.td(class: "attrValue").text }
+  value(:author) { |b| b.td(text: "Author").parent.td(class: "attrValue").text }
+  value(:moderated) { |b| b.td(text: "Moderated").parent.td(class: "attrValue").text }
+  value(:modified_by) { |b| b.td(text: "Modified By").parent.td(class: "attrValue").text }
+  value(:date_modified) { |b| b.td(text: "Date Modified").parent.td(class: "attrValue").text }
+
+end

data/lib/sambal-cle/page_objects/evaluations.rb

@@ -0,0 +1,158 @@
+#================
+# Evaluation System Pages
+#================
+
+# The "Evaluations Dashboard"
+class EvaluationSystem < BasePage
+
+  frame_element
+
+  # MyTemplates
+  action(:my_templates) { |b| b.frm.link(:text=>"My Templates").click }
+
+  # AddTemplateTitle
+  action(:add_template) { |b| b.frm.link(:text=>"Add Template").click }
+
+  # TakeEvaluation
+  def take_evaluation(evaluation_name)
+    frm.div(:class=>"summaryBox").table(:text=>/#{Regexp.escape(evaluation_name)}/).link.click
+    TakeEvaluation.new(@browser)
+  end
+
+  def status_of(evaluation_name)
+    frm.div(:class=>"summaryBox").table(:text=>/#{Regexp.escape(evaluation_name)}/)[1][1].text
+  end
+
+end
+
+#
+class AddTemplateTitle < BasePage
+
+  frame_element
+
+  def save
+    frm.button(:value=>"Save").click
+    EditTemplate.new(@browser)
+  end
+
+  element(:title) { |b| b.frm.text_field(:id=>"title") }
+  element(:description) { |b| b.frm.text_area(:id=>"description") }
+
+end
+
+
+#
+class EditTemplate < BasePage
+
+  frame_element
+
+  def item_text=(text)
+    frm.frame(:id, "item-text___Frame").td(:id, "xEditingArea").frame(:index=>0).send_keys(text)
+  end
+
+  action(:new_evaluation) { |b| b.frm.link(:text=>"New evaluation").click }
+
+  def add
+    frm.button(:value=>"Add").click
+    frm.frame(:id, "item-text___Frame").td(:id, "xEditingArea").wait_until_present
+  end
+
+  def save_item
+    frm.button(:value=>"Save item").click
+    frm.link(:text=>"New evaluation").wait_until_present
+    EditTemplate.new @browser
+  end
+
+  element(:item) { |b| b.frm.select_list(:id=>"add-item-control::add-item-classification-selection").click }
+end
+
+
+#
+class NewEvaluation < BasePage
+
+  include FCKEditor
+  frame_element
+
+  expected_element :editor
+
+  element(:editor) { |b| b.frm.frame(:id, "instructions:1:input___Frame") }
+
+  def continue_to_settings
+    frm.button(:value=>"Continue to Settings").click
+    EvaluationSettings.new(@browser)
+  end
+
+  def instructions=(text)
+    frm.frame(:id, "instructions:1:input___Frame").td(:id, "xEditingArea").frame(:index=>0).send_keys(text)
+  end
+
+  element(:title) { |b| b.frm.text_field(:id=>"title") }
+
+end
+
+
+#
+class EvaluationSettings < BasePage
+
+  frame_element
+
+  def continue_to_assign_to_courses
+    frm.button(:value=>"Continue to Assign to Courses").click
+    EditEvaluationAssignment.new(@browser)
+  end
+
+
+end
+
+
+#
+class EditEvaluationAssignment < BasePage
+
+  frame_element
+
+  def save_assigned_groups
+    frm.button(:value=>"Save Assigned Groups").click
+    ConfirmEvaluation.new(@browser)
+  end
+
+  def check_group(title)
+    frm.table(:class=>"listHier lines nolines").wait_until_present
+    frm.table(:class=>"listHier lines nolines").row(:text=>/#{Regexp.escape(title)}/).checkbox(:name=>"selectedGroupIDs").set
+  end
+
+  action(:assign_to_evaluation_groups) { |b| b.frm.link(:text=>"Assign to Evaluation Groups").click }
+end
+
+
+#
+class ConfirmEvaluation < BasePage
+
+  frame_element
+
+  def done
+    frm.button(:value=>"Done").click
+    MyEvaluations.new(@browser)
+  end
+
+end
+
+#
+class MyEvaluations < BasePage
+
+  frame_element
+
+
+end
+
+#
+class TakeEvaluation < BasePage
+
+  frame_element
+
+  def submit_evaluation
+    frm.button(:value=>"Submit Evaluation").click
+    EvaluationSystem.new(@browser)
+  end
+
+
+end

data/lib/sambal-cle/page_objects/feedback.rb

@@ -0,0 +1,36 @@
+#================
+# Feedback pages
+#================
+
+#
+class Feedback < BasePage
+
+  frame_element
+
+  def add
+    frm.link(:text=>"Add").click
+    AddUpdateFeedback.new(@browser)
+  end
+
+  # Returns an array containing the titles
+  # of the Feedback items listed on the page.
+  def feedback_items
+    items = []
+    frm.table(:class=>"listHier lines nolines").rows.each_with_index do |row, index|
+      next if index == 0
+      items << row[0].text
+    end
+    return items
+  end
+
+end
+
+#
+class AddUpdateFeedback < BasePage
+
+  frame_element
+
+
+  element(:title) { |b| b.frm.text_field(:id=>"_idJsp1:title") }
+
+end

data/lib/sambal-cle/page_objects/forms.rb

@@ -0,0 +1,120 @@
+#================
+# Forms Pages - Portfolio Site
+#================
+
+# The topmost page of Forms in a Portfolio Site.
+class Forms < BasePage
+
+  frame_element
+
+  # Clicks the Add button and instantiates
+  # the AddForm Class.
+  def add
+    frm.link(:text=>"Add").click
+    AddForm.new(@browser)
+  end
+
+  # Clicks the Publish buton for the specified
+  # Form, then instantiates the PublishForm Class.
+  def publish(form_name)
+    frm.table(:class=>"listHier lines nolines").tr(:text, /#{Regexp.escape(form_name)}/).link(:text=>/Publish/).click
+    PublishForm.new(@browser)
+  end
+
+  # Clicks the Import button, then
+  # instantiates the ImportForms Class.
+  def import
+    frm.link(:text=>"Import").click
+    ImportForms.new(@browser)
+  end
+
+end
+
+class ImportForms < BasePage
+
+  frame_element
+
+  def import
+    frm.button(:value=>"Import").click
+    Forms.new(@browser)
+  end
+
+  def select_file
+    frm.link(:text=>"Select File...").click
+    AttachFileFormImport.new(@browser)
+  end
+
+end
+
+class AddForm < BasePage
+
+  frame_element
+
+  def select_schema_file
+    frm.link(:text=>"Select Schema File").click
+    SelectSchemaFile.new(@browser)
+  end
+
+  def instruction=(text)
+    frm.frame(:id, "instruction___Frame").td(:id, "xEditingArea").frame(:index=>0).send_keys(text)
+  end
+
+  def add_form
+    frm.button(:value=>"Add Form").click
+    Forms.new(@browser)
+  end
+
+  element(:name) { |b| b.frm.text_field(:id=>"description-id") }
+
+
+end
+
+class SelectSchemaFile < BasePage
+
+  frame_element
+
+  def show_other_sites
+    frm.link(:title=>"Show other sites").click
+    SelectSchemaFile.new(@browser)
+  end
+
+  def open_folder(name)
+    frm.link(:text=>name).click
+    SelectSchemaFile.new(@browser)
+  end
+
+  def select_file(filename)
+    index = file_names.index(filename)
+    frm.table(:class=>"listHier lines").tr(:text, /#{Regexp.escape(filename)}/).link(:text=>"Select").click
+    SelectSchemaFile.new(@browser)
+  end
+
+  def file_names #FIXME
+    names = []
+    resources_table = frm.table(:class=>"listHier lines")
+    1.upto(resources_table.rows.size-1) do |x|
+      if resources_table[x][0].link.exist? && resources_table[x][0].a(:index=>0).title=~/File Type/
+        names << resources_table[x][0].text
+      end
+    end
+    return names
+  end
+
+  def continue
+    frm.button(:value=>"Continue").click
+    frm.frame(:id, "instruction___Frame").td(:id, "xEditingArea").wait_until_present
+    AddForm.new(@browser)
+  end
+
+end
+
+class PublishForm < BasePage
+
+  frame_element
+
+  def yes
+    frm.button(:value=>"Yes").click
+    Forms.new(@browser)
+  end
+
+end

data/lib/sambal-cle/page_objects/forums.rb

@@ -0,0 +1,254 @@
+class Forums < BasePage
+
+  frame_element
+
+  # Pass this method a string that matches
+  # the title of a Forum on the page, it returns
+  # True if the specified forum row has "DRAFT" in it.
+  def draft?(title)
+    frm.table(:id=>"msgForum:forums").row(:text=>/#{Regexp.escape(title)}/).span(:text=>"DRAFT").exist?
+  end
+
+  action(:new_forum) { |b| b.frm.link(:text=>"New Forum").click }
+
+  # AddEditTopic
+  def new_topic_for_forum(name)
+    index = forum_titles.index(name)
+    frm.link(:text=>"New Topic", :index=>index).click
+  end
+
+  # OrganizeForums
+  action(:organize) { |b| b.frm.link(:text=>"Organize").click }
+
+  # ForumTemplateSettings
+  action(:template_settings) { |b| b.frm.link(:text=>"Template Settings").click }
+
+  element(:forums_table) { |b| b.frm.div(:class=>"portletBody").table(:id=>"msgForum:forums") }
+
+  def forum_titles
+    titles = []
+    title_links = frm.div(:class=>"portletBody").links.find_all { |link| link.class_name=="title" && link.id=="" }
+    title_links.each { |link| titles << link.text }
+    return titles
+  end
+
+  def topic_titles
+    titles = []
+    title_links = frm.div(:class=>"portletBody").links.find_all { |link| link.class_name == "title" && link.id != "" }
+    title_links.each { |link| titles << link.text }
+    return titles
+  end
+
+  # EditForum
+  def forum_settings(name)
+    index = forum_titles.index(name)
+    frm.link(:text=>"Forum Settings", :index=>index).click
+  end
+
+  # AddEditTopic
+  def topic_settings(name)
+    index = topic_titles.index(name)
+    frm.link(:text=>"Topic Settings", :index=>index).click
+  end
+
+  # EditForum
+  def delete_forum(name)
+    index = forum_titles.index(name)
+    frm.link(:id=>/msgForum:forums:\d+:delete/,:text=>"Delete", :index=>index).click
+  end
+
+  # AddEditTopic
+  def delete_topic(name)
+    index = topic_titles.index(name)
+    frm.link(:id=>/topics:\d+:delete_confirm/, :text=>"Delete", :index=>index).click
+  end
+
+  def open_forum(title)
+    frm.link(:text=>/#{title}/).wait_until_present(7)
+    frm.link(:text=>/#{title}/).click
+  end
+  alias open_topic open_forum
+
+end
+
+class TopicPage < BasePage
+
+  frame_element
+
+  # ComposeForumMessage
+  action(:post_new_thread) { |b| b.frm.link(:text=>"Post New Thread").click }
+
+  def thread_titles
+    titles = []
+    message_table = frm.table(:id=>"msgForum:messagesInHierDataTable")
+    1.upto(message_table.rows.size-1) do |x|
+      titles << message_table[x][1].span(:class=>"firstChild").link(:index=>0).text
+    end
+    return titles
+  end
+
+  # ViewForumThread
+  def open_message(message_title)
+    frm.div(:class=>"portletBody").link(:text=>message_title).click
+  end
+
+  # TopicPage
+  action(:display_entire_message){ |b| b.frm.link(:text=>"Display Entire Message").click }
+
+end
+
+class ViewForumThread < BasePage
+
+  frame_element
+
+  # ComposeForumMessage
+  action(:reply_to_thread) { |b| b.frm.link(:text=>"Reply to Thread").click }
+
+  # ComposeForumMessage
+  # TODO: Figure out a better way to do this...
+  def reply_to_message(index)
+    frm.link(:text=>"Reply", :index=>(index.to_i - 1)).click
+  end
+end
+
+class ComposeForumMessage < BasePage
+
+  include FCKEditor
+  frame_element
+
+  expected_element :editor
+
+  # TopicPage, probably
+  action(:post_message) { |b| b.frm.button(:text=>"Post Message").click }
+
+  element(:editor) { |b| b.frm.frame(:id, "dfCompose:df_compose_body_inputRichText___Frame") }
+
+  def message=(text)
+    editor.td(:id, "xEditingArea").frame(:index=>0).send_keys(text)
+  end
+
+  value(:reply_text) { |b| b.frame(:index=>1).div(:class=>"singleMessageReply").text }
+
+  action(:cancel) { |b| b.frm.button(:value=>"Cancel").click }
+
+  element(:title) { |b| b.frm.text_field(:id=>"dfCompose:df_compose_title") }
+
+end
+
+class ForumTemplateSettings < BasePage
+
+  frame_element
+
+  value(:page_title) { |b| b.frm.div(:class=>"portletBody").h3(:index=>0).text }
+
+  # Forums
+  action(:save) { |b| b.frm.button(:value=>"Save").click }
+
+  # Forums
+  action(:cancel) { |b| b.frm.button(:value=>"Cancel").click }
+
+end
+
+class OrganizeForums < BasePage
+
+  frame_element
+
+  # Forums
+  action(:save) { |b| b.frm.button(:value=>"Save").click }
+
+  # These are set to so that the user
+  # does not have to start the list at zero...
+  # TODO: Is there any chance there's a better way to do this? It's friggin' ugly!
+  def forum(index)
+    frm.select(:id, "revise:forums:#{index.to_i - 1}:forumIndex")
+  end
+
+  def topic(forumindex, topicindex)
+    frm.select(:id, "revise:forums:#{forumindex.to_i - 1}:topics:#{topicindex.to_i - 1}:topicIndex")
+  end
+end
+
+class EditForum < BasePage
+
+  include FCKEditor
+  frame_element
+
+  # Forums
+  action(:save) { |b| b.frm.button(:value=>"Save").click }
+  action(:cancel) { |b| b.frm.button(:value=>"Cancel").click }
+
+  # AddEditTopic
+  action(:save_and_add) { |b| b.frm.button(:value=>"Save Settings & Add Topic").click }
+
+  element(:editor) { |b| b.frm.div(:class=>"portletBody").frame(:id, "revise:df_compose_description_inputRichText___Frame") }
+
+  def description=(text)
+    editor.td(:id, "xEditingArea").frame(:index=>0).send_keys(text)
+  end
+
+  #ForumsAddAttachments (or not, actually, now that I think of it)
+  action(:add_attachments) { |b| b.frm.button(:value=>/attachments/).click }
+
+  element(:title){ |b| b.frm.text_field(:id=>"revise:forum_title") }
+  element(:short_description){ |b| b.frm.text_field(:id=>"revise:forum_shortDescription") }
+
+end
+
+class AddEditTopic < BasePage
+
+  include FCKEditor
+  frame_element
+
+  @@table_index=0 # TODO: Seriously think about a better way to do this
+
+  def editor
+    frm.div(:class=>"portletBody").frame(:id, "revise:topic_description_inputRichText___Frame")
+  end
+
+  def description=(text)
+    editor.td(:id, "xEditingArea").frame(:index=>0).send_keys(text)
+  end
+
+  # Forums
+  action(:save) { |b| b.frm.button(:value=>"Save").click }
+  action(:cancel) { |b| b.frm.button(:value=>"Cancel").click }
+
+  action(:add_attachments) { |b| b.frm.button(:value=>/Add.+ttachment/).click }
+
+  def roles
+    roles=[]
+    options = frm.select(:id=>"revise:role").options.to_a
+    options.each { |option| roles << option.text }
+    return roles
+  end
+
+  def site_role=(role)
+    frm.select(:id=>"revise:role").select(role)
+    0.upto(frm.select(:id=>"revise:role").length - 1) do |x|
+      if frm.div(:class=>"portletBody").table(:class=>"permissionPanel jsfFormTable lines nolines", :index=>x).visible?
+        @@table_index = x
+
+        def permission_level=(value)
+          frm.select(:id=>"revise:perm:#{@@table_index}:level").select(value)
+        end
+
+      end
+    end
+  end
+
+  element(:title) { |b| b.frm.text_field(:id=>"revise:topic_title") }
+  element(:short_description) { |b| b.frm.text_field(:id=>"revise:topic_shortDescription") }
+
+end
+
+class ForumView < BasePage
+
+  frame_element
+
+  action(:view_full_description) { |b| b.frm.link(id: "msgForum:forum_extended_show").click }
+  action(:hide_full_description) { |b| b.frm.link(id: "msgForum:forum_extended_hide").click }
+
+  value(:short_description) { |b| b.frm.span(class: "shortDescription").text }
+  value(:description_html) { |b| b.frm.div(class: "toggle").div(class: "textPanel").html }
+
+end