anchor.diff:    let listTests test =
       test
       |> Test.toTestCodeList
  -    |> Seq.iter (fun t -> printfn "%s" t.name)
  +    |> Seq.iter (fun t ->
  +      if t.location <> SourceLocation.Empty then
  +        printfn "%s [%s:%d]" t.name t.location.SourcePath t.location.LineNumber
  +      else
  +        printfn "%s" t.name)
  +
   
     /// Runs tests with the supplied options.
     /// Returns 0 if all tests passed, otherwise 1
  
positive.code:       |> Seq.toList
        |> listToTestListOption
  
    /// Scan filtered tests marked with TestsAttribute from an assembly
    let testFromAssemblyWithFilter typeFilter (a: Assembly) =
      a.GetExportedTypes()
      |> Seq.filter typeFilter
      |> Seq.choose testFromType
      |> Seq.toList
      |> listToTestListOption
  
  
negative.code:   open Expecto.Logging
    open Expecto.Logging.Message
    open Helpers
    open Mono.Cecil
    open Mono.Cecil.Rocks
  
    let logger = Log.create "Expecto"
  