Changeset 933

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:

• letter.out (modified) (1 diff)
• letter.rf (modified) (2 diffs)

to-imperative/trunk/samples/Class/letter.out

@@ -1 @@
-fail
-fail
-fail
+fail: argument is not of symbol type
+fail: argument is not a symbol
+Time elapsed: 0.00s
+Concatenation statistics:
+- no copy:       0
+- left copy:     0
+- right copy:    0
+- both copy:     0
+- unifications:  0
+- identical:     0
+Heap at 0x60000000
+f:4096 
+
+  16:
+  32:
+  64:
+ 128:
+ 256:
+ 512:
+1024:
+2048:
+4096: 0x60000000(0x80636c4,0x80636c4)
+

to-imperative/trunk/samples/Class/letter.rf

@@ -6 +6 @@
    
        { <Letter? 23>;
-         <PrintLN 'fail'>;
+         <PrintLN 'fail: argument is not of symbol type'>;
        },
        { <Letter? 'Б'>;
@@ -13 +13 @@
 
        { <Letter? 'AB'>;
-         <PrintLN 'fail'>;
+         <PrintLN 'fail: argument is not a symbol'>;
        };