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