sakai-cle-test-api 0.1.1 → 0.1.2

data/lib/sakai-cle-test-api/data_objects/assignment.rb

@@ -4,7 +4,12 @@ class AssignmentObject
   include Utilities
   include Workflows
 
-  attr_accessor :title, :site, :instructions, :id, :link, :status
+  attr_accessor :title, :site, :instructions, :id, :link, :status, :grade_scale,
+                :max_points, :allow_resubmission, :num_resubmissions,
+                # Note the following variables are taken from the Entity picker's
+                # Item Info list
+                :retract_time, :time_due, :time_modified, :url, :portal_url,
+                :description, :time_created, :direct_url
 
   def initialize(browser, opts={})
     @browser = browser
@@ -18,7 +23,12 @@ class AssignmentObject
     @title=options[:title]
     @instructions=options[:instructions]
     @site=options[:site]
+    @grade_scale=options[:grade_scale]
+    @max_points=options[:max_points]
+    @allow_resubmission=options[:allow_resubmission]
+    @num_resubmissions=options[:num_resubmissions]
     raise "You must specify a Site for your Assignment" if @site==nil
+    raise "You must specify max points if your grade scale is 'points'" if @max_points==nil && @grade_scale=="Points"
   end
 
   alias :name :title
@@ -29,12 +39,16 @@ class AssignmentObject
     # Go to assignments page
     assignments unless @browser.title=~/Assignments$/
 
-    on_page AssignmentsList do |page|
-      page.add
+    on_page AssignmentsList do |list|
+      list.add
     end
     on_page AssignmentAdd do |add|
       add.title.set @title
       add.instructions=@instructions
+      add.grade_scale.select @grade_scale unless @grade_scale==nil
+      add.max_points.set @max_points unless @max_points==nil
+      add.allow_resubmission.send(@allow_resubmission) unless @allow_resubmission==nil
+      add.num_resubmissions.select @num_resubmissions unless @num_resubmissions==nil
       add.post
     end
     on_page AssignmentsList do |list|
@@ -63,12 +77,13 @@ class AssignmentObject
     end
     @title=opts[:title] unless opts[:title] == nil
     @instructions=opts[:instructions] unless opts[:instructions] == nil
+    @max_points=opts[:max_points] unless opts[:title] == nil
     on AssignmentsList do |list|
       @status=list.status_of @title
     end
   end
 
-  def get_assignment_info
+  def get_info
     open_my_site_by_name @site unless @browser.title=~/#{@site}/
     assignments unless @browser.title=~/Assignments$/
     on AssignmentsList do |list|
@@ -81,10 +96,32 @@ class AssignmentObject
         list.edit_assignment @title
       end
     end
+
+    # TODO: Need to add more stuff here as needed...
+
     on AssignmentAdd do |edit|
-      # TODO: Need to add more stuff here as needed...
+
       @instructions=edit.get_source_text edit.editor
+      edit.source edit.editor
+      edit.entity_picker(edit.editor)
+    end
+    on EntityPicker do |info|
+      info.view_assignment_details @title
+      @retract_time=info.retract_time
+      @time_due=info.time_due
+      @time_modified=info.time_modified
+      @url=info.url
+      @portal_url=info.portal_url
+      @description=info.description
+      @time_created=info.time_created
+      @direct_url=info.direct_link
+      info.close_picker
+    end
+    on AssignmentAdd do |edit|
+      edit.cancel
     end
   end
 
+
+
 end

data/lib/sakai-cle-test-api/page_objects/entity_picker.rb

@@ -0,0 +1,34 @@
+class EntityPicker < BasePage
+
+  def view_assignment_details(title)
+    unless self.div(:class=>"title", :text=>title).present?
+      self.link(:text=>"Assignments").click
+      self.link(:text=>title).wait_until_present
+      self.link(:text=>title).click
+    end
+    self.div(:class=>"title", :text=>title).wait_until_present
+  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
+
+  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 }
+
+end

data/lib/sakai-cle-test-api/rich_text.rb

@@ -14,14 +14,25 @@ module FCKEditor
 
   def enter_source_text(editor, text)
     source(editor)
-    editor.text_field(:class=>"SourceField").wait_until_present
-    editor.text_field(:class=>"SourceField").set text
+    source_field(editor).wait_until_present
+    source_field(editor).set text
   end
 
   def get_source_text(editor)
     source(editor)
-    editor.text_field(:class=>"SourceField").wait_until_present
-    editor.text_field(:class=>"SourceField").value
+    source_field(editor).wait_until_present
+    source_field(editor).value
+  end
+
+  def entity_picker(editor)
+    editor.div(:title=>"Sakai_Entity_Link").wait_until_present
+    editor.div(:title=>"Sakai_Entity_Link").click
+    @browser.frame(:index=>2).frame(:id=>"frmMain").button(:value=>"Browse Server").click
+    @browser.window(:url=>/sakai-entitybrowser-tool/).use
+  end
+
+  def source_field(editor)
+    editor.text_field(:class=>"SourceField")
   end
 
 end

data/sakai-cle-test-api.gemspec

@@ -1,6 +1,6 @@
 spec = Gem::Specification.new do |s|
   s.name = 'sakai-cle-test-api'
-  s.version = '0.1.1'
+  s.version = '0.1.2'
   s.summary = %q{Sakai-CLE functional testing API for the rSmart Collaborative Learning Environment}
   s.description = %q{The Sakai-CLE gem provides an API for interacting with pages and page elements in rSmart's deployment of the Sakai Collaborative Learning Environment.}
   s.files = Dir.glob("**/**/**")

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: sakai-cle-test-api
 version: !ruby/object:Gem::Version
-  version: 0.1.1
+  version: 0.1.2
   prerelease: 
 platform: ruby
 authors:
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-09-24 00:00:00.000000000 Z
+date: 2012-09-25 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: watir-webdriver
@@ -82,6 +82,7 @@ files:
 - lib/sakai-cle-test-api/page_objects/chat_room.rb
 - lib/sakai-cle-test-api/page_objects/drop_box.rb
 - lib/sakai-cle-test-api/page_objects/email_archive.rb
+- lib/sakai-cle-test-api/page_objects/entity_picker.rb
 - lib/sakai-cle-test-api/page_objects/evaluations.rb
 - lib/sakai-cle-test-api/page_objects/feedback.rb
 - lib/sakai-cle-test-api/page_objects/forms.rb