anchor.diff:      false = val(is_alive, g_life),
       true = 1000 > val(hitpoints, p_hp),
       true = val(is_alive, p_life),
  -    %F = fun() -> mnesia:select(object, [{'$1', [], ['$_']}]) end,
  -    %Result = mnesia:transaction(F),
  -    %ct:pal("Mnesia query:~n~p~n", [Result]),
       ok.
   
   cast_spell(Config) ->
  
positive.code:      %case_spell].
  
  init_per_testcase(_, Config) ->
      %gerlshmud_dbg:add(gerlshmud_event_log, div_),
      %gerlshmud_dbg:add(gerlshmud_event_log),
      %gerlshmud_dbg:add(gerlshmud_event_log, flatten),
      %gerlshmud_dbg:add(gerlshmud_index, get),
  
      %dbg:tracer(),
  
negative.code:     true = is_pid(Stamina),
      Hand = val(body_part, player),
      true = is_pid(Hand),
  
      PlayerV1 = val(owner, p_hp),
      PlayerV1 = val(owner, p_life),
  