-
Notifications
You must be signed in to change notification settings - Fork 78
/
build.fsx
254 lines (202 loc) · 8.5 KB
/
build.fsx
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
#r @"paket:
source https://api.nuget.org/v3/index.json
framework: net6.0
nuget FSharp.Core 6.0.0.0
nuget Fake.Core.Target
nuget Fake.Core.Trace
nuget Fake.Core.ReleaseNotes
nuget Fake.IO.FileSystem
nuget Fake.DotNet.Cli
nuget Fake.DotNet.MSBuild
nuget Fake.DotNet.AssemblyInfoFile
nuget Fake.DotNet.Paket
nuget Fake.DotNet.Fsi
nuget Fake.Tools.Git
nuget Fake.Api.GitHub //"
#load "./.fake/build.fsx/intellisense.fsx"
open Fake.Core
open Fake.Core.TargetOperators
open Fake.IO
open Fake.IO.FileSystemOperators
open Fake.IO.Globbing.Operators
open Fake.DotNet
open Fake.Tools.Git
open System.IO
Target.initEnvironment()
// --------------------------------------------------------------------------------------
// Project-specific details below
// --------------------------------------------------------------------------------------
// Information about the project are used
// - for version and project name in generated AssemblyInfo file
// - by the generated NuGet package
// - to run tests and to publish documentation on GitHub gh-pages
// - for documentation, you also need to edit info in "docs/tools/generate.fsx"
// The name of the project
// (used by attributes in AssemblyInfo, name of a NuGet package and directory in 'src')
let project = "FsUnit"
// Short summary of the project
// (used as description in AssemblyInfo and as a short summary for NuGet package)
let summary = "FsUnit is a set of libraries that makes unit-testing with F# more enjoyable."
// Git configuration (used for publishing documentation in gh-pages branch)
// The profile where the project is posted
let gitOwner = "fsprojects"
let gitHome = "https://github.com/" + gitOwner
// The name of the project on GitHub
let gitName = "FsUnit"
// The url for the raw files hosted
//let gitRaw = environVarOrDefault "gitRaw" "https://raw.github.com/fsprojects"
let gitRaw = "https://raw.github.com/fsprojects"
let cloneUrl = "git@github.com:fsprojects/FsUnit.git"
// --------------------------------------------------------------------------------------
// END TODO: The rest of the file includes standard build steps
// --------------------------------------------------------------------------------------
// Read additional information from the release notes document
let release = ReleaseNotes.load "RELEASE_NOTES.md"
let version = release.AssemblyVersion
// Helper active pattern for project types
let (|Fsproj|Csproj|Vbproj|) (projFileName: string) =
match projFileName with
| f when f.EndsWith("fsproj") -> Fsproj
| f when f.EndsWith("csproj") -> Csproj
| f when f.EndsWith("vbproj") -> Vbproj
| _ -> failwith $"Project file %s{projFileName} not supported. Unknown project type."
// Generate assembly info files with the right version & up-to-date information
Target.create "AssemblyInfo" (fun _ ->
let getAssemblyInfoAttributes projectName =
[ AssemblyInfo.Title(projectName)
AssemblyInfo.Product project
AssemblyInfo.Description summary
AssemblyInfo.Version version
AssemblyInfo.FileVersion version ]
let getProjectDetails (projectPath: string) =
let projectName = System.IO.Path.GetFileNameWithoutExtension(projectPath)
(projectPath, projectName, Path.GetDirectoryName(projectPath), (getAssemblyInfoAttributes projectName))
!! "src/**/*.??proj"
|> Seq.filter (fun x -> not <| x.Contains(".netstandard"))
|> Seq.map getProjectDetails
|> Seq.iter (fun (projFileName, _, folderName, attributes) ->
match projFileName with
| Fsproj -> AssemblyInfoFile.createFSharp (folderName @@ "AssemblyInfo.fs") attributes
| Csproj -> AssemblyInfoFile.createCSharp ((folderName @@ "Properties") @@ "AssemblyInfo.cs") attributes
| Vbproj -> AssemblyInfoFile.createVisualBasic ((folderName @@ "My Project") @@ "AssemblyInfo.vb") attributes))
// Copies binaries from default VS location to expected bin folder
// But keeps a subdirectory structure for each project in the
// src folder to support multiple project outputs
Target.create "CopyBinaries" (fun _ ->
!! "src/**/*.??proj"
|> Seq.map (fun f -> ((Path.GetDirectoryName f) @@ "bin/Release", "bin" @@ (Path.GetFileNameWithoutExtension f)))
|> Seq.iter (fun (fromDir, toDir) -> Shell.copyDir toDir fromDir (fun _ -> true)))
// --------------------------------------------------------------------------------------
// Clean build results
Target.create "Clean" (fun _ ->
Shell.cleanDirs
[ "bin"
"temp"
"src/FsUnit.NUnit/bin/"
"src/FsUnit.NUnit/obj/"
"src/FsUnit.Xunit/bin/"
"src/FsUnit.Xunit/obj/"
"src/FsUnit.MsTestUnit/bin/"
"src/FsUnit.MsTestUnit/obj/" ])
Target.create "CleanDocs" (fun _ -> Shell.cleanDirs [ "docs/output" ])
// --------------------------------------------------------------------------------------
// Check code format & format code using Fantomas
let sourceFiles =
!! "src/**/*.fs"
++ "tests/**/*.fs"
-- "./**/*Assembly*.fs"
Target.create "CheckFormat" (fun _ ->
let result =
sourceFiles
|> Seq.map (sprintf "\"%s\"")
|> String.concat " "
|> sprintf "%s --check"
|> DotNet.exec id "fantomas"
if result.ExitCode = 0 then
Trace.log "No files need formatting"
elif result.ExitCode = 99 then
failwith "Some files need formatting, check output for more info"
else
Trace.logf $"Errors while formatting: %A{result.Errors}")
Target.create "Format" (fun _ ->
let result =
sourceFiles
|> Seq.map (sprintf "\"%s\"")
|> String.concat " "
|> DotNet.exec id "fantomas"
if not result.OK then
printfn $"Errors while formatting all files: %A{result.Messages}")
// --------------------------------------------------------------------------------------
// Build library & test project
Target.create "Build" (fun _ ->
let result = DotNet.exec id "build" "FsUnit.sln -c Release"
if not result.OK then
failwithf "Build failed: %A" result.Errors)
// --------------------------------------------------------------------------------------
// Run the unit tests using test runner
Target.create "NUnit" (fun _ ->
let result = DotNet.exec id "test" "tests/FsUnit.NUnit.Test/"
if not result.OK then
failwithf $"NUnit test failed: %A{result.Errors}")
Target.create "xUnit" (fun _ ->
let result = DotNet.exec id "test" "tests/FsUnit.Xunit.Test/"
if not result.OK then
failwithf $"xUnit test failed: %A{result.Errors}")
Target.create "MsTest" (fun _ ->
let result = DotNet.exec id "test" "tests/FsUnit.MsTest.Test/"
if not result.OK then
failwithf $"MsTest test failed: %A{result.Errors}")
Target.create "RunTests" ignore
// --------------------------------------------------------------------------------------
// Build a NuGet package
Target.create "NuGet" (fun _ ->
Paket.pack (fun p ->
{ p with
ToolType = ToolType.CreateLocalTool()
OutputPath = "bin"
Version = version
ReleaseNotes = String.toLines release.Notes }))
Target.create "PublishNuget" (fun _ ->
Paket.push (fun p ->
{ p with
ToolType = ToolType.CreateLocalTool()
WorkingDir = "bin" }))
// --------------------------------------------------------------------------------------
// Generate the documentation
Target.create "GenerateDocs" (fun _ ->
Shell.cleanDir ".fsdocs"
DotNet.exec id "fsdocs" "build --clean --parameters root https://fsprojects.github.io/FsUnit"
|> ignore)
// --------------------------------------------------------------------------------------
// Release Scripts
Target.create "ReleaseDocs" (fun _ ->
let tempDocsDir = "tmp/gh-pages"
Shell.cleanDir tempDocsDir
Repository.cloneSingleBranch "" cloneUrl "gh-pages" tempDocsDir
Repository.fullclean tempDocsDir
Shell.copyRecursive "output" tempDocsDir true |> Trace.tracefn "%A"
Staging.stageAll tempDocsDir
Commit.exec tempDocsDir (sprintf "Update generated documentation for version %s" version)
Branches.push tempDocsDir)
// --------------------------------------------------------------------------------------
// Run all targets by default. Invoke 'build <Target>' to override
Target.create "All" ignore
Target.create "Release" ignore
"Clean"
==> "AssemblyInfo"
==> "CheckFormat"
==> "Build"
==> "CopyBinaries"
==> "RunTests"
==> "All"
"Build"
==> "NUnit"
==> "xUnit"
==> "MsTest"
==> "RunTests"
"All"
==> "NuGet"
==> "GenerateDocs"
==> "ReleaseDocs"
==> "Release"
Target.runOrDefault "All"