Skip to content
Browse files

[fix] log: disable a database message for tests

  • Loading branch information...
1 parent 2ec1b62 commit c954575dec2d72e6e922f5c982556db231de5aab Raja committed
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>;

0 comments on commit c954575

Please sign in to comment.
Something went wrong with that request. Please try again.