diff options
| author | Xavier Clerc <xclerc@janestreet.com> | 2017-09-13 14:16:35 +0100 |
|---|---|---|
| committer | Xavier Clerc <xclerc@janestreet.com> | 2017-09-13 14:16:35 +0100 |
| commit | f97d901d12a815df70c0843352698fd691bddc20 (patch) | |
| tree | cac0641763fd9db2e4e2b497b696ea7fa0f51e0a /testsuite/tests | |
| parent | b492e91780876b0ae8ee5e953d6404e0bbdd849d (diff) | |
| download | ocaml-f97d901d12a815df70c0843352698fd691bddc20.tar.gz | |
Replace `%b` specifiers (deprecated) with `%B` ones in the test suite.
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/basic-more/pr2719.ml | 4 | ||||
| -rw-r--r-- | testsuite/tests/lib-arg/testarg.ml | 2 | ||||
| -rw-r--r-- | testsuite/tests/misc/ephetest2.ml | 2 | ||||
| -rw-r--r-- | testsuite/tests/parsetree/source.ml | 8 | ||||
| -rw-r--r-- | testsuite/tests/typing-typeparam/newtype.ml | 8 |
5 files changed, 12 insertions, 12 deletions
diff --git a/testsuite/tests/basic-more/pr2719.ml b/testsuite/tests/basic-more/pr2719.ml index f0a9d6a4f9..d0357ea5e3 100644 --- a/testsuite/tests/basic-more/pr2719.ml +++ b/testsuite/tests/basic-more/pr2719.ml @@ -3,12 +3,12 @@ open Printf let bug () = let mat = [| [|false|] |] and test = ref false in - printf "Value of test at the beginning : %b\n" !test; flush stdout; + printf "Value of test at the beginning : %B\n" !test; flush stdout; (try let _ = mat.(0).(-1) in (test := true; printf "Am I going through this block of instructions ?\n"; flush stdout) - with Invalid_argument _ -> printf "Value of test now : %b\n" !test + with Invalid_argument _ -> printf "Value of test now : %B\n" !test ); (try if mat.(0).(-1) then () with Invalid_argument _ -> () diff --git a/testsuite/tests/lib-arg/testarg.ml b/testsuite/tests/lib-arg/testarg.ml index 110023754e..77573812f4 100644 --- a/testsuite/tests/lib-arg/testarg.ml +++ b/testsuite/tests/lib-arg/testarg.ml @@ -7,7 +7,7 @@ let record fmt (* args *) = ;; let f_unit () = record "unit()";; -let f_bool b = record "bool(%b)" b;; +let f_bool b = record "bool(%B)" b;; let r_set = ref false;; let r_clear = ref true;; let f_string s = record "string(%s)" s;; diff --git a/testsuite/tests/misc/ephetest2.ml b/testsuite/tests/misc/ephetest2.ml index 61861df996..d8a8a41b46 100644 --- a/testsuite/tests/misc/ephetest2.ml +++ b/testsuite/tests/misc/ephetest2.ml @@ -41,7 +41,7 @@ let print_short_bool fmt b = let rec pp_form fmt = function | Constant b -> - fprintf fmt "%b" b + fprintf fmt "%B" b | And a -> fprintf fmt "And[@[%a@]]" (fun fmt -> Array.iter (pp_var fmt)) a | Or a -> diff --git a/testsuite/tests/parsetree/source.ml b/testsuite/tests/parsetree/source.ml index 31a4e8cef4..36c1df1d0d 100644 --- a/testsuite/tests/parsetree/source.ml +++ b/testsuite/tests/parsetree/source.ml @@ -6585,10 +6585,10 @@ let () = let i = int_inj 3 in let s = string_inj "abc" in - Printf.printf "%b\n%!" (int_proj i = None); - Printf.printf "%b\n%!" (int_proj s = None); - Printf.printf "%b\n%!" (string_proj i = None); - Printf.printf "%b\n%!" (string_proj s = None) + Printf.printf "%B\n%!" (int_proj i = None); + Printf.printf "%B\n%!" (int_proj s = None); + Printf.printf "%B\n%!" (string_proj i = None); + Printf.printf "%B\n%!" (string_proj s = None) ;; let sort_uniq (type s) cmp l = diff --git a/testsuite/tests/typing-typeparam/newtype.ml b/testsuite/tests/typing-typeparam/newtype.ml index abe587634c..d32f4c91d2 100644 --- a/testsuite/tests/typing-typeparam/newtype.ml +++ b/testsuite/tests/typing-typeparam/newtype.ml @@ -10,10 +10,10 @@ let () = let i = int_inj 3 in let s = string_inj "abc" in - Printf.printf "%b\n%!" (int_proj i = None); - Printf.printf "%b\n%!" (int_proj s = None); - Printf.printf "%b\n%!" (string_proj i = None); - Printf.printf "%b\n%!" (string_proj s = None) + Printf.printf "%B\n%!" (int_proj i = None); + Printf.printf "%B\n%!" (int_proj s = None); + Printf.printf "%B\n%!" (string_proj i = None); + Printf.printf "%B\n%!" (string_proj s = None) ;; let sort_uniq (type s) cmp l = |