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

Last change on this file since 2470 was 1776, checked in by orlov, 16 years ago
  • Updated test.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 305 bytes
Line 
1$use StdIO Class Box;
2
3$box B;
4
5Main =
6  {
7    <Box? <Box 34>>;
8    <PrintLN 'fail'>;
9  },
10  {
11    <Box? &B>;
12    <PrintLN 'fail'>;
13  },
14  {
15    <Box? 23>;
16    <PrintLN 'fail: argument is not a box'>;
17  },
18  {
19    <Box? <Box 34> <Box 34>>;
20    <PrintLN 'fail: argument is more than one expression'>;
21  };
Note: See TracBrowser for help on using the repository browser.