anchor.diff:  
   main(no_module,_) -> ok;
   main('OLD-MEDIA-GATEWAY-CONTROL',Config) ->
  -%    Msg = msg11(),
       CaseDir = ?config(case_dir, Config),
       {ok,Msg} = asn1ct:value('OLD-MEDIA-GATEWAY-CONTROL','MegacoMessage',
                               [{i, CaseDir}]),
  
positive.code:         _ -> 
  	    io:format("couldn't read file ~p~n",[File])
      end.
  
  
  request(Mid, TransId, ContextId, CmdReq) when is_list(CmdReq) ->
      Actions = [#'ActionRequest'{contextId = ContextId,
                                  commandRequests = CmdReq}],
      Req = {transactions,
             [{transactionRequest,
               #'TransactionRequest'{transactionId = TransId,
                                     actions = Actions}}]},
      #'MegacoMessage'{mess = #'Message'{version = 1,
                                         mId = Mid,
                                         messageBody = Req}}.
  
  msg11() ->
      TimeStamp = #'TimeNotation'{date = "19990729",
                                  time = "22012001"},
      Parm = #'EventParameter'{eventParameterName = "ds",
                               value = "916135551212"},
  
      Event = #'ObservedEvent'{eventName = "ddce",
                               timeNotation = TimeStamp,
                               eventParList = [Parm]},
      Desc = #'ObservedEventsDescriptor'{requestId = 2223,
                                         observedEventLst = [Event]},
      NotifyReq = #'NotifyRequest'{terminationID = [#megaco_term_id{id = ?A4444}],
                                   observedEventsDescriptor = Desc},
      CmdReq = #'CommandRequest'{command = {notifyReq, NotifyReq}},
      request(?MID, 10002, 0, [CmdReq]).
  
negative.code: 
  -module(testMegaco).
  
  -export([compile/3,main/2]).
  
  -include_lib("test_server/include/test_server.hrl").
  
  compile(_Config,ber,[optimize]) ->
      {ok,no_module,no_module};
  