Dim tableData
'"Login as Moderator"
Call SCRIPT_BLOCK("""Login as Moderator"" action start")
Call Login("colmdr1", "newuser")
Call Verify_Text_Exists("Welcome, Moderator1 Col \(colmdr1\)" ,0)
Call SCRIPT_BLOCK("""Login as Moderator"" action end")
'"Create Workspace"
Call SCRIPT_BLOCK("""Create Workspace"" action start")
Call Click_Link("Projects", 0)
Call Click_Image("Select a Pool to Search", 0)
If TextField_Exists("ixn_pickPool_searchString", 0) Then
Call Click_Link("Tree View", 0)
End If
Call Click_Link("Enterprise", 0)
Call Set_TextField("ixn_projects_currentName", 0, "COL project")
Call Set_ComboBoxItem_ByName("ixn_projects_currentFilter", 0, "All Projects")
Call Click_Link("Find", 0)
Call Click_Link("Col Project3", 0)
Call Click_Link("Workspace", 0)
Call Set_TextField("ixn_kcCreateWorkspace_workspaceName", 0, "Col Workspace3")
Call Set_TextField("ixn_kcCreateWorkspace_workspaceDescription", 0, "Before editing Description")
Call Click_Link("Save and Close", 0)
Call Verify_Text_Exists("Col Workspace3" ,0)
Call Verify_Text_Exists("Workspace Details" ,0)
Call Verify_WebTable_Cell("Name", 1, 2, 3, "Col Workspace3")
Call Verify_WebTable_Cell("Name", 1, 4, 3, "Col Project3")
Call SCRIPT_BLOCK("""Create Workspace"" action end")
'"Edit Workspace"
Call SCRIPT_BLOCK("""Edit Workspace"" action start")
Call Click_Link("Edit", 0)
Call Set_TextField("ixn_kcEditWorkspace_workspaceDescription", 0, "After editing Description")
Call Click_Link("Save and Close", 0)
Call Verify_Text_Exists("After editing Description" ,0)
Call SCRIPT_BLOCK("""Edit Workspace"" action end")
'"Create Folder"
Call SCRIPT_BLOCK("Create Folder action start")
Call Click_Link("New Folder", 0)
Call Set_TextField("ixn_kcNewDocumentFolder_folderName", 0, "Folder3-1")
Call Set_TextField("ixn_kcNewDocumentFolder_folderDescription", 0, "Before editing Description."+vbCr+"KEY_WORD")
Call Click_Link("Save and Close", 0)
Call Verify_Text_Exists("Folder Details" ,0)
Call Verify_Text_Exists("Folder3-1" ,0)
Call SCRIPT_BLOCK("""Create Folder"" action end")
'"Edit Folder"
Call SCRIPT_BLOCK("""Edit Folder"" action start")
Call Click_Link("Edit", 0)
Call Set_TextField("ixn_kcEditDocumentFolder_folderDescription", 0, "After editing Description."+vbCr+"KEY_WORD")
Call Click_Link("Save and Close", 0)
Call Verify_Text_Exists("Folder Details" ,0)
Call Verify_Text_Exists("After editing Description.KEY_WORD" ,0)
Call SCRIPT_BLOCK("""Edit Folder"" action end")
'"Create Document"
Call SCRIPT_BLOCK("""Create Document"" action start")
Call Click_Link("Add Document", 0)
'Call Set_FileField("ixn_kcNewDocument_documentPath", 0, DataTable("Upload_Document",dtGlobalSheet))
'Call Set_FileField("ixn_kcNewDocument_documentPath", 0, "\\ashaik2k\CollabDocs\Document3-1-1.txt")
Call Set_FileField("ixn_kcNewDocument_documentPath", 0, GENERIC_FILE_FOLDER_PATH + "\Document3-1-1.txt")
Call Set_TextField("ixn_kcNewDocument_documentDescription", 0, "before editing Description"+vbCr+"KEY_WORD")
Call Click_Link("Save and Close", 0)
Call Verify_Text_Exists("Document3-1-1" ,0)
Call Verify_Text_Exists("Document Details" ,0)
Call SCRIPT_BLOCK("""Create Document"" action end")
'"Edit Document"
Call SCRIPT_BLOCK("""Edit Document"" action start")
Call Click_Link("Edit", 0)
Call Set_TextField("ixn_kcEditDocument_documentDescription", 0, "After editing Description."+vbCr+"KEY_WORD")
Call Click_Link("Save and Close", 0)
Call Verify_Text_Exists("After editing Description.KEY_WORD" ,0)
Call SCRIPT_BLOCK("""Edit Document"" action end")
'"Check Out"
Call SCRIPT_BLOCK("""Check Out"" action start")
' Where is WScript object? on my machine the object is not found.
'Set WshShell = Wscript.CreateObject("WScript.Shell")
'WshShell.SendKeys "^"
'If the setting is 1: Events, IE blocks the popup dialog.
Setting.WebPackage("ReplayType") = 2
Call Click_Link("Check Out", 0)
Setting.WebPackage("ReplayType") = 1
'If the setting is 1: Events, IE blocks the popup dialog.
Setting.WebPackage("ReplayType") = 2
Browser("hwnd:=" & hWindow).Dialog("title:=File Download").WinButton("text:=Cancel", "index:=0").Click
Setting.WebPackage("ReplayType") = 1
Call wait(2)
Call Verify_Text_Exists("Check In" ,0)
Call Verify_Text_Exists("Revert Check Out" ,0)
Call Verify_WebTable_Cell("Name", 1, 18, 5, "Checked Out By")
Call Verify_WebTable_Cell("Name", 1, 20, 5, "Checked Out Date")
Call SCRIPT_BLOCK("""Check Out"" action end")
'"Checked Out Document"
Call SCRIPT_BLOCK("""Checked Out Document"" action start")
Call Click_Link("Collaboration", 0)
Call Click_Link("Checked Out Documents", 0)
Call Verify_Text_Exists("Checked Out Documents" ,0)
Call Verify_Text_Exists("Document3-1-1" ,0)
Call Click_Link("Document3-1-1", 0)
Call Verify_Text_Exists("Document Details" ,0)
Call SCRIPT_BLOCK("""Checked Out Document"" action end")
'"Check In"
Call SCRIPT_BLOCK("""Check In"" action start")
Call Click_Link("Check In", 0)
Call Set_FileField("ixn_kcCheckinDocument_documentPath", 0, GENERIC_FILE_FOLDER_PATH + "\Document3-1-1.txt")
Call Set_TextField("ixn_kcCheckinDocument_documentCheckinComment", 0, "Second Version")
Call Click_Link("Save and Close", 0)
Call Verify_WebTable_Cell("Name", 1, 6, 3, "2")
Call Verify_Text_Exists("Check Out" ,0)
Call SCRIPT_BLOCK("""Check In"" action end")
'"Revert Check Out"
Call SCRIPT_BLOCK("""Revert Check Out"" action start")
'If the setting is 1: Events, IE blocks the popup dialog.
Setting.WebPackage("ReplayType") = 2
Call Click_Link("Check Out", 0)
Setting.WebPackage("ReplayType") = 1
'If the setting is 1: Events, IE blocks the popup dialog.
Setting.WebPackage("ReplayType") = 2
Browser("hwnd:=" & hWindow).Dialog("title:=File Download").WinButton("text:=Cancel", "index:=0").Click
Setting.WebPackage("ReplayType") = 1
Call wait(2)
Call Verify_Text_Exists("Revert Check Out" ,0)
Call Click_Link("Revert Check Out", 0)
Call Verify_Text_Exists("Check Out" ,0)
Call Verify_WebTable_Cell("Name", 1, 6, 3, "2")
Call SCRIPT_BLOCK("""Revert Check Out"" action end")
'"Version History"
Call SCRIPT_BLOCK("""Version History"" action start")
Call Click_Link("Version History", 0)
Call Verify_WebTable_Cell("Version", 0, 2, 2, "2 ")
Call Verify_WebTable_Cell("Version", 0, 2, 4, "Document3-1-1 ")
Call Verify_WebTable_Cell("Version", 0, 2, 9, "Second Version ")
Call Verify_WebTable_Cell("Version", 0, 3, 2, "1 ")
Call Verify_WebTable_Cell("Version", 0, 3, 4, "Document3-1-1 ")
Call Verify_Text_Exists("2 Versions" ,0)
Call Set_CheckBoxOnOff_ByIndex("UI:SELECT:SELECTION:0", 0, WEB_OBJECT_ON)
Call Click_Link("Delete Selected Versions", 0)
Call Click_WinButton("OK", 0)
Call Verify_WebTable_Cell("Version ", 0, 2, 2, "1 ")
Call Verify_WebTable_Cell(" Version", 0, 2, 4, "Document3-1-1 ")
Call Verify_Text_Exists("1 Versions" ,0)
Call SCRIPT_BLOCK("""Version History"" action end")
'"Start Review Any"
Call SCRIPT_BLOCK("""Start Review Any"" action start")
Call Click_Link("Document3-1-1", 0)
Call Click_Link("Start Review", 0)
Call Click_Image("Select Participants for Review", 0)
Call Set_ComboBoxItem_ByName("ixn_pickMultiWorkspaceMember_filterEntry", 0, "Active Users")
Call Click_Image("Select a Pool to Search", 0)
If TextField_Exists("ixn_pickPool_searchString", 0) Then
Call Click_Link("Tree View", 0)
End If
Call Click_Link("Enterprise", 0)
Call Set_TextField("obj_WorkspaceMembersFinderDelegate_searchString", 0, "COL")
Call Click_Link("Find", 0)
Call Click_Link("Col, Moderator1", 0)
'Call WorkaroundFor36189()
Call Click_Link("OK", 0)
Call Click_Link("Save and Close", 0)
Call Verify_Text_Exists("Review Details" ,0)
Call Verify_WebTable_Cell("Name", 1, 13, 3, "In Review")
Call SCRIPT_BLOCK("""Start Review Any"" action end")
'"Pending Reviews"
Call SCRIPT_BLOCK("""Pending Reviews"" action start")
Call Click_Link("Collaboration", 0)
Call Click_Link("Reviews", 0)
Call Click_Link("Pending Reviews", 0)
Call Verify_WebTable_Cell("Name", 0, 4, 1, "Document3-1-1 ")
Call Verify_WebTable_Cell("Name", 0, 4, 2, "In Review ")
Call Verify_WebTable_Cell("Name", 0, 4, 4, "Col, Moderator1 ")
Call SCRIPT_BLOCK("""Pending Reviews"" action end")
'"Created Reviews"
Call SCRIPT_BLOCK("""Created Reviews"" action start")
Call Click_Link("Created Reviews", 0)
Call Verify_WebTable_Cell("Name", 0, 2, 1, "Document3-1-1 ")
Call Verify_WebTable_Cell("Name", 0, 2, 2, "In Review ")
Call SCRIPT_BLOCK("""Created Reviews"" action end")
'"Go to Col Workspace3"
'Start --------------------------------------------------------------------------------
Call Open_Workspace("Col Workspace3")
'"Approve"
Call SCRIPT_BLOCK("""Approve"" action start")
Call Click_Link("Document3-1-1", 0)
Call Click_Link("Review Status", 0)
Call Click_Link("Respond", 0)
Call Click_Link("Approve", 0)
Call Verify_WebTable_Cell("Name", 1, 8, 3, "Approved")
Call SCRIPT_BLOCK("""Approve"" action end")
'"Add to Membership"
Call SCRIPT_BLOCK("""Add to Membership"" action start")
Call Click_Link("Col Workspace3", 0)
Call Click_Link("Membership", 0)
Call Set_ComboBoxItem_ByName("obj_WorkspaceMembersDisplayList_currentContext", 0, "Contributors")
Call Click_Link("Add Contributors", 0)
Call Set_ComboBoxItem_ByName("ixn_pickMultiWorkspaceMember_filterEntry", 0, "Active Users")
Call Click_Image("Select a Pool to Search", 0)
If TextField_Exists("ixn_pickPool_searchString", 0) Then
Call Click_Link("Tree View", 0)
End If
Call Click_Link("Enterprise", 0)
Call Set_TextField("obj_WorkspaceMembersFinderDelegate_searchString", 0, "COL")
Call Click_Link("Find", 0)
Call Click_Link("Col, Contributor1", 0)
'Call WorkaroundFor36189()
Call Click_Link("OK", 0)
Call Verify_Text_Exists("1 Contributors" ,0)
Call Verify_WebTable_Cell(" Name", 0, 2, 2, "Col, Contributor1 ")
Call Set_ComboBoxItem_ByName("obj_WorkspaceMembersDisplayList_currentContext", 0, "Viewers")
Call Click_Link("Add Viewers", 0)
Call Set_ComboBoxItem_ByName("ixn_pickMultiWorkspaceMember_filterEntry", 0, "Active Users")
Call Click_Image("Select a Pool to Search", 0)
If TextField_Exists("ixn_pickPool_searchString", 0) Then
Call Click_Link("Tree View", 0)
End If
Call Click_Link("Enterprise", 0)
Call Set_TextField("obj_WorkspaceMembersFinderDelegate_searchString", 0, "COL")
Call Click_Link("Find", 0)
Call Click_Link("Col, Viewer1", 0)
'Call WorkaroundFor36189()
Call Click_Link("OK", 0)
Call Verify_Text_Exists("1 Viewers" ,0)
Call Verify_WebTable_Cell("Name ", 0, 2, 2, "Col, Viewer1 ")
Call Set_ComboBoxItem_ByName("obj_WorkspaceMembersDisplayList_currentContext", 0, "All Members")
Call Click_Link("Add Members", 0)
Call Set_ComboBoxItem_ByName("ixn_pickMultiWorkspaceMember_filterEntry", 0, "Active Users")
Call Click_Image("Select a Pool to Search", 0)
If TextField_Exists("ixn_pickPool_searchString", 0) Then
Call Click_Link("Tree View", 0)
End If
Call Click_Link("Enterprise", 0)
Call Set_TextField("obj_WorkspaceMembersFinderDelegate_searchString", 0, "COL")
Call Click_Link("Find", 0)
Call Click_Link("Col, Member1", 0)
'Call WorkaroundFor36189()
Call Click_Link("OK", 0)
Call Click_Link("Name", 0)
Call Verify_WebTable_Cell("Name", 0, 2, 2, "Col, Contributor1 ")
Call Verify_WebTable_Cell("Name", 0, 3, 2, "Col, Member1 ")
Call Verify_WebTable_Cell("Name", 0, 4, 2, "Col, Moderator1 ")
Call Verify_WebTable_Cell("Name", 0, 5, 2, "Col, Viewer1 ")
Call Verify_Text_Exists("4 Members" ,0)
Call SCRIPT_BLOCK("""Add to Membership"" action end")
'"Login as Contributor"
Call SCRIPT_BLOCK("""Checking Membership"" action start")
Call Click_Link("Logout", 0)
Call Click_Link("Login", 0)
Call Set_TextField("username", 0, "colcnt1")
Call SetSecure_TextField("password", 0, "4105a11be6dcf35652fc17")
Call Click_Button("OK", 0)
Call SCRIPT_BLOCK("""Checking Membership"" action end")
'"Go to Col Workspace3"
Call Open_Workspace("Col Workspace3")
Call Verify_Link_NotFound("Edit" ,0)
Call Verify_Link_NotFound("New Discussion" ,0)
Call Verify_Link_NotFound("Delete Workspace" ,0)
'Go to Document3-1-1
Call Click_Link("Document3-1-1", 0)
' Check out
'If the setting is 1: Events, IE blocks the popup dialog.
Setting.WebPackage("ReplayType") = 2
Call Click_Link("Check Out", 0)
Setting.WebPackage("ReplayType") = 1
'If the setting is 1: Events, IE blocks the popup dialog.
Setting.WebPackage("ReplayType") = 2
Browser("hwnd:=" & hWindow).Dialog("title:=File Download").WinButton("text:=Cancel", "index:=0").Click
Setting.WebPackage("ReplayType") = 1
Call wait(2)
' Check in
Call Click_Link("Check In", 0)
'Call Set_FileField("ixn_kcCheckinDocument_documentPath_0", 0, DataTable("Upload_Document", dtGlobalSheet))
'Call Set_FileField("ixn_kcNewDocument_documentPath", 0, "\\ashaik2k\CollabDocs\Document3-1-1.txt")
Call Set_FileField("ixn_kcCheckinDocument_documentPath", 0, GENERIC_FILE_FOLDER_PATH + "\Document3-1-1.txt")
Call Set_TextField("ixn_kcCheckinDocument_documentCheckinComment.*", 0, "checked in by Contributor")
Call Click_Link("Save and Close", 0)
' Go to Version History
Call Click_Link("Version History", 0)
'Verify
tableData = Array( _
Array(null), _
Array("3", null, "Document3-1-1", null, "Not Reviewed", null, "Col, Contributor1", "checked in by Contributor"), _
Array("1", null, "Document3-1-1", null, "Approved", null, "Col, Moderator1", "") _
)
Call Verify_WebTable_Cells("Version", 0, tableData)
'Call REPORT_FAILURE2("KNOWN ISSUE:40712", "KNOWN ISSUE:40712 blank comments shows in version history")
'The bug above has been fixed in 8.6.0sp1
Call Verify_Text_Exists("2 Versions" ,0)
'"Login as Viewer"
Call SCRIPT_BLOCK("""Login as Viewer"" action start")
Call Click_Link("Logout", 0)
Call Click_Link("Login", 0)
Call Set_TextField("username", 0, "colvwr1")
Call SetSecure_TextField("password", 0, "4105a1521508450abdc7d1")
Call Click_Button("OK", 0)
Call SCRIPT_BLOCK("""Login as Viewer"" action end")
'"Go to Col Workspace3"
Call Open_Workspace("Col Workspace3")
Call Verify_Link_NotFound("New Folder" ,0)
Call Verify_Link_Exists("Add To Favorites" ,0)
'"Login as Member"
Call SCRIPT_BLOCK("""Login as Member"" action start")
Call Click_Link("Logout", 0)
Call Click_Link("Login", 0)
Call Set_TextField("username", 0, "colmmb1")
Call SetSecure_TextField("password", 0, "4105a1721266836d35951d")
Call Click_Button("OK", 0)
Call SCRIPT_BLOCK("""Login as Member"" action end")
'"Go to Col Workspace3"
Call Open_Workspace("Col Workspace3")
Call Verify_Link_NotFound("Edit" ,0)
Call Verify_Link_NotFound("New Folder" ,0)
Call Verify_Link_Exists("Add To Favorites" ,0)
Call Click_Link("Logout", 0)
Call Click_Link("Login", 0)
'"Access Policy"
Call SCRIPT_BLOCK("""Access Policy"" action start")
'"Login as Moderator"
Call SCRIPT_BLOCK("""Login as Moderator"" action start")
Call Set_TextField("username", 0, "colmdr1")
Call SetSecure_TextField("password", 0, "41006e3a0cd5ba3caef094")
Call Click_Button("OK", 0)
Call SCRIPT_BLOCK("""Login as Moderator"" action end")
'"Go to Col Workspace3"
Call Open_Workspace("Col Workspace3")
Call Click_Link("Maximize", 0)
Call Click_Link("Access Policy", 0)
Call Set_ComboBoxItem_ByName("ixn_kcFolderAccessPolicy_accessPolicy", 0, "Custom")
Call Set_ComboBoxItem_ByName("obj_SecurityPolicyTrusteeWrapper_accessLevel", 0, "Read-Only Access")
Call Click_Link("Save and Close", 0)
Call Verify_WebTable_Cell("Name", 1, 12, 3, "Custom")
'"Login as Member"
Call SCRIPT_BLOCK("""Login as Member"" action start")
Call Click_Link("Logout", 0)
Call Click_Link("Login", 0)
Call Set_TextField("username", 0, "colmmb1")
Call SetSecure_TextField("password", 0, "4105a1721266836d35951d")
Call Click_Button("OK", 0)
Call SCRIPT_BLOCK("""Login as Member"" action end")
'"Go to Col Workspace3"
Call Open_Workspace("Col Workspace3")
Call Verify_Text_Exists("Folder: Folder3-1" ,0)
Call Click_Link("Logout", 0)
Call Click_Link("Login", 0)
'"Login as Moderator"
Call SCRIPT_BLOCK("""Login as Moderator"" action start")
Call Set_TextField("username", 0, "colmdr1")
Call SetSecure_TextField("password", 0, "41006e3a0cd5ba3caef094")
Call Click_Button("OK", 0)
Call Verify_Text_Exists("Welcome, Moderator1 Col \(colmdr1\)" ,0)
Call SCRIPT_BLOCK("""Login as Moderator"" action end")
'"Remove from Membership"
Call SCRIPT_BLOCK("""Remove from Membership"" action start")
'"Go to Col Workspace3"
Call Open_Workspace("Col Workspace3")
Call Click_Link("Membership", 0)
Call Set_ComboBoxItem_ByName("obj_WorkspaceMembersDisplayList_currentContext", 0, "Contributors")
Call Set_CheckBoxOnOff_ByIndex("UI:SELECT:SELECTION:0", 0, WEB_OBJECT_ON)
Call Click_Link("Remove Selected", 0)
Call Verify_Text_Exists("0 Contributors" ,0)
Call Set_ComboBoxItem_ByName("obj_WorkspaceMembersDisplayList_currentContext", 0, "Viewers")
Call Set_CheckBoxOnOff_ByIndex("UI:SELECT:SELECTION:0", 0, WEB_OBJECT_ON)
Call Click_Link("Remove Selected", 0)
Call Verify_Text_Exists("0 Viewers" ,0)
Call Set_ComboBoxItem_ByName("obj_WorkspaceMembersDisplayList_currentContext", 0, "All Members")
Call Click_Link("Name", 0)
Call Set_CheckBoxOnOff_ByIndex("UI:SELECT:SELECTION:0", 0, WEB_OBJECT_ON)
Call Set_CheckBoxOnOff_ByIndex("UI:SELECT:SELECTION:1", 0, WEB_OBJECT_ON)
Call Set_CheckBoxOnOff_ByIndex("UI:SELECT:SELECTION:3", 0, WEB_OBJECT_ON)
Call Click_Link("Remove Selected Members", 0)
Call Verify_Text_Exists("1 Members" ,0)
'"URL addressable"
Call SCRIPT_BLOCK("""URL addressable"" action start")
Call Click_Link("Col Workspace3", 0)
Dim url_
Call Click_Link("Logout", 0)
Call Click_Link("Login", 0)
Call Set_TextField("username", 0, "colmdr1")
Call SetSecure_TextField("password", 0, "410edf106009e3ab0e6fff")
Call Click_Button("OK", 0)
Call SCRIPT_BLOCK("""URL addressable"" action end")
'"Existing Workspace"
Call SCRIPT_BLOCK("""Existing Workspace"" action start")
'"Go to Col Workspace1"
Call Open_Workspace("Col Workspace1")
'==========================================================
'Add this section for code coverage
Call Click_Link("Delete Workspace", 0)
Call Verify_Win_StaticText_Exists("Deleting this workspace will delete all of the objects it contains\. Do you want to continue\?", 0)
Call Click_WinButton("OK", 0)
'Deleting a workspace with checkout item or in review is not allow.
Call IFrame_Verify_WebTable_Exists("This workspace cannot be deleted\. Possibly it contains checked out, in review, or locked content\.")
Call Click_IFrameButton("OK", 0)
'==========================================================
'"View Document"
Call SCRIPT_BLOCK("""View Document"" action start")
Call Click_Link("Document1-1-1", 0)
Setting.WebPackage("ReplayType") = 2
Call Click_Link("View Document", 0)
Setting.WebPackage("ReplayType") = 1
'If the setting is 1: Events, IE blocks the popup dialog.
Setting.WebPackage("ReplayType") = 2
Browser("hwnd:=" & hWindow).Dialog("title:=File Download").WinButton("text:=Cancel", "index:=0").Click
Setting.WebPackage("ReplayType") = 1
Call wait(2)
Call SCRIPT_BLOCK("""View Document"" action end")
'"New Message"
Call SCRIPT_BLOCK("""New Message"" action start")
Call Click_Link("Col Workspace1", 0)
Call Click_Link("Discussion1-1", 0)
'Call Verify_Link_URL("New Message", 0, DataTable.Value("New_Message_Link",dtGlobalSheet))
Call Verify_Link_URL("New Message", 0, "mailto:Discussion1-1.QaCollab@" & CORE_SERVER_NAME & "." & EMAIL_DOMAIN)
Call SCRIPT_BLOCK("""New Message"" action end")
'"Move"
Call SCRIPT_BLOCK("""Move"" action start")
Call Click_Link("Col Workspace1", 0)
Call Verify_Text_Exists("Workspace Details" ,0)
Call Verify_WebTable_Cell("Name", 1, 2, 3, "Col Workspace1")
Call Click_Link("Maximize", 0)
Call Set_CheckBoxOnOff_ByIndex("UI:SELECT:SELECTION:-1", 0, WEB_OBJECT_ON)
Call Click_Link("Move", 0)
Call Click_Link("Folder1-2", 0)
Call Verify_Text_Exists("Primavera could not move the items." ,0)
Call Click_Link("Item", 0)
'Call WorkaroundFor35453()
tableData = Array( _
Array(null), _
Array("Document1-1-3 ", "You cannot move items that are in review. "), _
Array("Document1-1-4 ", "You cannot move items that are checked out. "), _
Array("Sub Folder1-1-2 ", "You cannot move folders that contain items that are checked out or in review. "), _
Array("Sub Folder1-1-3 ", "You cannot move folders that contain items that are checked out or in review. ") _
)
If Verify_WebTable_Cells("Item", 0, tableData) = FAIL Then
'Call REPORT_FAILURE2("KNOWN ISSUE:40468: Order of items in not moved documents page.", "KNOWN ISSUE:40468: Order of items in not moved documents page.")
Call REPORT_FAILURE_DUE_TO_KNOWN_ISSUE("40468", "Order of items in not moved documents page.", true)
End If
Call Verify_WebTable_RowCount("Item", 0, 5)
Call Click_Link("OK", 0)
Call Click_Link("Col Workspace1", 0)
'Verification for Folder1-1
Call Verify_WebTable_Cell("Name ", 0, 2, 2, "Sub Folder1-1-2 ")
Call Verify_WebTable_Cell("Name ", 0, 3, 2, "Sub Folder1-1-3 ")
Call Verify_WebTable_Cell("Name ", 0, 4, 2, "Document1-1-3 ")
Call Verify_WebTable_Cell("Name ", 0, 5, 2, "Document1-1-4 ")
'Verification for Folder1-2
Call Verify_WebTable_Cell("Name ", 1, 2, 2, "Sub Folder1-1-1 ")
Call Verify_WebTable_Cell("Name ", 1, 3, 2, "Document1-1-1 ")
Call Verify_WebTable_Cell("Name ", 1, 4, 2, "Document1-1-2 ")
Call Click_Link("Maximize", 1)
Call Set_CheckBoxOnOff_ByIndex("UI:SELECT:SELECTION:-1", 0, WEB_OBJECT_ON)
Call Click_Link("Move", 0)
Call Click_Link("Folder1-1", 0)
Call Click_Link("Col Workspace1", 0)
'Verification for Folder1-1
Call Verify_WebTable_Cell("Name ", 0, 2, 2, "Sub Folder1-1-1 ")
Call Verify_WebTable_Cell("Name ", 0, 3, 2, "Sub Folder1-1-2 ")
Call Verify_WebTable_Cell("Name ", 0, 4, 2, "Sub Folder1-1-3 ")
Call Verify_WebTable_Cell("Name ", 0, 5, 2, "Document1-1-1 ")
Call Verify_WebTable_Cell("Name ", 0, 6, 2, "Document1-1-2 ")
Call Verify_WebTable_Cell("Name ", 0, 7, 2, "Document1-1-3 ")
Call Verify_WebTable_Cell("Name ", 0, 8, 2, "Document1-1-4 ")
'Verification for Folder1-2
Call Verify_WebTable_Cell("This folder is empty", 1, 2, 2, "This folder is empty")
Call SCRIPT_BLOCK("""Move"" action end")
'"Favorite Workspace"
Call SCRIPT_BLOCK("""Favorite Workspace"" action start")
'"Go to Col Workspace1"
Call Open_Workspace("Col Workspace1")
'"Add to Favorite Workspace"
Call SCRIPT_BLOCK("""Add to Favorite Workspace"" action start")
Call Click_Link("Add To Favorites", 0)
Call Click_IFrameButton("OK", 0)
Call SCRIPT_BLOCK("""Add to Favorite Workspace"" action end")
'"Link to Favorite Workspace"
Call SCRIPT_BLOCK("""Link to Favorite Workspace"" action start")
Call Click_Link("Collaboration", 0)
Call Click_Link("Favorite Workspaces", 0)
Call Verify_WebTable_Cell(" Workspace Name ", 0, 2, 2, "Col Workspace1 ")
Call Click_Link("Col Workspace1", 0)
'Call WorkaroundFor36189()
Call Verify_Text_Exists("Workspace Details" ,0)
Call Verify_WebTable_Cell("Name", 1, 2, 3, "Col Workspace1")
Call SCRIPT_BLOCK("""Link to Favorite Workspace"" action end")
'"Remove from Favorite Workspace"
Call SCRIPT_BLOCK("""Remove from Favorite Workspace"" action start")
Call Click_Link("Collaboration", 0)
Call Click_Link("Favorite Workspaces", 0)
Call Set_CheckBoxOnOff_ByIndex("UI:SELECT:SELECTION:0", 0, WEB_OBJECT_ON)
Call Click_Link("Remove from Favorites", 0)
Call Verify_Text_Exists("This list is empty." ,0)
Call SCRIPT_BLOCK("""Remove from Favorite Workspace"" action end")
'"Favorite Document"
Call SCRIPT_BLOCK("""Favorite Document"" action start")
'"Go to Col Workspace1"
Call Open_Workspace("Col Workspace1")
'"Add to Favorite Document"
Call SCRIPT_BLOCK("""Add to Favorite Document"" action start")
Call Click_Link("Maximize", 0)
Call Set_CheckBoxOnOff_ByIndex("UI:SELECT:SELECTION:3", 0, WEB_OBJECT_ON)
Call Click_Link("Add To Favorites", 0)
Call Click_IFrameButton("OK", 0)
Call SCRIPT_BLOCK("""Add to Favorite Document"" action end")
'"Link to Favorite Document"
Call SCRIPT_BLOCK("""Link to Favorite Document"" action start")
Call Click_Link("Collaboration", 0)
Call Click_Link("Favorite Documents", 0)
Call Verify_WebTable_Cell(" Document Name ", 0, 2, 3, "Document1-1-1 ")
Call Click_Link("Document1-1-1", 0)
'Call WorkaroundFor36189()
Call Verify_Text_Exists("Document Details" ,0)
Call Verify_WebTable_Cell("Name", 1, 2, 3, "Document1-1-1")
Call SCRIPT_BLOCK("""Link to Favorite Document"" action end")
'"Remove From Favorite Document"
Call SCRIPT_BLOCK("""Remove From Favorite Document"" action start")
Call Click_Link("Collaboration", 0)
Call Click_Link("Favorite Documents", 0)
Call Set_CheckBoxOnOff_ByIndex("UI:SELECT:SELECTION:0", 0, WEB_OBJECT_ON)
Call Click_Link("Remove from Favorites", 0)
Call Verify_Text_Exists("This list is empty." ,0)
Call SCRIPT_BLOCK("""Remove From Favorite Document"" action end")
'"Search"
Call SCRIPT_BLOCK("""Search"" action start")
'"Add Favorite Workspace for search"
Call SCRIPT_BLOCK("""Add Favorite Workspace for search"" action start")
Call Click_Link("Collaboration", 0)
Call Click_Link("Workspaces", 0)
Call Set_TextField("ixn_kcWorkspaces_searchString", 0, "Col Workspace")
Call Click_Link("Find", 0)
Call Click_Link("Workspace Name", 0)
Call Set_CheckBoxOnOff_ByIndex("UI:SELECT:SELECTION:0", 0, WEB_OBJECT_ON)
Call Set_CheckBoxOnOff_ByIndex("UI:SELECT:SELECTION:1", 0, WEB_OBJECT_ON)
Call Click_Link("Add To Favorites", 0)
Call Click_IFrameButton("OK", 0)
Call SCRIPT_BLOCK("""Add Favorite Workspace for search"" action end")
'"Standard Search"
Call SCRIPT_BLOCK("""Standard Search"" action start")
'"Go to Col Workspace1"
Call Open_Workspace("Col Workspace1")
Call Click_Link("Collaboration", 0)
Call Click_Link("Search", 0)
If TextField_Exists("ixn_kcContentSearch_searchStr", 0) Then
Call Click_Link("Standard", 0)
End If
Call SCRIPT_BLOCK("Start Standard searching with All Content, Current Workspace")
Call Set_ComboBoxItem_ByName("ixn_kcContentSearch_contentFilter", 0, "All Content")
Call Set_TextField("ixn_kcContentSearch_searchStr", 0, "KEY_WORD")
Call Set_ComboBoxItem_ByName("ixn_kcContentSearch_workspaceFilter", 0, "Current Workspace")
Call Set_ComboBoxItem_ByName("ixn_kcContentSearch_maxSize", 0, "200")
Call Click_Link("Find", 0)
Call Click_Link("Name", 0)
tableData = Array( _
Array(null, "Name", "Version", "Status", "Review Status", "Modified Date", "Modified By"), _
Array(null, "Discussion1-3", "", "", "", null, null), _
Array(null, "Document1-1-2", "1", "", "Not Reviewed", null, "Col, Moderator1"), _
Array(null, "Folder1-2", "", "", "", null, null), _
Array(null, "Message1-1-2", "", "", "", null, null) _
)
Call Verify_WebTable_Cells("Name", 0, tableData)
Call Verify_WebTable_RowCount("Name", 0, 5)
Call SCRIPT_BLOCK("Start Standard searching with All Content, Favorite Workspaces")
Call Set_ComboBoxItem_ByName("ixn_kcContentSearch_workspaceFilter", 0, "Favorite Workspaces")
Call Click_Link("Find", 0)
If Link_Exists("Show All", 0) Then
Call Click_Link("Show All", 0)
End If
Call Click_Link("Name", 0)
tableData = Array( _
Array(null, "Name", "Version", "Status", "Review Status", "Modified Date", "Modified By"), _
Array(null, "Discussion1-3", "", "", "", null, null), _
Array(null, "Discussion2-2", "", "", "", null, null), _
Array(null, "Document1-1-2", "1", "", "Not Reviewed", null, null), _
Array(null, "Document2-1-2", "1", "", "Not Reviewed", null, null), _
Array(null, "Folder1-2", "", "", "", null, "Administrator"), _
Array(null, "Folder2-2", "", "", "", null, "Administrator"), _
Array(null, "Message1-1-2", "", "", "", null, null), _
Array(null, "Message2-1-2", "", "", "", null, null) _
)
Call Verify_WebTable_Cells("Name", 0, tableData)
Call Verify_WebTable_RowCount("Name", 0, 9)
Call SCRIPT_BLOCK("Start Standard searching with All Content, All Workspaces")
Call Set_ComboBoxItem_ByName("ixn_kcContentSearch_workspaceFilter", 0, "All Workspaces")
Call Click_Link("Find", 0)
If Link_Exists("Show All", 0) Then
Call Click_Link("Show All", 0)
End If
Call Click_Link("Name", 0)
tableData = Array( _
Array(null, "Name", "Version", "Status", "Review Status", "Modified Date", "Modified By"), _
Array(null, "Discussion1-3", "", "", "", null, null), _
Array(null, "Discussion2-2", "", "", "", null, null), _
Array(null, "Document1-1-2", "1", "", "Not Reviewed", null, null), _
Array(null, "Document2-1-2", "1", "", "Not Reviewed", null, null), _
Array(null, "Document3-1-1", "3", "", "Not Reviewed", null, null), _
Array(null, "Folder1-2", "", "", "", null, null), _
Array(null, "Folder2-2", "", "", "", null, null), _
Array(null, "Folder3-1", "", "", "", null, "Col, Moderator1"), _
Array(null, "Message1-1-2", "", "", "", null, null), _
Array(null, "Message2-1-2", "", "", "", null, null) _
)
Call Verify_WebTable_Cells("Name", 0, tableData)
Call Verify_WebTable_RowCount("Name", 0, 11)
Call SCRIPT_BLOCK("Start Standard searching with Documents, All Workspaces")
Call Set_ComboBoxItem_ByName("ixn_kcContentSearch_contentFilter", 0, "Documents")
Call Click_Link("Find", 0)
Call Click_Link("Name", 0)
Call Verify_WebTable_Cell("Name", 0, 2, 2, "Document1-1-2 ")
Call Verify_WebTable_Cell("Name", 0, 3, 2, "Document2-1-2 ")
Call Verify_WebTable_Cell("Name", 0, 4, 2, "Document3-1-1 ")
Call Verify_WebTable_RowCount("Name", 0, 4)
Call SCRIPT_BLOCK("Start Standard searching with Folders, All Workspaces")
Call Set_ComboBoxItem_ByName("ixn_kcContentSearch_contentFilter", 0, "Folders")
Call Click_Link("Find", 0)
Call Click_Link("Name", 0)
Call Verify_WebTable_Cell("Name", 0, 2, 2, "Folder1-2 ")
Call Verify_WebTable_Cell("Name", 0, 3, 2, "Folder2-2 ")
Call Verify_WebTable_Cell("Name", 0, 4, 2, "Folder3-1 ")
Call Verify_WebTable_RowCount("Name", 0, 4)
'"Advanced Search"
Call SCRIPT_BLOCK("""Advanced Search"" action start")
Call SCRIPT_BLOCK("Start Advanced searching with All Content, Current Workspaces")
Call Click_Link("Advanced", 0)
Call Set_TextField("ixn_kcContentSearch_searchStr", 0, "KEY_WORD")
Call Set_ComboBoxItem_ByName("ixn_kcContentSearch_contentFilter", 0, "All Content")
Call Set_ComboBoxItem_ByName("ixn_kcContentSearch_workspaceFilter", 0, "Current Workspace")
Call Set_TextField("ixn_kcContentSearch_name", 0, "Folder")
Call Click_Link("Find", 0)
Call Verify_WebTable_Cell(" Name ", 2, 2, 2, "Folder1-2 ")
Call Verify_WebTable_RowCount(" Name ", 2, 2)
'kokomade
Call SCRIPT_BLOCK("Start Advanced searching with Discussion, Current Workspaces")
Call Set_TextField("ixn_kcContentSearch_name", 0, "Discussion")
Call Set_ComboBoxItem_ByName("ixn_kcContentSearch_workspaceFilter", 0, "All Workspaces")
Call Click_Link("Find", 0)
Call Click_Link("Name", 0)
Call Verify_WebTable_Cell(" Name ", 2, 2, 2, "Discussion1-3 ")
Call Verify_WebTable_Cell(" Name ", 2, 3, 2, "Discussion2-2 ")
Call Verify_WebTable_RowCount(" Name ", 2, 3)
Call SCRIPT_BLOCK("""Advanced Search"" action end")
'"Remove Favorite Workspace for search"
Call SCRIPT_BLOCK("""Remove Favorite Workspace for search"" action start")
Call Click_Link("Collaboration", 0)
Call Click_Link("Favorite Workspaces", 0)
Call Set_CheckBoxOnOff_ByIndex("UI:SELECT:SELECTION:0", 0, WEB_OBJECT_ON)
Call Set_CheckBoxOnOff_ByIndex("UI:SELECT:SELECTION:1", 0, WEB_OBJECT_ON)
Call Click_Link("Remove from Favorites", 0)
Call SCRIPT_BLOCK("""Remove Favorite Workspace for search"" action end")
'"Data Cleanup"
Call SCRIPT_BLOCK("""Data Cleanup"" action start")
'"Go to Col Workspace3"
Call Open_Workspace("Col Workspace3")
'"Delete Document"
Call SCRIPT_BLOCK("""Delete Document"" action start")
Call Click_Link("Maximize", 0)
Call Click_Link("Document3-1-1", 0)
Call Click_Link("Delete Document", 0)
Call Click_WinButton("OK", 0)
Call Verify_Text_Exists("0 Items" ,0)
Call SCRIPT_BLOCK("""Delete Document"" action end")
'"Delete Folder"
Call SCRIPT_BLOCK("""Delete Folder"" action start")
Call Click_Link("Delete Folder", 0)
Call Click_WinButton("OK", 0)
Call Verify_Text_Exists("Workspace Details" ,0)
Call Verify_Text_NotFound("Folder: .*", 0)
Call SCRIPT_BLOCK("""Delete Folder"" action end")
'"Delete Workspace"
Call SCRIPT_BLOCK("""Delete Workspace"" action start")
Call Click_Link("Delete Workspace", 0)
Call Click_WinButton("OK", 0)
' Verify that the workspace got deleted
Call Click_Link("Collaboration", 0)
Call Click_Link("Workspaces", 0)
Call Set_TextField("ixn_kcWorkspaces_searchString", 0, "Col Workspace")
Call Click_Link("Find", 0)
Call Verify_WebTable_Cell("Workspace Name ", 0, 2, 2, "Col Workspace1 ")
Call Verify_WebTable_Cell("Workspace Name ", 0, 3, 2, "Col Workspace2 ")
Call Verify_WebTable_RowCount("Workspace Name ", 0, 3)
Call SCRIPT_BLOCK("""Delete Workspace"" action end")
'"Logout"
Call SCRIPT_BLOCK("""Logout"" action start")
Call Click_Link("Logout", 0)
Call Click_Link("Login", 0)
Call SCRIPT_BLOCK("""Logout"" action end")
No comments:
Post a Comment