From 66095c2d429ffa327bd4823b3975b1652921036b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Micka=C3=ABl=20Derriey?= Date: Fri, 2 Sep 2016 22:39:55 +1000 Subject: [PATCH] output the name of the original LINQPad sample when running them --- build.fsx | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/build.fsx b/build.fsx index f7222ee7..c20f38ad 100644 --- a/build.fsx +++ b/build.fsx @@ -174,9 +174,9 @@ Target "ValidateLINQPadSamples" (fun _ -> let xmlPart = content.Substring(openTagIndex, endOfXml - openTagIndex) let rest = content.Substring(endOfXml) - (xmlPart, rest) + (file.Name, xmlPart, rest) - let createTempFile = fun(metadataString: string, rest: string) -> + let createTempFile = fun(fileName: string, metadataString: string, rest: string) -> let metadata = LinqPadSampleMetadata.Parse(metadataString) let assembliesDir = buildDir @@ "Release/Net45" let reactiveAssembliesDir = reactiveBuildDir @@ "Release/Net45" @@ -199,15 +199,16 @@ Target "ValidateLINQPadSamples" (fun _ -> writer.Flush() - tempFileName + (fileName, tempFileName) directoryInfo(samplesDir @@ "linqpad-samples") |> filesInDir |> Array.map (splitFileContents >> createTempFile) - |> Seq.iter (fun sample -> + |> Seq.iter (fun (fileName, sample) -> + printfn "Executing sample %s" fileName let result = ExecProcess (fun info -> info.FileName <- linqPadDir @@ "lprun.exe" - info.Arguments <- " -compileonly -lang=Program " + sample) (TimeSpan.FromMinutes 5.0) + info.Arguments <- "-compileonly -lang=Program " + sample) (TimeSpan.FromMinutes 5.0) if result <> 0 then failwithf "lprun.exe returned with a non-zero exit code for %s" sample )