anchor.diff:          quit ->
               ok
       end.
  -
  -process_scheduling_script() ->
  -    [{probe, 'BEGIN',
  -      [{printf, ["\n"]}]},
  -     {probe, ["process-scheduled"], [],
  -      [{printf, ["schedule %s\n", {arg_str,1}]}]},
  -     {probe, ["process-unscheduled"], [],
  -      [{printf, ["unschedule %s\n", {arg_str,1}]}]},
  -     {probe, ["process-hibernate"], [],
  -      [{printf, ["hibernate %s %s\n", {arg_str,1}, {arg_str,2}]}]},
  -     {probe, ["process-exit"], [],
  -      [{printf, ["exit %s\n", {arg_str,1}]}]}
  -    ].
  -
  -message_test(Config) ->
  -    do_message_test(Config,
  -                    fun message_scenario/1, fun check_local_message/3).
  -
  -message_self_test(Config) ->
  -    do_message_test(Config,
  -                    fun message_self_scenario/1, fun check_local_message/3).
  -
  -message_dist_test(Config) ->
  -    do_message_test(Config,
  -                    fun message_dist_scenario/1, fun check_dist_message/3).
   
   do_message_test(Config, TestF, CheckF) ->
       {{Sender, Receiver}, Output} =
  
positive.code:         {'DOWN', Ref, process, Receiver, normal} -> {Sender, Receiver}
      end.
  
  message_script() ->
      [{probe, 'BEGIN',
        [{printf, ["\n"]}]},
       {probe, ["message-send"], [],
        [{printf, ["sent %s %s %d\n", {arg_str,1}, {arg_str,2}, {arg,3}]}]},
       {probe, ["message-queued"], [],
        [{printf, ["queued %s %d %d\n", {arg_str,1}, {arg,2}, {arg,3}]}]},
       {probe, ["message-receive"], [],
        [{printf, ["received %s %d %d\n", {arg_str,1}, {arg,2}, {arg,3}]}]}
      ].
  
  check_local_message(Sender, Receiver, TermOutput) ->
      {SenderStr, ReceiverStr} = {?p2l(Sender), ?p2l(Receiver)},
      {Msg1Size, Msg2Size} = {?msize(?msg1), ?msize(?msg2)},
  
negative.code:      {unschedule, PidStr}] = FiltOutput,
      ok.
  
  message_test(Config) ->
      do_message_test(Config,
                      fun message_scenario/1, fun check_local_message/3).
  
  message_self_test(Config) ->
      do_message_test(Config,
                      fun message_self_scenario/1, fun check_local_message/3).
  
  message_dist_test(Config) ->
      do_message_test(Config,
                      fun message_dist_scenario/1, fun check_dist_message/3).
  
  %%%-------------------------------------------------------------------
  %%% Test helpers
  %%%-------------------------------------------------------------------
  
  process_spawn_exit_scenario() ->
      {Pid, Ref} = spawn_monitor(fun() ->
                                         receive quit -> ok end
                                 end),
      Pid ! quit,
      receive
          {'DOWN', Ref, process, Pid, normal} -> Pid
      end.
  
  process_scheduling_scenario() ->
      {Pid, Ref} = spawn_monitor(fun process_scheduling_f/0),
      Pid ! hibernate,
  