anchor.diff:        testAssembly.Start()
       | Failure e ->
         notifier.NotifyWarning
  -        ( sprintf "Couldn't load an assembly '%s'." assemblyName.Name
  +        ( sprintf "Couldn't load an assembly '%s'." file.Name
           , [| ("Exception", e :> obj) |]
           )
   
  
positive.code: [<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>)
  
negative.code:     load ()
      subscription.Disposable <-
        file |> FileInfo.subscribeChanged (TimeSpan.FromMilliseconds(100.0)) load
  
    override this.CancelCommand =
      cancelCommand
  