anchor.diff:      [];
   agent_capabilities(Config) when is_list(Config) ->
       put(tname,agent_capabilities),
  -    p("starting with Config: ~p~n", [Config]),
  +    ?IPRINT("starting with Config: "
  +            "~n   ~p", [Config]),
   
       SnmpPrivDir    = which_priv_dir(snmp),
       SnmpMibsDir    = join(SnmpPrivDir, "mibs"), 
  
positive.code:     [];
  otp_6150(Config) when is_list(Config) ->
      put(tname, otp6150),
      p("starting with Config: ~p~n", [Config]),
  
      Dir     = ?config(case_top_dir, Config),
      MibDir  = ?config(mib_dir,  Config),
      MibFile = join(MibDir, "ERICSSON-TOP-MIB.mib"),
      ?line {ok, Mib} = 
  	snmpc:compile(MibFile, [{outdir, Dir}, {verbosity, trace}]),
      io:format("otp_6150 -> Mib: ~n~p~n", [Mib]),
      ok.
  
  
  
negative.code:     [];
  otp_8574(Config) when is_list(Config) ->
      put(tname, otp8574),
      ?IPRINT("starting with Config: "
              "~n   ~p", [Config]),
  
      Dir     = ?config(case_top_dir, Config),
      MibDir  = ?config(mib_dir,  Config),
      MibFile = join(MibDir, "OTP8574-MIB.mib"),
      
      ?IPRINT("ensure compile fail without relaxed assign check"),
      case snmpc:compile(MibFile, [{group_check, false}, {outdir, Dir}]) of
  	{error, compilation_failed} ->
  	    ?IPRINT("with relaxed assign check MIB compiles with warning"),
  	    case snmpc:compile(MibFile, [{group_check, false}, 
  					 {outdir, Dir}, 
  					 relaxed_row_name_assign_check]) of
  		{ok, _Mib} ->
  		    ok;
  		{error, Reason} ->
  		    ?EPRINT("unexpected compile failure: "
                              "~n   Reason: ~p", [Reason]),
  		    exit({unexpected_compile_failure, Reason})
  	    end;
  
  	{ok, _} ->
  	    ?EPRINT("unexpected compile success"),
  	    exit(unexpected_compile_success)
      end.
  
  