Index: tests/manipulatorsOutput3.cfa
===================================================================
--- tests/manipulatorsOutput3.cfa	(revision 88293c73a04aa8eaf09a9104e3ab2e4e31655d2f)
+++ tests/manipulatorsOutput3.cfa	(revision 40b54179e79c7f8d042e041392f0013ec10ed81b)
@@ -19,15 +19,31 @@
     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;