source: to-imperative/trunk/samples/Class/letter_q.rf @ 2470

Last change on this file since 2470 was 981, checked in by luba, 18 years ago
  • renamed tests for renamed functions
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 329 bytes
Line 
1$use StdIO Class ;
2
3Main = { <Letter? 'A'>;
4         <PrintLN 'fail'>;
5       },
6   
7       { <Letter? 23>;
8         <PrintLN 'fail: argument is not of symbol type'>;
9       },
10       { <Letter? 'Б'>;
11         <PrintLN 'fail'>;
12       },
13
14       { <Letter? 'AB'>;
15         <PrintLN 'fail: argument is not a symbol'>;
16       };
17
18
Note: See TracBrowser for help on using the repository browser.