anchor.diff:                    throw({skip,
                            ?F("Failed create mnesia schema: ~p", [SchemaReason])})
             end,
  -    ?PRINT2("mnesia_start -> start mnesia", []),
  +    ?IPRINT("mnesia_start -> start mnesia", []),
       ?line case application:start(mnesia) of
                 ok ->
                     ok;
  
positive.code:     %% We can accept mnesia beeing loaded but *not* started.
      %% If its started it *may* contain data that will invalidate
      %% this test case.
      ?PRINT2("mnesia_start -> try load mnesia when:"
              "~n   Loaded:  ~p"
              "~n   Running: ~p", [apps_loaded(), apps_running()]),
      ?line ok = case application:load(mnesia) of
  
negative.code:                   throw({skip,
                           ?F("Failed starting mnesia: ~p", [StartReason])})
            end,
      ?IPRINT("mnesia_start -> mnesia started", []),
      ok.
  
  mnesia_stop() ->
      ?IPRINT("mnesia_stop -> try stop mnesia when:"
              "~n   Loaded:  ~p"
              "~n   Running: ~p", [apps_loaded(), apps_running()]),
      application:stop(mnesia),
      ?IPRINT("mnesia_stop -> try unload mnesia when"
              "~n   Loaded:  ~p"
              "~n   Running: ~p", [apps_loaded(), apps_running()]),
      application:unload(mnesia),
      ?IPRINT("mnesia_stop -> done when:"
              "~n   Loaded:  ~p"
              "~n   Running: ~p", [apps_loaded(), apps_running()]),
      ok.
  