Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
pp_big_vect.ml
Sprache: SML
|
open OUnit
open Pp
let pr_big_vect =
let n = "pr_big_vect" in
n >:: (fun () ->
let v = Array.make (1 lsl 20) () in
let pp = prvecti_with_sep spc (fun _ _ -> str"x") v in
let str = string_of_ppcmds pp in
ignore(str))
let tests = [pr_big_vect]
let () = Utest.run_tests __FILE__ (Utest.open_log_out_ch __FILE__) tests
[ Seitenstruktur0.0Drucken
etwas mehr zur Ethik
]
|
