Changeset 40b5417 for tests

Timestamp:

Apr 23, 2020, 5:53:14 PM (4 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, arm-eh, ast-experimental, enum, forall-pointer-decay, jacob/cs343-translation, master, new-ast, new-ast-unique-expr, pthread-emulation, qualifiedEnum

Children:

2a01c9b

Parents:

3d2852a

Message:

more work on manipulators for int128 numbers

File:

• tests/manipulatorsOutput3.cfa (modified) (1 diff)

tests/manipulatorsOutput3.cfa

@@ -19 +19 @@
     sout | nl;
 
+    printf( "%#.10o\n", 0123 );
+    sout | wd( 1,10, oct(0123) );
     sout | oct(x);
     sout | nobase(oct(x));
-    sout | wd( 45, upcase(oct(123)) );
-    sout | wd( 45,40, upcase(oct(123)) );
-    sout | wd( 40,45, upcase(oct(123)) );
-    sout | wd( 45, upcase(oct(x)) );
-    sout | wd( 45,40, upcase(oct(x)) );
-    sout | wd( 40,45, upcase(oct(x)) );
-    sout | left(wd( 45, upcase(oct(x)) )) | 'X';
+    sout | wd( 45, oct(0123) );
+    sout | wd( 45,40, oct(0123) );
+    sout | wd( 40,45, oct(0123) );
+    sout | wd( 45, oct(x) );
+    sout | wd( 45,40, oct(x) );
+    sout | wd( 40,45, oct(x) );
+
+    sout | left(wd( 45, oct(0123) )) | 'X';
+    sout | left(wd( 45, oct(x) )) | 'X';
+    sout | left(wd( 45,40, oct(0123) )) | 'X';
+    sout | left(wd( 45,40, oct(x) )) | 'X';
+    sout | left(wd( 40,45, oct(0123) )) | 'X';
+    sout | left(wd( 40,45, oct(x) )) | 'X';
+    printf( "%#-1.10oX\n", 0123 );
+    sout | left(wd( 1,10, oct(0123) )) | 'X';
+    printf( "%#-40.10oX\n", 0123 );
+    sout | left(wd( 40,10, oct(0123) )) | 'X';
+    sout | left(wd( 40,10, oct(x) )) | 'X';
+    sout | left(wd( 10,40, oct(0123) )) | 'X';
+    sout | left(wd( 10,40, oct(x) )) | 'X';
+
     int128 y = 123456789;
-    sout | left(wd( 45, 49, upcase(oct(y)) )) | 'X';
+    sout | left(wd( 45, 49, oct(y) )) | 'X';
     sout | nl;