anchor.diff:                                      "replacing it's state with an empty record"];
   new_gen_server_state_appup(suite) -> [];
   new_gen_server_state_appup(Config) when is_list(Config) ->
  -    ok = upgrade_downgrade("relapp1", "1.0.3", "1.0.4",
  +    ok = upgrade_downgrade("relapp1", ["1.0.3", "1.0.4"],
                              {[{update, relapp_srv, {advanced,[]}, brutal_purge, brutal_purge, []}],
                               [{update, relapp_srv, {advanced,[]}, brutal_purge, brutal_purge, []}]},
                              Config),
  
positive.code: new_gen_server_appup(doc) -> ["Generate an appup for a gen_server upgrade"];
  new_gen_server_appup(suite) -> [];
  new_gen_server_appup(Config) when is_list(Config) ->
      ok = upgrade_downgrade("relapp1", "1.0.2", "1.0.3",
                             {[{add_module, relapp_srv, []},
                               {update, relapp_sup, supervisor},
                               {apply,{supervisor,restart_child,[relapp_sup,relapp_srv]}}],
  
negative.code:                                    "migration"];
  new_auto_gen_server_appup(suite) -> [];
  new_auto_gen_server_appup(Config) when is_list(Config) ->
      ok = upgrade_downgrade("relapp1", ["1.0.10", "1.0.11"],
                             {[{add_module, relapp_srv2, []},
                               {update, relapp_sup, supervisor},
                               {apply,{supervisor,restart_child,[relapp_sup,relapp_srv2]}}],
  