anchor.diff:  %% Private methods
   %% -------------------------------------------------------------
   
  -upgrade_downgrade(App, FromVersion, ToVersion,
  +upgrade_downgrade(App, VersionSequence,
                     ExpectedAppup, Config) ->
  -    upgrade_downgrade(App, FromVersion, ToVersion,
  +    upgrade_downgrade(App, VersionSequence,
                         [],
                         ExpectedAppup,
                         [], Config).
   
  -upgrade_downgrade(App, FromVersion, ToVersion,
  +upgrade_downgrade(App, [FromVersion, ToVersion | []],
                     Hooks,
                     ExpectedAppup,
                     Opts, Config) ->
  
positive.code: capital_named_modules(doc) -> ["Generate an appup for a release containing a module with capital name"];
  capital_named_modules(suite) -> [];
  capital_named_modules(Config) when is_list(Config) ->
      ok = upgrade_downgrade("relapp1", "1.0.27", "1.0.28",
                             [],
                             {[{add_module, 'RELAPP-CAPITAL-TEST_m2', []}],
                              [{delete_module, 'RELAPP-CAPITAL-TEST_m2'}]},
  
negative.code:                                                  "adding a new field to the middle of the record state"];
  add_field_middle_gen_server_state_appup(suite) -> [];
  add_field_middle_gen_server_state_appup(Config) when is_list(Config) ->
      ok = upgrade_downgrade("relapp1", ["1.0.5", "1.0.6"],
                             {[{update, relapp_srv, {advanced,[]}, brutal_purge, brutal_purge, []}],
                              [{update, relapp_srv, {advanced,[]}, brutal_purge, brutal_purge, []}]},
                             Config),
  