Changeset 1776 for to-imperative/trunk/samples/Class

Timestamp:

Jun 9, 2005, 7:46:40 AM (16 years ago)

Author:

orlov

Message:

• Updated test.

File:

• to-imperative/trunk/samples/Class/box_q.rf (modified) (1 diff)

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

@@ -1 +1 @@
 $use StdIO Class Box;
 
-Main = { <Box? <Box 34>>;
-         <PrintLN 'fail'>;
-       },
-   
-       { <Box? 23>;
-         <PrintLN 'fail: argument is not a box'>;
-       },
+$box B;
 
-       { <Box? <Box 34> <Box 34>>;
-         <PrintLN 'fail: argument is more than one expression'>;
-       };
+Main =
+  {
+    <Box? <Box 34>>;
+    <PrintLN 'fail'>;
+  },
+  {
+    <Box? &B>;
+    <PrintLN 'fail'>;
+  },
+  {
+    <Box? 23>;
+    <PrintLN 'fail: argument is not a box'>;
+  },
+  {
+    <Box? <Box 34> <Box 34>>;
+    <PrintLN 'fail: argument is more than one expression'>;
+  };