sambal-cle 0.1.3 → 0.1.4

data/test/assignments_grading_spec.rb

@@ -0,0 +1,123 @@
+require 'rspec'
+require 'sambal-cle'
+require 'yaml'
+
+describe "Assignments grading" do
+
+  include Utilities
+  include Workflows
+  include Foundry
+  include StringFactory
+  include DateFactory
+
+  before :all do
+
+    # Get the test configuration data
+    @config = YAML.load_file("config.yml")
+    @directory = YAML.load_file("directory.yml")
+    @sakai = SakaiCLE.new(@config['browser'], @config['url'])
+    @browser = @sakai.browser
+
+    @student = make UserObject, :id=>@directory['person1']['id'], :password=>@directory['person1']['password'],
+                    :first_name=>@directory['person1']['firstname'], :last_name=>@directory['person1']['lastname']
+    @instructor1 = make UserObject, :id=>@directory['person3']['id'], :password=>@directory['person3']['password'],
+                        :first_name=>@directory['person3']['firstname'], :last_name=>@directory['person3']['lastname'],
+                        :type=>"Instructor"
+    @instructor2 = make UserObject, :id=>@directory['person4']['id'], :password=>@directory['person4']['password'],
+                        :first_name=>@directory['person4']['firstname'], :last_name=>@directory['person4']['lastname'],
+                        :type=>"Instructor"
+    @instructor1.log_in
+
+    @site = make SiteObject
+    @site.create
+    @site.add_official_participants :role=>@student.type, :participants=>[@student.id]
+    @site.add_official_participants :role=>@instructor2.type, :participants=>[@instructor2.id]
+
+    @assignment = make AssignmentObject, :site=>@site.name, :title=>random_string(25),
+                       :open=>an_hour_ago, :grade_scale=>"Pass",
+                       :instructions=>random_multiline(50, 15, :string)
+    @submission = make AssignmentSubmissionObject, :site=>@site.name, :title=>@assignment.title,
+                       :student=>@student
+    @assignment2 = make AssignmentObject, :site=>@site.name, :title=>random_string(25),
+                        :open=>an_hour_ago, :grade_scale=>"Letter grade"
+    @submission2 = make AssignmentSubmissionObject, :site=>@site.name, :title=>@assignment2.title,
+                        :student=>@student
+    @assignment.create
+    @assignment2.create
+
+    @instructor1.log_out
+
+    @student.log_in
+
+    @submission.submit
+    @submission2.submit
+
+    @student.log_out
+
+  end
+=begin
+  after :all do
+    # Close the browser window
+    @sakai.browser.close
+  end
+=end
+  it "Assignment can be graded" do
+    @instructor1.log_in
+    @submission.grade_submission :summary_comment=>random_alphanums, :grade=>"Fail",
+                      :inline_comment=>random_alphanums, :allow_resubmission=>:set,
+                      :release_to_student=>"yes"
+    @submission2.grade_submission :grade=>"C", :inline_comment=>random_alphanums,
+                                  :summary_comment=>random_alphanums
+    @instructor1.log_out
+  end
+
+  it "The graded assignment's status is based on whether it was released" do
+    @student.log_in
+    open_my_site_by_name @submission.site
+    assignments
+    on AssignmentsList do |list|
+      list.status_of(@submission2).should=="#{@submission2.status} #{@submission2.submission_date}"
+      list.status_of(@submission).should=="Returned"
+    end
+  end
+
+  it "Assignment grade can be released to the student" do
+
+    @submission.open
+    on AssignmentStudentView do |view|
+      view.summary_info["Grade"].should==@submission.grade
+    end
+  end
+
+  it "Assignments can be resubmitted if instructor allows" do
+    on AssignmentStudentView do |view|
+      view.summary_info["Status"].should=="Return #{@submission.returned[:sakai]}"
+      view.summary_info["Number of resubmissions allowed"].should==@submission.num_resubmissions
+      view.summary_info["Accept Resubmission Until"].should==@submission.accept_until[:sakai_rounded]
+      view.resubmit_button.should_be present
+    end
+  end
+
+  it "Student can read instructor comments for returned assignments" do
+    on AssignmentStudentView do |view|
+      view.instructions.should==@assignment.instructions
+      view.instructor_comments.should==@submission.summary_comment
+      view.submission_text.should include @submission.inline_comment
+
+    end
+  end
+
+  it "Students can't see grade or instructor comments until released" do
+    @submission2.open
+    on AssignmentStudentView do |view|
+      view.summary_info["Grade"].should==nil
+      view.instructor_comment_field.should_not be_present
+      view.submission_text.should_not include @submission2.inline_comment
+    end
+  end
+
+  # TODO: Other tests to add:
+  # - Assignment resubmissions from the Grade page are per student, not global
+  # - Tests of the second submission: Does it not allow any more?
+
+end

data/test/assignments_submission_spec.rb

@@ -0,0 +1,143 @@
+# coding: UTF-8
+require 'rspec'
+require 'sambal-cle'
+require 'yaml'
+
+describe "Assignments Submission" do
+
+  include Utilities
+  include Workflows
+  include Foundry
+  include StringFactory
+  include DateFactory
+
+  before :all do
+
+    # Get the test configuration data
+    @config = YAML.load_file("config.yml")
+    @directory = YAML.load_file("directory.yml")
+    @sakai = SakaiCLE.new(@config['browser'], @config['url'])
+    @browser = @sakai.browser
+
+    @student = make UserObject, :id=>@directory['person1']['id'], :password=>@directory['person1']['password'],
+                    :first_name=>@directory['person1']['firstname'], :last_name=>@directory['person1']['lastname']
+    @instructor1 = make UserObject, :id=>@directory['person3']['id'], :password=>@directory['person3']['password'],
+                        :first_name=>@directory['person3']['firstname'], :last_name=>@directory['person3']['lastname'],
+                        :type=>"Instructor"
+    @instructor2 = make UserObject, :id=>@directory['person4']['id'], :password=>@directory['person4']['password'],
+                        :first_name=>@directory['person4']['firstname'], :last_name=>@directory['person4']['lastname'],
+                        :type=>"Instructor"
+    @instructor1.log_in
+
+    @site = make SiteObject
+    @site.create
+    @site.add_official_participants :role=>@student.type, :participants=>[@student.id]
+    @site.add_official_participants :role=>@instructor2.type, :participants=>[@instructor2.id]
+
+    @assignment = make AssignmentObject, :site=>@site.name, :title=>random_string(25),
+                       :open=>an_hour_ago, :grade_scale=>"Pass",
+                       :instructions=>random_multiline(100, 15, :string)
+    @submission = make AssignmentSubmissionObject, :site=>@site.name, :title=>@assignment.title,
+                       :student=>@student
+    @assignment2 = make AssignmentObject, :site=>@site.name, :title=>random_string(25),
+                        :open=>an_hour_ago, :grade_scale=>"Points", :max_points=>"111",
+                        :allow_resubmission=>:set
+    @submission2 = make AssignmentSubmissionObject, :site=>@site.name, :title=>@assignment2.title,
+                       :student=>@student
+    @assignment.create
+    @assignment2.create
+
+    @instructor1.log_out
+    @student.log_in
+  end
+
+  after :all do
+    # Close the browser window
+    @sakai.browser.close
+  end
+
+  it "Student can save an assignment as 'In progress'" do
+    @submission.save_draft
+    on SubmissionConfirmation do |confirm|
+      confirm.submission_text.should==@submission.text
+      confirm.confirmation_text.should=="You have successfully saved your work but NOT submitted yet. To complete submission, you must select the Submit button."
+      confirm.back_to_list
+    end
+    on AssignmentsList do |list|
+      list.status_of(@submission.title).should==@submission.status
+    end
+  end
+
+  it "Blank submissions throw a warning and aren't submitted" do
+    @submission.text="" # Typically we want to avoid doing this!
+    @submission.submit
+    on AssignmentStudentView do |assignment|
+      assignment.instructions.should==@assignment.instructions
+      assignment.alert_box.should=="Alert: You must either type in your answer in the text input or attach at least one document before submission."
+    end
+  end
+
+  it "Student can submit an assignment" do
+    @submission.text=random_alphanums
+    @submission.submit
+    on SubmissionConfirmation do |confirm|
+      confirm.summary_info["Class site:"].should==@submission.site
+      confirm.summary_info["User:"].should==@student.long_name
+      confirm.summary_info["Assignment:"].should==@submission.title
+      confirm.submission_text.should==@submission.text
+      confirm.confirmation_text.should=="You have successfully submitted your work. You will receive an email confirmation containing this information."
+      # TODO Need to add validation of attachments
+      confirm.back_to_list
+    end
+    on AssignmentsList do |list|
+      list.status_of(@submission.title).should=="#{@submission.status} #{@submission.submission_date}"
+    end
+  end
+
+  it "Assignments by default do not allow resubmission" do
+    @submission.view
+    on AssignmentStudentView do |view|
+      view.summary_info["Submitted Date"].should==@submission.submission_date
+      view.summary_info["Title"].should==@submission.title
+      view.submit_button.should_not be_present
+      view.save_draft_button.should_not be_present
+      view.back_to_list
+    end
+  end
+
+  it "Assignments that allow resubmission can be" do
+    @submission2.submit
+    on SubmissionConfirmation do |confirm|
+      confirm.back_to_list
+    end
+    on AssignmentsList do |list|
+      list.status_of(@submission2.title).should=="#{@submission2.status} #{@submission2.submission_date}"
+      list.open_assignment @submission2.title
+    end
+    on AssignmentStudentView do |assignment|
+      assignment.resubmit_button.should be_present
+      assignment.resubmit
+    end
+    on SubmissionConfirmation do |confirm|
+      confirm.summary_info["Class site:"].should==@submission2.site
+      confirm.summary_info["User:"].should==@student.long_name
+      confirm.summary_info["Assignment:"].should==@submission2.title
+      confirm.summary_info["Submitted on:"].should==@submission2.submission_date # TODO: "resubmission" date? This needs testing.
+      confirm.submission_text.should==@submission2.text
+      confirm.confirmation_text.should=="You have successfully submitted your work. You will receive an email confirmation containing this information."
+      confirm.back_to_list
+    end
+  end
+
+  it "Assignments only allow one resubmission by default" do
+    @assignment2.num_resubmissions.should=="1"
+    on AssignmentsList do |list|
+      list.open_assignment @submission2.title
+    end
+    on AssignmentStudentView do |assignment|
+      assignment.resubmit_button.should_not be_present
+    end
+
+  end
+  
+end

data/test/config.yml

@@ -0,0 +1,3 @@
+browser: :firefox
+url: https://cle-1.qa.rsmart.com/xsl-portal
+data_directory: /Users/abrahamheward/work/Sambal/data/sakai-cle/

data/test/directory.yml

@@ -0,0 +1,120 @@
+--- 
+admin: 
+  username: admin
+  password: admin
+person1: 
+  id: student01
+  firstname: Sañdra
+  lastname:  Chëeks
+  email: dfhlese@rsmart.com
+  password: password
+  type: registered
+person2: 
+  id: student02
+  firstname: Billy
+  lastname: Bob
+  email: teulkf@rsmart.com
+  password: password
+  type: registered
+person3: 
+  id: instructor1
+  firstname: Joel
+  lastname: Instructor
+  email: ew6elyjk@rsmart.com
+  password: password
+  type: maintain
+person4: 
+  id: instructor2
+  firstname: Joanne
+  lastname: Instructor
+  email: deyrel567km@rsmart.com
+  password: password
+  type: maintain
+person5: 
+  id: student03
+  firstname: Achilles
+  lastname: Punks
+  email: thjlsert46@rsmart.com
+  password: password
+  type: registered
+person6: 
+  id: student04
+  firstname: Wilma
+  lastname: Legrobach
+  email: aherljkhg@rsmart.com
+  password: password
+  type: registered
+person7: 
+  id: student05
+  firstname: Jason
+  lastname: Elbate
+  email: te5hsw@rsmart.com
+  password: password
+  type: registered
+person8: 
+  id: student06
+  firstname: Jain
+  lastname: Linkvence
+  email: fgsdlfghrte4@rsmart.com
+  password: password
+  type: registered
+person9: 
+  id: student07
+  firstname: Dirk
+  lastname: Dogooder
+  email: stslethsrt7@rsmart.com
+  password: password
+  type: registered
+person10: 
+  id: student08
+  firstname: Sally
+  lastname: Malnilla
+  email: rtjyldryry@rsmart.com
+  password: password
+  type: registered
+person11: 
+  id: student09
+  firstname: Bo
+  lastname: Gart
+  email: srltjsy7@rsmart.com
+  password: password
+  type: registered
+person12: 
+  id: student10
+  firstname: Apnand
+  lastname: SluperNinja
+  email: pouhlyoiuh@rsmart.com
+  password: password
+  type: registered
+person13: 
+  id: peezel
+  firstname: Jack
+  lastname: O'Gallywag
+  email: agfslagbhnt@rsmart.com
+  password: password
+  type: registered
+person14: 
+  id: punky
+  firstname: Clark
+  lastname: Klent
+  email: clark@rsmart.com
+  password: password
+  type: guest
+site1: 
+  type: course
+  name: p?_;fYam >sMmRi0* ;<ynvhuZ Fall 2012 1st 5 weeks
+  id: 1b2b4917-1d77-484d-b339-a3bf7befcb34
+  assignment1: me'x^YXGSA
+  assignment2: _vLkTWdCqn-MBbd
+  assignment3: <A HREF="http://1113982867/">XSS</A>
+  assignment4: "#TE}d*AnSj{E)BtkA2nGj+,Le"
+  assignment5: n1AKqbx!TMz^".So`NNO<goL)=n@\q
+  quiz1: oJsiT->,_L
+  quiz2: LLgBjXd0GV
+  group0: "]83%?!MgB*K*;o}xe&zZ4K,Zrc<-t9vC#Boq.|jdQsQH-WQQ:/m>`KC2'peXG$^%AlA_|wGh:Y.8%}\"TI.0\" - 201209170951"
+  group1: g"//INr.]/:OdZQq'^$6LT@1HXGV}sLvxh<JmnOqC<w_aaA&(G;*"gdOg^1vP[R_$),6UuT.?vq&=&u|u]rw - 201209170951
+  section1: LB%!K#DqeB
+  section2: "\"<IMG SRC=\"jav\tascript:alert('XSS');\">"
+site2: 
+  type: portfolio
+  name: uzGKQL6T5A

data/test/duplicate_site_spec.rb

@@ -6,7 +6,7 @@ describe "Duplicate Site" do
 
   include Utilities
   include Workflows
-  include PageHelper
+  include Foundry
 
   before :all do
 
@@ -16,6 +16,8 @@ describe "Duplicate Site" do
     @sakai = SakaiCLE.new(@config['browser'], @config['url'])
     @browser = @sakai.browser
     # This test case uses the logins of several users
+    @instructor = @directory['person3']['id']
+    @ipassword = @directory['person3']['password']
     @file_path = @config['data_directory']
     @source_site_string = "Links to various items in this site:"
 
@@ -134,12 +136,12 @@ describe "Duplicate Site" do
     @new_assignment.get_info
 
   end
-
+=begin
   after :all do
     # Close the browser window
     @browser.close
   end
-
+=end
   def check_this_stuff(thing)
     thing.should match /Site ID: #{@site2.id}/
     thing.should match /\(y\) <a href..#{@new_assignment.direct_url}/

data/test/import_site_content_spec.rb

@@ -0,0 +1,248 @@
+require 'rspec'
+require 'sambal-cle'
+require 'yaml'
+
+describe "Import Site" do
+  
+  include Utilities
+  include Workflows
+  include Foundry
+
+  before :all do
+    
+    # Get the test configuration data
+    @config = YAML.load_file("config.yml")
+    @directory = YAML.load_file("directory.yml")
+    @sakai = SakaiCLE.new(@config['browser'], @config['url'])
+    @browser = @sakai.browser
+    # This test case uses the logins of several users
+    @instructor = @directory['person3']['id']
+    @ipassword = @directory['person3']['password']
+
+    @file_path = @config['data_directory']
+    @source_site_string = "Links to various items in this site:"
+
+    # Log in to Sakai
+    @sakai.page.login(@instructor, @ipassword)
+
+    @site1 = make SiteObject, :description=>"Original Site"
+    @site1.create
+
+    @source_site_string << "<br />\n<br />\nSite ID: #{@site1.id}<br />\n<br />\n"
+
+    @assignment = make AssignmentObject, :site=>@site1.name, :instructions=>@source_site_string
+    @assignment.create
+    @assignment.get_info
+
+    @source_site_string << "Assignment...<br />\nID:(n) #{@assignment.id}<br />\n"
+    @source_site_string << "Link (made 'by hand'): <a href=\"#{@assignment.link}\">#{@assignment.title}</a><br />\n"
+    @source_site_string << "URL from Entity picker:(x) <a href=\"#{@assignment.url}\">#{@assignment.title}</a><br />\n"
+    @source_site_string << "<em>Direct</em> URL from Entity picker:(y) <a href=\"#{@assignment.direct_url}\">#{@assignment.title}</a><br />\n<br />\n#{@assignment.direct_url}<br />\n<br />\n"
+    @source_site_string << "<em>Portal</em> URL from Entity picker:(z) <a href=\"#{@assignment.portal_url}\">#{@assignment.title}</a><br />\n<br />\n#{@assignment.portal_url}<br />\n<br />\n"
+
+    @announcement = make AnnouncementObject, :site=>@site1.name, :body=>@assignment.link
+    @announcement.create
+
+    @source_site_string << "<br />\nAnnouncement link: <a href=\"#{@announcement.link}\">#{@announcement.title}</a><br />\n"
+
+    @file = make FileObject, :site=>@site1.name, :name=>"flower02.jpg", :source_path=>@file_path+"images/"
+    @file.create
+
+    @source_site_string << "<br />\nUploaded file: <a href=\"#{@file.href}\">#{@file.name}</a><br />\n"
+
+    @htmlpage = make HTMLPageObject, :site=>@site1.name, :folder=>"#{@site1.name} Resources", :html=>@source_site_string
+    @htmlpage.create
+
+    @source_site_string << "<br />\nHTML Page: <a href=\"#{@htmlpage.url}\">#{@htmlpage.name}</a><br />\n"
+
+    @folder = make FolderObject, :site=>@site1.name, :parent_folder=>"#{@site1.name} Resources"
+    @folder.create
+
+    @nestedhtmlpage = make HTMLPageObject, :site=>@site1.name, :folder=>@folder.name, :html=>@source_site_string
+    @nestedhtmlpage.create
+
+    @source_site_string << "<br />\nNested HTML Page: <a href=\"#{@nestedhtmlpage.url}\">#{@nestedhtmlpage.name}</a><br />\n"
+
+    @web_content1 = make WebContentObject, :title=>@htmlpage.name, :source=>@htmlpage.url, :site=>@htmlpage.site
+    @web_content1.create
+
+    @web_content2 = make WebContentObject, :title=>@nestedhtmlpage.name, :source=>@nestedhtmlpage.url, :site=>@nestedhtmlpage.site
+    @web_content2.create
+
+    @module = make ModuleObject, :site=>@site1.name
+    @module.create
+
+    @source_site_string << "<br />\nModule: <a href=\"#{@module.href}\">#{@module.name}</a><br />\n"
+
+    @section1 = make ContentSectionObject, :site=>@site1.name, :module=>@module.title, :content_type=>"Compose content with editor",
+                     :editor_content=>@source_site_string
+    @section1.create
+
+    @source_site_string << "<br />\nSection 1: <a href=\"#{@section1.href}\">#{@section1.name}</a><br />\n"
+
+    @section2 = make ContentSectionObject, :site=>@site1.name, :module=>@module.title, :content_type=>"Upload or link to a file",
+                     :file_name=>"flower01.jpg", :file_path=>@file_path+"images/"
+    @section2.create
+
+    @source_site_string << "<br />Section 2: <a href=\"#{@section2.href}\">#{@section2.name}</a><br />"
+
+    @section3 = make ContentSectionObject, :site=>@site1.name, :module=>@module.title, :content_type=>"Link to new or existing URL resource on server",
+                     :url=>@htmlpage.url, :url_title=>@htmlpage.name
+    @section3.create
+
+    @section4 = make ContentSectionObject, :site=>@site1.name, :module=>@module.title, :content_type=>"Upload or link to a file in Resources",
+                     :file_name=>@nestedhtmlpage.name, :file_folder=>@nestedhtmlpage.folder
+    @section4.create
+
+    @wiki = make WikiObject, :site=>@site1.name, :content=>"{image:worksite:/#{@file.name}}\n\n{worksiteinfo}\n\n{sakai-sections}"
+    @wiki.create
+
+    @source_site_string << "<br />Wiki: <a href=\"#{@wiki.href}\">#{@wiki.title}</a><br />"
+
+    @syllabus = make SyllabusObject, :content=>@source_site_string, :site=>@site1.name
+    @syllabus.create
+
+    @forum = make ForumObject, :site=>@site1.name, :short_description=>random_alphanums, :description=>@source_site_string
+    @forum.create
+    @forum.get_entity_info
+
+    @source_site_string << "<br />\nForum link: <a href=\"#{@forum.direct_link}\">#{@forum.title}</a><br />\n"
+
+    @topic = make TopicObject, :site=>@site1.name, :forum=>@forum.title, :description=>@source_site_string
+    @topic.create
+    @topic.get_entity_info
+
+    @source_site_string << "<br />\nTopic link: <a href=\"#{@topic.direct_link}\">#{@topic.title}</a><br />\n"
+
+    @event = make EventObject, :site=>@site1.name, :message=>@source_site_string
+    @event.create
+
+    @forum.edit :description=>@source_site_string
+
+    @topic.edit :description=>@source_site_string
+
+    @assignment.edit :instructions=>@source_site_string
+
+    @announcement.edit :body=>@source_site_string
+
+    @htmlpage.edit_content @source_site_string
+
+    @nestedhtmlpage.edit_content @source_site_string
+
+    @section1.edit :editor_content=>@source_site_string
+
+    @site2 = make SiteObject
+    @site2.create_and_reuse_site @site1.name
+
+    @new_assignment = make AssignmentObject, :site=>@site2.name, :status=>"Draft", :title=>@assignment.title
+    @new_assignment.get_info
+
+  end
+
+  after :all do
+    # Close the browser window
+    @browser.close
+  end
+
+  def check_this_stuff(thing)
+    thing.should match /Site ID: #{@site2.id}/
+    thing.should match /\(y\) <a href..#{@new_assignment.direct_url}/
+    thing.should_not match /Announcement link:.+#{@announcement.id}.+#{@announcement.title}/
+    thing.should match /Uploaded file:.+#{@site2.id}.+#{@file.name}/
+    thing.should match /#{@site2.id}\/#{@htmlpage.name}/
+    thing.should match /#{@site2.id}\/#{@folder.name}\/#{@nestedhtmlpage.name}/
+    thing.should match /Wiki:.+#{@site2.id}.+#{@wiki.name}/
+    thing.should_not match /Forum link:.+#{@forum.direct_link}.+#{@forum.title}/
+    thing.should_not match /Topic link:.+#{@topic.direct_link}.+#{@topic.title}/
+
+    # These are not expected to work:
+    #puts "Assignment ID updated? " + (thing[/ID:\(n\) #{@new_assignment.id}/]==nil ? "no" : "yes")
+    #puts "Assignment Link updated? " + (thing[/hand.\): <a href.+#{@new_assignment.link}.+doView_assignment/]==nil ? "no" : "yes")
+    #puts "Entity picker Assignment URL updated? " + (thing[/\(x\) <a href.+#{@new_assignment.url}.+doView_submission/]==nil ? "no" : "yes")
+    #puts "Assignment Portal Link updated? " + (thing[/\(z\) <a href..#{@new_assignment.portal_url}/]==nil ? "no" : "yes")
+    #puts "Module Link updated? " + (thing[/Module:.+#{@site2.id}.+#{@module.name}/]==nil ? "no" : "yes")
+    #puts "Section 1 Link updated? " + (thing[/Section 1:.+#{@site2.id}.+#{@section1.name}/]==nil ? "no" : "yes")
+    #puts "Section 2 Link updated? " + (thing[/Section 2:.+#{@site2.id}.+#{@section2.name}/]==nil ? "no" : "yes")
+    #puts "Wiki link updated? " + (thing[/#{@site2.id}/]==nil ? "no" : "yes")
+    #puts "Syllabus Link updated? " + (thing[/Syllabus: #{@site2.id}/]==nil ? "no" : "yes")
+  end
+
+  it "imports Assignments correctly" do
+
+    check_this_stuff(@new_assignment.instructions)
+  end
+
+  it "imports Web Content pages correctly" do
+    open_my_site_by_name @site2.name unless @browser.title=~/#{@site2.name}/
+    @browser.link(:text=>@web_content1.title, :href=>/#{@site2.id}/).should be_present
+    @browser.link(:text=>@web_content2.title, :href=>/#{@site2.id}/).should be_present
+
+  end
+
+  it "imports Announcements correctly" do
+    @new_announcement = make AnnouncementObject, :site=>@site2.name, :title=>@announcement.title
+    @new_announcement.view
+
+    check_this_stuff(@new_announcement.message_html)
+  end
+
+  it "imports Forums correctly" do
+    @new_forum = make ForumObject, :site=>@site2.name, :title=>@forum.title
+    @new_forum.view
+
+    check_this_stuff(@new_forum.description_html)
+  end
+
+  it "imports Topics correctly" do
+    @new_topic = make TopicObject, :site=>@site2.name, :forum=>@forum.title, :title=>@topic.title
+    @new_topic.view
+    check_this_stuff(@new_topic.description_html)
+  end
+
+  xit "imports Lessons correctly" do
+    lessons
+    on Lessons do |lessons|
+      lessons.lessons_list.should include @module.title
+      lessons.sections_list(@module.title).should include @section1.title
+      lessons.sections_list(@module.title).should include @section2.title
+      lessons.sections_list(@module.title).should include @section3.title
+      lessons.sections_list(@module.title).should include @section4.title
+      lessons.open_section @section1.title
+    end
+    on AddEditContentSection do |section|
+      @text = section.get_source_text section.content_editor
+    end
+
+    check_this_stuff @text
+  end
+
+  it "imports Syllabi correctly" do
+    @new_syllabus = make SyllabusObject, :site=>@site2.name, :title=>@syllabus.title
+    @new_syllabus.get_properties
+
+    check_this_stuff @new_syllabus.content
+  end
+
+  it "imports Wikis correctly" do
+    @new_wiki = make WikiObject, :site=>@site2.name, :title=>@wiki.title
+    @new_wiki.get_content
+
+    @new_wiki.content.should == @wiki.content
+  end
+
+  it "imports Resources correctly" do
+    resources
+    on Resources do |resources|
+      resources.folder_names.should include @folder.name
+      resources.file_names.should include @file.name
+    end
+  end
+
+  it "imports Events correctly" do
+    @new_event = make EventObject, :title=>@event.title, :site=>@site2.name
+    @new_event.view
+
+    check_this_stuff @new_event.message_html
+  end
+
+end