// Testcases for the new Send Button Concept // 2007-12-10 !+FocusHandling => -test.Tc06 // auto focus on dossier data -{open a dossier that allows COMM, INT, TEL to create} => .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Not enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Not enabled" .{focus on Overview-Panel} -test.Tc20a // focus on empty panel from dossier -{click on empty panel} => .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Not enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Not enabled" .{focus on empty panel} -test.Tc29 // focus on newly created action -{create a new action COMM} => .{new action has the focus} .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" -test.Tc78 // check produces error, tested a second time -*Button-Check => .*Dialog-ValidationResult.UPDATED.OPEN_AND_FRONT .{Text is missing} .Button-Check.ICON := "Checked with errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Not enabled" -test.Tc20b // focus on empty panel from action -{click on empty panel, close dossier overview first if no empty panel} => .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Not enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Not enabled" .{focus on empty panel} -test.Tc51a // focussing again on action -{click on error line in Dialog-ValidationResult} => .{focus on COMM action} .Button-Check.ICON := "Checked with errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Enabled" -test.Tc64 // change local data on local-only action -{enter Text of Communication} => .Button-Check.ICON := "Not checked" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .CXXXX."no entry for this action" -test.Tc97 // check reveals no error, tested a second time -*Button-Check => .Window-Dossier.Statusbar.SHOW."Action checked, is ok" .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .BEEP -test.Tc231 // Send without print -*Button-PrintSend => .Dialog-PrintSelect.OPEN -{select nothing to print and continue send} => .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Window-Dossier.Status.SHOW."Send successful" .EXAMINER << "Send without printing was successful" -preparation -{create a new action INT} -*Button-Check => .*Dialog-ValidationResult.UPDATED.OPEN_AND_FRONT .Button-Check.ICON := "Checked with errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Enabled" -{create a new action TEL} => .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" -test.Tc51b // change focus between actions -{focus on COMM action using left navigation panel} => .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" -test.Tc13 -{focus on dossier CitationPanel} => .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Not enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Not enabled" -test.Tc51c // focus from dossier data or action to action -{focus on INT action} => .Button-Check.ICON := "Checked with errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Enabled" -{close all panels except INT panel} -{focus on COMM action} => .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" -{focus on TEL action} => .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" -preparation -{close this dossier} -{close Application} -{start Application} -{open the same dossier again} => .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Not enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Not enabled" -test.Tc44 // Only send state is saved -{focus on INT action} => .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" -{focus on TEL action} => .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" -{focus on COMM action} => .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" -test.Tc62 // CXXXX status is updated after local data change -{change the text in Text of Communication} => .Button-Check.ICON := "Not checked" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" -{close this dossier} -{open the same dossier again} -{focus on COMM action} => .Button-Check.ICON := "Not checked" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" -preparation -*Button-PrintSend => .Dialog-PrintSelect.OPEN -{select nothing to print and continue send} => .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .EXAMINER << "Send without printing was successful" -{close this dossier} -{DXXXX: change COMM action state in CXXXX to "archived"} -{open the same dossier again} -test.Tc37 // archived action is read-only -{focus on COMM action} => .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Enabled" // says ma .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Enabled" .?{Action is read-only} -cleanup -{close this dossier} !+CheckUsingButton => -test.Tc78 // check produces error -{open a dossier that allows a TEL to be created, needs not to be sendable} -{create a new action TEL} .{ignore all the warnings that might come up} -*Button-Check => .*Dialog-ValidationResult.UPDATED.OPEN_AND_FRONT .{three error messages} .Button-Check.ICON := "Checked with errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Enabled" -{correct errors using the Dialog-ValidationResult} -{click on an error line} => .{focus on field with this error in TEL} -{correct error} -{optional: click "CheckAgain"} => .{error line disappears in Dialog-ValidationResult if error solved} -test.Tc97a // check without errors, open Dialog-ValidationResult -*Button-Check => .*Dialog-ValidationResult.UPDATED.OPEN_AND_FRONT .{empty window} .Window-Dossier.Statusbar.SHOW."Action checked, is ok" .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .BEEP -test.Tc88 // check with only warnings -{close Dialog-ValidationResult} -{focus on #ActionMinutesTel.Subpane-MinutesTel.Subpane-General} -*TimeLimit.Radio-DispatchWithTimeLimit.SELECT -TimeLimit.Input-Months.EDIT."8" -{Erase content of Input-Months} -{write "8" in} -*Button-Check => .*Dialog-ValidationResult.UPDATED.OPEN_AND_FRONT .{Warning: Dispatch time must be between 2 and 6} .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "last state of the action" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" -{close Dialog-ValidationResult} -test.Tc97b // check without errors, no Dialog-ValidationResult open -TimeLimit.Input-Months.EDIT."5" -*Button-Check => .Window-Dossier.Statusbar.SHOW."Action checked, is ok" .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "last state of the action" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Dialog-ValidationResult.CLOSED .BEEP !+PrintCccccActionsUsingButton -test.Tc309 // don't print, close the window by OS -{open a dossier that allows a Grant to be created, needs not to be sendable} -{create a Grant action} -*Button-Print => .Dialog-PrintSelect.OPEN .{shows 4 entries} -*Dialog-PrintSelect.OSCloseWindow // the [x] in the upper right part of the window => .{no printout} .Window-Dossier.Statusbar."Action printed".NOT .Dialog-PrintSelect.CLOSED -test.Tc306 // don't print, close the window -*Button-Print => .Dialog-PrintSelect.OPEN .{shows 4 entries} -*Dialog-PrintSelect.Button-DontPrint => .{no printout} .Window-Dossier.Statusbar."Action printed".NOT .Dialog-PrintSelect.CLOSED -test.Tc301 // deselect all -*Button-Print => .Dialog-PrintSelect.OPEN .{shows 4 entries} -{deselect all the entries} -?Button-Print = // DEPENDS ON IMPLEMENTATION = "Disabled" => .*Dialog-PrintSelect.OSCloseWindow // abort this part of the testcase // = "Enabled" // => -*Button-Print // => .{no printout} // .Window-Dossier.Statusbar."Action printed".NOT // .Dialog-PrintSelect.CLOSED -test.Tc303e // print after reselecting -{select a single entry} => .Button-Print.ENABLED := "Enabled" -*Dialog-PrintSelect.Button-Print => .{printout of the selected form} .Window-Dossier.Statusbar."Action printed" .Dialog-PrintSelect.CLOSED -test.Tc303a // print all -*Button-Print => .Dialog-PrintSelect.OPEN .{shows 4 entries, all selected} -*Dialog-PrintSelect.Button-Print => .{printout of all forms} .Window-Dossier.Statusbar."Action printed" .Dialog-PrintSelect.CLOSED -test.Tc303b // print part -*Button-Print => Dialog-PrintSelect.OPEN .{shows 4 entries, all selected} -{deselect two of the four entries} -*Dialog-PrintSelect.Button-Print => .{printout of the selected forms} .Window-Dossier.Statusbar."Action printed" .Dialog-PrintSelect.CLOSED !+PrintCombinedActionUsingButton -test.Tc301c // don't print, deselect all -{open a dossier that allows a Search Report + ESOP to be created, needs not to be sendable} -{create a Search Report + ESOP action} -*Button-Print => .Dialog-PrintSelect.OPEN .{shows 3 entries: FormalitiesInstructions, SearchReport, EuropeanSearchOpinion} -{deselect all the entries} -?Button-Print = // DEPENDS ON IMPLEMENTATION = "Disabled" => .*Dialog-PrintSelect.OSCloseWindow // abort this part of the testcase // = "Enabled" // => -*Button-Print // => .{no printout} // .Window-Dossier.Statusbar."Action printed".NOT // .Dialog-PrintSelect.CLOSED -test.Tc303c // print all -*Button-Print => .Dialog-PrintSelect.OPEN .{shows 3 entries, all selected} -*Dialog-PrintSelect.Button-Print => .{printout of all forms} .Window-Dossier.Statusbar."Action printed" .Dialog-PrintSelect.CLOSED -test.Tc303d // print part -*Button-Print => .Dialog-PrintSelect.OPEN .{shows 3 entries, all selected} -{deselect one of the three entries} -*Dialog-PrintSelect.Button-Print => .{printout of the selected forms} .Window-Dossier.Statusbar."Action printed" .Dialog-PrintSelect.CLOSED !+PrintSendCccccAction -test.Tc179 // send and print aborts due to error -{open a dossier that allows a TEL to be created and sent} -{create a TEL action, do not fill in any information} -*Button-PrintSend => .*Dialog-ValidationResult.UPDATED.OPEN_AND_FRONT .{shows several errors} .Button-Check.ICON := "Checked with errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Enabled" .BEEP -{delete this TEL action} -test.Tc240 // print and send all successfully -{create a TEL action} -{fill in all the necessary information WITHOUT pressing the Button-Check} .*Panel-TelAction.MinutesTel.General.Input-Applicant.TYPE_IN."Max Schlau" .*Panel-TelAction.MinutesTel.Results.Input-ResultOfConsultation.TYPE_IN."My Result" -*Button-PrintSend => .Dialog-PrintSelect.OPEN .{form xxxx is selected, the only one in the list} -*Dialog-PrintSelect.Button-Print => .Dialog-PrintSelect.CLOSED .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Window-Dossier.Status.SHOW."Print and Send successful" .EXAMINER << "Print and send successful" -test.Tc210 // warning, but print and send successfully -*Panel-TelAction.MinutesTel.OptionalText.Checkbox-PrintOnFormxxxx."(x)" -*Panel-TelAction.MinutesTel.OptionalText.Input-Text."an optional text" -*Panel-TelAction.MinutesTel.General.Radio-DispatchWithTimeLimit."(x)" -*Panel-TelAction.MinutesTel.General.Input-DispatchTimeLimit."8" .{select the content, delete it, then enter 8, you cannot leave the field then} -*Button-PrintSend => .Dialog-SendAnyway.OPEN .{as single entry: WARNING dispatch time must be between 2 and 6} -*Dialog-SendAnyway.Button-Send => .Dialog-PrintSelect.OPEN .{form xxxx and yyyy are in, both selected} -{deselect form xxxx, leave only form yyyy to print} -*Dialog-PrintSelect.Button-Print => .{only form yyyy is printed} .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Window-Dossier.Status.SHOW."Print and Send successful" .EXAMINER << "Print and send successful" -test.Tc189 // warning, so don't print and send -*Panel-TelAction.MinutesTel.General.Radio-DispatchWithTimeLimit."(x)" -*Panel-TelAction.MinutesTel.General.Input-DispatchTimeLimit."7" .{select the content, delete it, then enter 7, you cannot leave the field then} -*Button-PrintSend => .Dialog-SendAnyway.OPEN .{as single entry: WARNING dispatch time must be between 2 and 6} -*Dialog-SendAnyway.Button-Cancel => .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Dialog-ValidationResult.UPDATED.OPEN_AND_FRONT .{as single entry: WARNING dispatch time must be between 2 and 6} .Dialog-SendAnyway.CLOSED .{nothing sent} .{nothing printed} -preparation - *Panel-TelAction.MinutesTel.General.Input-DispatchTimeLimit."5" - *Button-Check => .Dialog-ValidationResults.STILL_OPEN .{no more entries} .Beep ... -test.Tc200 // warning, send anyway without printing -*Panel-TelAction.MinutesTel.General.Radio-DispatchWithTimeLimit."(x)" -*Panel-TelAction.MinutesTel.General.Input-DispatchTimeLimit."9" .{select the content, delete it, then enter 9, you cannot leave the field then} -*Button-PrintSend => .Dialog-ValidationResults.STILL_OPEN .{as single entry: WARNING dispatch time must be between 2 and 6} .Dialog-SendAnyway.OPEN .{as single entry: WARNING dispatch time must be between 2 and 6} -*Dialog-SendAnyway.Button-Send => .Dialog-PrintSelect.OPEN .{all forms selected} -*Dialog-PrintSelect.Button-DontPrint => .{Send successful, check with DXXXX and MYYYY} .{no printout} .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Window-Dossier.Status.SHOW."Send successful" .EXAMINER << "Send without printing was successful" -test.Tc231 // send without printing -*Panel-TelAction.MinutesTel.General.Radio-DispatchWithTimeLimit."(x)" -*Panel-TelAction.MinutesTel.General.Input-DispatchTimeLimit."5" -*Button-PrintSend => .Dialog-PrintSelect.OPEN .{all forms selected} -*Dialog-PrintSelect.OsCloseWindow // close window using [x] in right up corner => .{Send successful} .{no printout} .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Window-Dossier.Status.SHOW."Send successful" .EXAMINER << "Send without printing was successful" !+PrintSendCombinedOrSearchAction -test.Tc123 // send and print aborts due to error -{open a dossier in search phase that allows a Search action to be created and sent} .{no citations, no fields of search} .{dossiers cannot be reused after executing the testcase} -{create a Search Report action, do not fill in any information} -*Button-PrintSend => .Button-Check.ICON := "Checked with errors" .Button-Check.ENABLED := "Enabled" .*Dialog-ValidationResult.UPDATED.OPEN_AND_FRONT .{shows Citation and Classification errors and a RoSS warning} .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Enabled" .BEEP // Tc123 -test.Tc133 // warning, so don't print or send -*Panel-Citations.Button-Add-FromManualEntry -*Panel-Citations.Document(A).Button-ShowSource => .Dialog-Transfer.OPEN -*Dialog-Transfer.Button-CreateNewRow // the Button with the "+" on -*Dialog-Transfer.{New row}.Input-Source.TYPE_IN."Amazon" -*Dialog-Transfer.{New row}.Checkbox-Leftmost.SELECT."(x)" -*Dialog-Transfer.Button-Transfer => .Dialog-Transfer.CLOSE .Panel-Citations.Document.Input-Source."1, the just newly entered row number" -*Panel-Citations.Document.Combo-DocType.SELECT."Book" -*Panel-Citations.Document.Checkbox-CiteInSr.SELECT."(x)" // if not yet selected -*Panel-Citations.Book.Input-Publisher.TYPE_IN."Harpercollins" -*Panel-Citations.Book.Input-PublicationPlace.TYPE_IN."New York" -*Panel-Citations.Book.Input-PublicationDate.TYPE_IN."12-01-1998" -*Panel-Citations.Book.Input-IsbnNo.TYPE_IN."0-618-15397-7" -*Panel-Citations.Book.Input-Author.TYPE_IN."J. R. R. Tolkien" -*Panel-Citations.Book.Input-Title.TYPE_IN."The Lord of the Rings" -*Panel-Citations.Book.Input-Part.TYPE_IN."2" -*Panel-Citations.Book.Input-StartPage.TYPE_IN."120" -*Panel-Citations.Book.Input-EndPage.TYPE_IN."280" -*Panel-Citations.Category.Checkbox-T."(x)" -*Panel-Citations.PriorArtPassage.Checkbox-WholeDoc."(x)" -*Panel-ClassesTitles.FieldsOfSearch.Button-CreateNewRow // the one with "+" on => .{new row in Fields Of Search} -*Panel-ClassesTitles.FieldsOfSearch.{new row}.TYPE_IN."A61H" -*Panel-SearchReportAction.FOCUS -*Button-PrintSend => .Dialog-SendAnyway.OPEN .{only WARNING RoSS length, possibly INFO XD number assigned} -*Dialog-SendAnyway.Button-OsCloseWindow // the [x] in upper right corner => .Dialog-SendAnyway.CLOSE .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" -test.Tc142 // warning, but send and print nevertheless -*Button-PrintSend => .Dialog-SendAnyway.OPEN // ASSERT THIS by jr, warning is shown twice .{only WARNING RoSS length in list} -*Dialog-SendAnyway.Button-Send => .{sent successfully} .{printed successfully} .Dialog-SendAnyway.CLOSE .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Window-Dossier.Status.SHOW."Print and Send successful" .EXAMINER << "Print and send successful" -test.Tc161 // print and send without any error or warning .*Panel-SearchReportAction.Crdr.RoSS.Input-Text.TYPE_IN."anything of 201 - 300 characters length" .*Button-PrintSend => .{sent successfully} .{printed successfully} .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Window-Dossier.Status.SHOW."Print and Send successful" .EXAMINER << "Print and send successful" ========================================================