anchor.diff:                      UserSessId = oct_background:get_user_session_id(user3, Provider),
                       ?assertMatch({ok, #archive_info{attrs = ExpCurrentAttrs}},
                           lfm_proxy:get_archive_info(Node, UserSessId, ArchiveId), ?ATTEMPTS)
  -                end, Providers),
  -                api_test_memory:set(MemRef, archive_attrs, ExpCurrentAttrs)
  +                end, Providers)
   
           end
       end.
  
positive.code: 
                  case ExpResult of
                      expected_success ->
                          Timeout = timer:seconds(?ATTEMPTS),
                          receive
                              ?ARCHIVE_PURGED(ArchiveId) -> ok
                          after
                              Timeout ->
                                  ct:fail("Archive ~p not purged", [ArchiveId])
                          end;
                      expected_failure ->
                          ok
  
negative.code:         {Id, _} = api_test_utils:maybe_substitute_bad_id(ArchiveId, Data0),
          api_test_memory:set(MemRef, archive_to_purge, ArchiveObject#archive_object{id = Id}),
  
          #gs_args{
              operation = create,
              gri = #gri{type = op_archive, id = Id, aspect = purge, scope = private},
              data = Data0
          }
      end.
  
  