Changeset 933


Ignore:
Timestamp:
Jul 1, 2003, 8:14:00 PM (18 years ago)
Author:
luba
Message:
  • test for Letter? function
Location:
to-imperative/trunk/samples/Class
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/samples/Class/letter.out

    r907 r933  
    1 fail
    2 fail
    3 fail
     1fail: argument is not of symbol type
     2fail: argument is not a symbol
     3Time elapsed: 0.00s
     4Concatenation statistics:
     5- no copy:       0
     6- left copy:     0
     7- right copy:    0
     8- both copy:     0
     9- unifications:  0
     10- identical:     0
     11Heap at 0x60000000
     12f:4096
     13
     14  16:
     15  32:
     16  64:
     17 128:
     18 256:
     19 512:
     201024:
     212048:
     224096: 0x60000000(0x80636c4,0x80636c4)
     23
  • to-imperative/trunk/samples/Class/letter.rf

    r906 r933  
    66   
    77       { <Letter? 23>;
    8          <PrintLN 'fail'>;
     8         <PrintLN 'fail: argument is not of symbol type'>;
    99       },
    1010       { <Letter? 'Б'>;
     
    1313
    1414       { <Letter? 'AB'>;
    15          <PrintLN 'fail'>;
     15         <PrintLN 'fail: argument is not a symbol'>;
    1616       };
    1717
Note: See TracChangeset for help on using the changeset viewer.