anchor.diff:  
     let testSuiteSchema =
       let result = 
  -      domain.Value |> AppDomain.run (TestAssemblyModule.loadSchema assemblyName)
  +      domain.Value |> AppDomain.run (OneshotTestAssemblyCore.loadSchema assemblyName)
       match result with
       | Success schema ->
         schema
  
positive.code:   let start () =
      let (result, connectable) =
        domain.Value
        |> AppDomain.runObservable (TestAssemblyModule.load assemblyName)
      match result with
      | Some ()->
        connectable.Subscribe(resultObserver) |> resource.Add
  
negative.code: open System.Threading.Tasks
  open Basis.Core
  
  module private OneshotTestAssemblyCore =
    let loadSchema (assemblyName: AssemblyName) () =
      Result.catch (fun () -> Assembly.Load(assemblyName))
      |> Result.map TestSuiteSchema.ofAssembly
  