fields of ok and silent

Author: andrew4328

tests/promises/meta/fields-of.lsts

@@ -12,7 +12,7 @@ for field in $fields-of(B(1,2)) {
    fields-count = fields-count + 1;
    fields-cat = fields-cat + stringof(field);
 };
-print("fields B \{fields-cat}\n");
+assert( fields-cat == c"a" );
 assert( fields-count == 1 );
 
 fields-count = 0;
@@ -21,7 +21,7 @@ for field in $fields-of(C(1,2,3)) {
    fields-count = fields-count + 1;
    fields-cat = fields-cat + stringof(field);
 };
-print("fields C \{fields-cat}\n");
+assert( fields-cat == c"a" );
 assert( fields-count == 1 );
 
 fields-count = 0;
@@ -30,7 +30,7 @@ for field in $fields-of(B(1,2) as Tag::B) {
    fields-count = fields-count + 1;
    fields-cat = fields-cat + stringof(field);
 };
-print("fields B as Tag::B \{fields-cat}\n");
+assert( fields-cat == c"ab" );
 assert( fields-count == 2 );
 
 fields-count = 0;
@@ -39,6 +39,6 @@ for field in $fields-of(C(1,2,3) as Tag::C) {
    fields-count = fields-count + 1;
    fields-cat = fields-cat + stringof(field);
 };
-print("fields C as Tag::C \{fields-cat}\n");
+assert( fields-cat == c"acd" );
 assert( fields-count == 3 );