source:
TestCase/SimpleTestCase/SimpleTestCase.ab@
236
| Last change on this file since 236 was 236, checked in by , 17 years ago | |
|---|---|
| File size: 339 bytes | |
| Rev | Line | |
|---|---|---|
| [236] | 1 | ' SimpleTestCase.ab |
| 2 | ||
| [221] | 3 | #console |
| 4 | #include "SimpleTestCase.idx" | |
| 5 | ||
| [222] | 6 | Function UnitTest( msg As String, isSuccessful As Boolean ) |
| 7 | Dim resultStr As String | |
| 8 | If isSuccessful Then | |
| 9 | resultStr = Ex"OK\t" | |
| 10 | Else | |
| [236] | 11 | resultStr = Ex"FAILURE!" |
| [222] | 12 | End If |
| [236] | 13 | |
| [222] | 14 | Print resultStr, msg |
| 15 | End Function | |
| [221] | 16 | |
| 17 | Print "Please enter any key" | |
| 18 | Dim a As Long | |
| 19 | Input a |
Note:
See TracBrowser
for help on using the repository browser.
