Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[fix] log: disable a database message for tests

  • Loading branch information...
commit c954575dec2d72e6e922f5c982556db231de5aab 1 parent 2ec1b62
Raja authored
Showing with 2 additions and 2 deletions.
  1. +1 −1  database/db3/session.ml
  2. +1 −1  database/light/session_light.ml
View
2  database/db3/session.ml
@@ -525,7 +525,7 @@ module DT = DbTypes
false, restart_db ~readonly ?dot ?weak ?restore file
)
else (
- Logger.notice "Initialising empty database%s" pretty_location;
+ #<If:TESTING> () #<Else> Logger.notice "Initialising empty database%s" pretty_location #<End>;
true, make ~readonly ?dot ?weak file
)
in
View
2  database/light/session_light.ml
@@ -390,7 +390,7 @@ struct
if Sys.file_exists (file^".dir")
then (Logger.info "DB-LIGHT : Opening database%s" pretty_location;
false, restart_db ?dot ?weak ?restore ?ondemand ?direct ?max_size file)
- else (Logger.notice "DB-LIGHT : Initialising empty database%s" pretty_location;
+ else (#<If:TESTING> () #<Else> Logger.notice "DB-LIGHT : Initialising empty database%s" pretty_location #<End>;
true, make ?dot ?weak ?ondemand ?direct ?max_size file)
in
#<If>Logger.log "DB-LIGHT : time to open = %f" (Unix.gettimeofday() -. _starting_time)#<End>;
Please sign in to comment.
Something went wrong with that request. Please try again.