blob: a597532f80dcbe35e3c58696766cae91e0201abc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
(* TEST
toplevel;
*)
(* Benoit's patch did not support %_[nlNL]; test their behavior *)
(* Ignore OCAMLRUNPARAM=b to be reproducible *)
Printexc.record_backtrace false;;
(* not supported by Printf or Format: fails at runtime *)
let () = Printf.printf "%_n"
;;
let () = Printf.printf "%_N"
;;
let () = Printf.printf "%_l"
;;
let () = Printf.printf "%_L"
;;
let () = Format.printf "%_n"
;;
let () = Format.printf "%_N"
;;
let () = Format.printf "%_l"
;;
let () = Format.printf "%_L"
;;
(* identity for Scanf *)
let () = print_endline (Scanf.sscanf "" "%_n" "Hello World!")
;;
let () = print_endline (Scanf.sscanf "" "%_N" "Hello World!")
;;
let () = print_endline (Scanf.sscanf "" "%_l" "Hello World!")
;;
let () = print_endline (Scanf.sscanf "" "%_L" "Hello World!")
;;
|
