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 | |
| Line | |
|---|---|
| 1 | #console |
| 2 | #include "SimpleTestCase.idx" |
| 3 | |
| 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 |
| 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.
