anchor.diff:  
   module TestHelpers =
   
  -    let createDoc (text:string) references =
  +    let createDoc (text:string) references defines =
           let content = new TestViewContent()
           let tww = TestWorkbenchWindow(content)
   
  
positive.code:             with exn ->
                  Diagnostics.Debug.WriteLine(exn.ToString())
          finally
              MonoDevelop.Ide.TypeSystem.TypeSystemService.Unload solution
          doc, content
negative.code:         let project = new DotNetAssemblyProject ("F#", Name="test", FileName = FilePath("test.fsproj"))
          project.References.AddRange references
          project.Files.Add (new ProjectFile ("/a.fs", BuildAction.Compile))
  
          let projectConfig = DotNetProjectConfiguration("Debug")
          let cp = FSharpCompilerParameters(DefineConstants = defines)
          projectConfig.CompilationParameters <- cp
  
          project.Configurations.Add projectConfig
          project.DefaultConfiguration <- projectConfig
  
          use solution = new MonoDevelop.Projects.Solution ()
          solution.AddConfiguration ("", true) |> ignore
  