|
Last change
on this file since 2470 was
937,
checked in by luba, 18 years ago
|
- tests for Class functions
|
-
Property svn:eol-style set to
native
-
Property svn:keywords set to
Author Date Id Revision
|
|
File size:
272 bytes
|
| Line | |
|---|
| 1 | $use StdIO Class; |
|---|
| 2 | |
|---|
| 3 | Main = { <Char? 'c'>; |
|---|
| 4 | <PrintLN 'fail'>; |
|---|
| 5 | }, |
|---|
| 6 | |
|---|
| 7 | { <Char? 23>; |
|---|
| 8 | <PrintLN 'fail: argument is not of symbol type'>; |
|---|
| 9 | }, |
|---|
| 10 | |
|---|
| 11 | { <Char? 'abc'>; |
|---|
| 12 | <PrintLN 'fail: argument is more than one expression'>; |
|---|
| 13 | }; |
|---|
Note: See
TracBrowser
for help on using the repository browser.
