Commit 360d382a authored by gerd's avatar gerd

Follow-up changes because resolve_as_file no longer

uses the cwd as default base URI


git-svn-id: https://godirepo.camlcity.org/svn/lib-pxp/trunk@705 dbe99aee-44db-0310-b2b3-d33182c8eb97
parent 85fce38a
......@@ -293,7 +293,7 @@ let t100 next_s () =
let t101 next_s () =
(* Reads from a file without recoding it *)
let r = new resolve_as_file () in
let r = new resolve_as_file ~base_url_defaults_to_cwd:true () in
r # init_rep_encoding `Enc_utf8;
r # init_warner None (new drop_warnings);
let cwd = Sys.getcwd() in
......@@ -311,7 +311,7 @@ let t101 next_s () =
let t102 next_s () =
(* Reads from a file without recoding it *)
let r = new resolve_as_file () in
let r = new resolve_as_file ~base_url_defaults_to_cwd:true () in
r # init_rep_encoding `Enc_utf8;
r # init_warner None (new drop_warnings);
let cwd = Sys.getcwd() in
......@@ -329,7 +329,7 @@ let t102 next_s () =
let t103 next_s () =
(* Reads from a file without recoding it *)
let r = new resolve_as_file () in
let r = new resolve_as_file ~base_url_defaults_to_cwd:true () in
r # init_rep_encoding `Enc_utf8;
r # init_warner None (new drop_warnings);
let lsrc = r # open_in (System "t100.dat") in
......@@ -349,7 +349,7 @@ let t103 next_s () =
let t110 () =
(* Checks whether relative URLs are properly handled *)
(* Note: Not tested for unicode_lexbuf, no need for that. *)
let r = new resolve_as_file () in
let r = new resolve_as_file ~base_url_defaults_to_cwd:true () in
r # init_rep_encoding `Enc_utf8;
r # init_warner None (new drop_warnings);
let lsrc = r # open_in (System "t100.dat") in
......
......@@ -352,7 +352,7 @@ let t021 () =
;;
let t022 () =
let res_a = new resolve_as_file() in
let res_a = new resolve_as_file ~base_url_defaults_to_cwd:true () in
res_a # init_rep_encoding `Enc_iso88591;
res_a # init_warner None (new drop_warnings);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment