anchor.diff:  info(doc) ->
       ["Testing that we can retreive process info."];
   info(Config) when is_list(Config) ->
  -
  -    Prio = normal,
  -    Mod  = ?MODULE, 
  -    Opts = [{verbosity, trace}], 
  -    {ok, Pid} = snmp_note_store:start_link(Prio, Mod, Opts),
  +    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),
  -    io:format("Info: ~p~n", [Info]),
  +    ?IPRINT("Info: "
  +            "~n   ~p", [Info]),
   
       %% Verify content
  -    io:format("get process memory~n", []),
  +    ?IPRINT("verify content: get notes process memory"),
       {value, {process_memory, ProcMem}} = 
   	lists:keysearch(process_memory, 1, Info),
  -    io:format("get notes process memory~n", []),
  +    ?IPRINT("get notes process memory"),
       {value, {notes, NotesProcMem}} = 
   	lists:keysearch(notes, 1, ProcMem),
  -    io:format("verify notes process memory~n", []),
  +    ?IPRINT("verify notes process memory"),
       if
   	is_integer(NotesProcMem) andalso (NotesProcMem > 0) ->
   	    ok;
   	true ->
   	    throw({error, {bad_notes_proc_memery, NotesProcMem}})
       end,
  -    io:format("get timer process memory~n", []),
  +    ?IPRINT("verify content: get timer process memory"),
       {value, {timer, TmrProcMem}} = 
   	lists:keysearch(timer, 1, ProcMem),
  -    io:format("verify timer process memory~n", []),
  +    ?IPRINT("verify content: timer process memory"),
       if
   	is_integer(TmrProcMem) andalso (TmrProcMem > 0) ->
   	    ok;
   	true ->
   	    throw({error, {bad_timer_proc_memery, TmrProcMem}})
       end,    
  -    io:format("get db memory~n", []),
  +    ?IPRINT("verify content: get db memory"),
       {value, {db_memory, DbMem}} = 
   	lists:keysearch(db_memory, 1, Info),
  -    io:format("get notes db memory~n", []),
  +    ?IPRINT("verify content: get notes db memory"),
       {value, {notes, NotesDbMem}} = 
   	lists:keysearch(notes, 1, DbMem),
  -    io:format("verify notes db memory~n", []),
  +    ?IPRINT("verify content: notes db memory"),
       if
   	is_integer(NotesDbMem) andalso (NotesDbMem > 0) ->
   	    ok;
  
positive.code: %% -----
  %%
  
  init_per_suite(Config) when is_list(Config) ->
      Config.
  
  end_per_suite(Config) when is_list(Config) ->
      Config.
  
  
  
  
negative.code: 	    throw({error, {bad_notes_db_memery, NotesDbMem}})
      end,
  
      ?IPRINT("done"),
      ok.
  
  
  