anchor.diff:      Ref = aest_nodes:export(n1, Tag, Cfg),
       [kill_node(N, Cfg) || N <- Nodes],
   
  -    %% Match "ok =" when we want to find errors in this stage
  -    ok = aest_nodes:ct_cleanup(Cfg),
  - 
  -    [{height, Height}, {source, Ref}|Cfg].
  -
  -end_per_group(long_chain, _Cfg) -> ok.
  -
  -init_per_testcase(_TC, Cfg) -> 
  -    aest_nodes:ct_setup(Cfg).
  -
  -end_per_testcase(_TC, Cfg) ->
  -    aest_nodes:ct_cleanup(Cfg).
  -
  -end_per_suite(_Cfg) -> ok.
  -
  -%=== TEST CASES ================================================================
  +    {save_config, [{height, Height}, {source, Ref}]}.
   
   startup_speed(Cfg) ->
       % This test verifies that startup does not take longer than mining
  
positive.code: 
  % Test cases
  -export([
      startup_speed/1,
      startup_speed_mining/1,
      sync_speed/1,
  
negative.code:         {sync_timeout, 1000}            % Per block
      ].
  
  init_per_group(long_chain_tests, InitCfg) ->
      {long_chain_mine_and_export, SavedCfg} = cfg(saved_config, InitCfg),
      Height = cfg(height, SavedCfg),
      Ref = cfg(source, SavedCfg),
      [{height, Height}, {source, Ref}|InitCfg];
  init_per_group(_TG, _Cfg) -> ok.
  
  end_per_group(_TG, _Cfg) -> ok.
  
  init_per_testcase(_TC, Cfg) -> 
      aest_nodes:ct_setup(Cfg).
  
  end_per_testcase(_TC, Cfg) ->
      aest_nodes:ct_cleanup(Cfg).
  
  end_per_suite(_Cfg) -> ok.
  
  %=== TEST CASES ================================================================
  
  long_chain_mine_and_export(Cfg) ->
      %% Some parameters depend on the speed and capacity of the docker containers:
      Nodes = [n1, n2, n3],
  
      setup_nodes(cluster(Nodes, #{}), Cfg),
  