6872813adc
[GB.TEST] *NEW: Prints line numbers in TAP output so that the IDE can create clickable links to the code.
30 lines
1.2 KiB
Text
30 lines
1.2 KiB
Text
' Gambas test file
|
|
|
|
Public Sub TestNoteGotAndExpected()
|
|
|
|
'tests the typo of Expected and Got in diagnosis
|
|
'This test must fail to see what happens
|
|
|
|
Dim Expected, Got As String
|
|
|
|
Test.Plan(1)
|
|
|
|
Got = "<ol class='ulist'>" & gb.Lf &
|
|
" <li>Zum 15.12. in die Wintermischung 2</li> " & gb.Lf &
|
|
" <li>Zum 15.2. in die Fellwechselmischung Frühjahr</li> " & gb.Lf &
|
|
" <li>Zum 15.4. in die Sommermischung</li> " & gb.Lf &
|
|
" <li>Zum 15.8. in die Fellwechselmischung Herbst</li> " & gb.Lf &
|
|
" <li>Zum 15.10. in die Wintermischung 1</li> " & gb.Lf &
|
|
"</ol>"
|
|
|
|
Expected = "<ol class='ulist'>" & gb.Lf &
|
|
Trim(" <li>Zum 15.12. in die Wintermischung 2</li> ") & gb.Lf &
|
|
Trim(" <li>Zum 15.2. in die Fellwechselmischung Frühjahr</li> ") & gb.Lf &
|
|
Trim(" <li>Zum 15.4. in die Sommermischung</li> ") & gb.Lf &
|
|
Trim(" <li>Zum 15.8. in die Fellwechselmischung Herbst</li> ") & gb.Lf &
|
|
Trim(" <li>Zum 15.10. in die Wintermischung 1</li> ") & gb.Lf &
|
|
"</ol>"
|
|
|
|
Assert.Equals(Got, Expected, "Tests the typo of Expected and Got in diagnosis. Must fail.")
|
|
|
|
End
|