source: to-imperative/trunk/samples/Access/left.rf @ 587

Last change on this file since 587 was 587, checked in by luba, 18 years ago
  • tests for Access functions
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 158 bytes
Line 
1$use Access StdIO;
2
3Main =
4  {
5    <PrintLN <Left 0 0 'abc'>>, <PrintLN <Left 2 3 'abcdef'>>, <PrintLN <Left 2 3 ''>>;
6    <PrintLN "Branch 1 failed">;
7  };
8
Note: See TracBrowser for help on using the repository browser.