Fix goofs for %a tests

Author: latkin

tests/service/EditorTests.fs

@@ -397,8 +397,8 @@ let _ = sprintf "       %.*f" 3 4.5
 let _ = sprintf "        %*.1f" 3 4.5
 let _ = sprintf "         %6.*f" 3 4.5
 let _ = sprintf "          %6.*%" 3
-let _ = sprintf "           %a" (fun _ _ -> ()) 2
-let _ = sprintf "            %*a" 3 (fun _ _ -> ()) 2
+let _ =  printf "           %a" (fun _ _ -> ()) 2
+let _ =  printf "            %*a" 3 (fun _ _ -> ()) 2
 """
 
     let file = "/home/user/Test.fsx"
@@ -435,7 +435,7 @@ let _ = sprintf "            %*a" 3 (fun _ _ -> ()) 2
                      (30, 25, 30, 29, 2);
                      (31, 26, 31, 30, 2);
                      (32, 27, 32, 31, 1);
-                     (33, 28, 33, 39, 2)
+                     (33, 28, 33, 29, 2);
                      (34, 29, 34, 31, 3)|]
 
 [<Test>]