anchor.diff:  [<Sealed>]
   type FileLoadingPermanentTestAssembly(notifier: Notifier, file: FileInfo) =
     inherit PermanentTestAssembly()
  -
  -  let assemblyName =
  -    match Result.catch (fun () -> AssemblyName.GetAssemblyName(file.FullName)) with
  -    | Success name ->
  -      name
  -    | Failure _ ->
  -      todo ""
   
     let current =
       ReactiveProperty.create (None: option<OneshotTestAssembly>)
  
positive.code:     load ()
      subscription.Disposable <-
        file |> FileInfo.subscribeChanged (TimeSpan.FromMilliseconds(100.0)) load
  
    member this.AssemblyName =
      assemblyName
  
    override this.CancelCommand =
      cancelCommand
  
negative.code:       testAssembly.Start()
      | Failure e ->
        notifier.NotifyWarning
          ( sprintf "Couldn't load an assembly '%s'." file.Name
          , [| ("Exception", e :> obj) |]
          )
  
  