Changeset 1776


Ignore:
Timestamp:
Jun 9, 2005, 7:46:40 AM (15 years ago)
Author:
orlov
Message:
  • Updated test.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/samples/Class/box_q.rf

    r981 r1776  
    11$use StdIO Class Box;
    22
    3 Main = { <Box? <Box 34>>;
    4          <PrintLN 'fail'>;
    5        },
    6    
    7        { <Box? 23>;
    8          <PrintLN 'fail: argument is not a box'>;
    9        },
     3$box B;
    104
    11        { <Box? <Box 34> <Box 34>>;
    12          <PrintLN 'fail: argument is more than one expression'>;
    13        };
     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 TracChangeset for help on using the changeset viewer.