Case
Step:
- Add 1 sheet
- Back to sheet list screen
Expected result:
- Sheet name is displayed on list
(Ref below image)
*****Customize code
Public Sub test_CodedStep()
Dim control_sheet_name as HtmlControl= Find.ByContent(of htmlControl)(Data("Col1").ToString())
if control_sheet_name isNot nothing then
'control_sheet_name.click(false)
log.WriteLine(Data("Col1").ToString()&""&"is existence")
MessageBox.Show("Sheet name"&Data("Col1").ToString()& "is found","Information message")
else
MessageBox.Show("Sheet name" &Data("Col1").ToString()&"is not found","Error message")
end if
End Sub
<CodedStep("Verify 'TextContent' 'Contains' 'A5' on 'A5PTag'")> _
Public Sub test_CodedStep1()
'Verify 'TextContent' 'Contains' 'A5' on 'A5PTag'
'Pages.InachisGtMediaAnd1.A5PTag.AssertContent().TextContent(ArtOfTest.Common.StringCompareType.Contains, "A5")
Dim control_sheet_type as HtmlControl= Find.ByContent(of htmlControl)(Data("Col3").ToString())
if control_sheet_type isNot nothing then
'control_sheet_name.click(false)
log.WriteLine(Data("Col3").ToString()&" is existence")
MessageBox.Show("Sheet type is found","Information message")
else
MessageBox.Show("Sheet type is not found","Error message")
end if
End Sub
********************
Step:
- Add 1 sheet
- Back to sheet list screen
Expected result:
- Sheet name is displayed on list
(Ref below image)
*****Customize code
Public Sub test_CodedStep()
Dim control_sheet_name as HtmlControl= Find.ByContent(of htmlControl)(Data("Col1").ToString())
if control_sheet_name isNot nothing then
'control_sheet_name.click(false)
log.WriteLine(Data("Col1").ToString()&""&"is existence")
MessageBox.Show("Sheet name"&Data("Col1").ToString()& "is found","Information message")
else
MessageBox.Show("Sheet name" &Data("Col1").ToString()&"is not found","Error message")
end if
End Sub
<CodedStep("Verify 'TextContent' 'Contains' 'A5' on 'A5PTag'")> _
Public Sub test_CodedStep1()
'Verify 'TextContent' 'Contains' 'A5' on 'A5PTag'
'Pages.InachisGtMediaAnd1.A5PTag.AssertContent().TextContent(ArtOfTest.Common.StringCompareType.Contains, "A5")
Dim control_sheet_type as HtmlControl= Find.ByContent(of htmlControl)(Data("Col3").ToString())
if control_sheet_type isNot nothing then
'control_sheet_name.click(false)
log.WriteLine(Data("Col3").ToString()&" is existence")
MessageBox.Show("Sheet type is found","Information message")
else
MessageBox.Show("Sheet type is not found","Error message")
end if
End Sub
********************