anchor.diff:  %%
   
   init_per_testcase(_Case, Config) when is_list(Config) ->
  +    ?IPRINT("init_per_testcase -> entry with"
  +            "~n   Config: ~p", [Config]),
  +
  +    snmp_test_global_sys_monitor:reset_events(),
  +
  +    ?IPRINT("init_per_testcase -> end"),
  +
       Config.
   
   end_per_testcase(_Case, Config) when is_list(Config) ->
  +
  +    ?IPRINT("end_per_testcase -> entry with"
  +            "~n   Config: ~p",
  +            [Config]),
  +
  +    ?IPRINT("system events during test: ~p",
  +            [snmp_test_global_sys_monitor:events()]),
  +
       Config.
   
   
  
positive.code: %% -----
  %%
  
  init_per_suite(Config) when is_list(Config) ->
      Config.
  
  end_per_suite(Config) when is_list(Config) ->
      Config.
  
  
  
  
negative.code: info(doc) ->
      ["Testing that we can retreive process info."];
  info(Config) when is_list(Config) ->
      Pre = fun() ->
                    ?IPRINT("try start note-store"),
                    Prio = normal,
                    Mod  = ?MODULE, 
                    Opts = [{verbosity, trace}], 
                    case snmp_note_store:start_link(Prio, Mod, Opts) of
                        {ok, Pid} ->
                            ?IPRINT("note-store started: ~p", [Pid]),
                            Pid;
                        {error, Reason} ->
                            {skip, ?F("Failed starting note-store: ~p", [Reason])}
                    end
            end,
      Case = fun(State) -> do_info(State, Config) end,
      Post = fun(Pid) ->
                     ?IPRINT("attempt stop note-store"),
                     snmp_note_store:stop(Pid)
             end,
      ?TC_TRY(info, Pre, Case, Post).
  
  do_info(Pid, _Config) ->
  
      %% Get the info:
      ?IPRINT("get initial info"),
      Info = snmp_note_store:info(Pid),
      ?IPRINT("Info: "
              "~n   ~p", [Info]),
  
      %% Verify content
      ?IPRINT("verify content: get notes process memory"),
      {value, {process_memory, ProcMem}} = 
  	lists:keysearch(process_memory, 1, Info),
      ?IPRINT("get notes process memory"),
      {value, {notes, NotesProcMem}} = 
  	lists:keysearch(notes, 1, ProcMem),
      ?IPRINT("verify notes process memory"),
      if
  	is_integer(NotesProcMem) andalso (NotesProcMem > 0) ->
  	    ok;
  	true ->
  	    throw({error, {bad_notes_proc_memery, NotesProcMem}})
      end,
      ?IPRINT("verify content: get timer process memory"),
      {value, {timer, TmrProcMem}} = 
  	lists:keysearch(timer, 1, ProcMem),
      ?IPRINT("verify content: timer process memory"),
      if
  	is_integer(TmrProcMem) andalso (TmrProcMem > 0) ->
  	    ok;
  	true ->
  	    throw({error, {bad_timer_proc_memery, TmrProcMem}})
      end,    
      ?IPRINT("verify content: get db memory"),
      {value, {db_memory, DbMem}} = 
  	lists:keysearch(db_memory, 1, Info),
      ?IPRINT("verify content: get notes db memory"),
      {value, {notes, NotesDbMem}} = 
  	lists:keysearch(notes, 1, DbMem),
      ?IPRINT("verify content: notes db memory"),
      if
  	is_integer(NotesDbMem) andalso (NotesDbMem > 0) ->
  	    ok;
  