Changeset 937


Ignore:
Timestamp:
Jul 1, 2003, 8:29:25 PM (18 years ago)
Author:
luba
Message:
  • tests for Class functions
Location:
to-imperative/trunk/samples/Class
Files:
8 edited

Legend:

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

    r907 r937  
    1 fail
    2 fail
     1fail: argument is not a box
     2fail: argument is more than one expression
  • to-imperative/trunk/samples/Class/box.rf

    r906 r937  
    66   
    77       { <Box? 23>;
    8          <PrintLN 'fail'>;
     8         <PrintLN 'fail: argument is not a box'>;
    99       },
    1010
    1111       { <Box? <Box 34> <Box 34>>;
    12          <PrintLN 'fail'>;
     12         <PrintLN 'fail: argument is more than one expression'>;
    1313       };
  • to-imperative/trunk/samples/Class/char_q.out

    r907 r937  
    1 fail
    2 fail
     1fail: argument is not of symbol type
     2fail: argument is more than one expression
  • to-imperative/trunk/samples/Class/char_q.rf

    r906 r937  
    66   
    77       { <Char? 23>;
    8          <PrintLN 'fail'>;
     8         <PrintLN 'fail: argument is not of symbol type'>;
    99       },
    1010
    1111       { <Char? 'abc'>;
    12          <PrintLN 'fail'>;
     12         <PrintLN 'fail: argument is more than one expression'>;
    1313       };
  • to-imperative/trunk/samples/Class/digit.out

    r907 r937  
    1 fail
    2 fail
     1fail: argument is not of symbol type
     2fail: argument is more than one expression
     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(0x8063704,0x8063704)
     23
  • to-imperative/trunk/samples/Class/digit.rf

    r906 r937  
    1 $use StdIO Class ;
     1$use StdIO Class;
    22
    33Main = { <Digit? '3'>;
     
    66   
    77       { <Digit? 23>;
    8          <PrintLN 'fail'>;
     8         <PrintLN 'fail: argument is not of symbol type'>;
    99       },
    10 
    11        { <Digit? '34'>;
    12          <PrintLN 'fail'>;
     10       { <Word? '2' '3'>;
     11         <PrintLN 'fail: argument is more than one expression'>;
    1312       };
    1413
    1514
     15
  • to-imperative/trunk/samples/Class/word.out

    r907 r937  
    1 fail
    2 fail
     1fail: argument is not of type word
     2fail: argument is more than one expression
     3Time elapsed: 0.00s
     4Concatenation statistics:
     5- no copy:       0
     6- left copy:     0
     7- right copy:    0
     8- both copy:     1
     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(0x80633a4,0x80633a4)
     23
  • to-imperative/trunk/samples/Class/word.rf

    r906 r937  
    66   
    77       { <Word? 23>;
    8          <PrintLN 'fail'>;
     8         <PrintLN 'fail: argument is not of type word'>;
    99       },
    1010       { <Word? "abc" "abc">;
    11          <PrintLN 'fail'>;
     11         <PrintLN 'fail: argument is more than one expression'>;
    1212       };
    1313
Note: See TracChangeset for help on using the changeset viewer.