FSharp giraffe

.travis.yml

@@ -28,6 +28,7 @@ env:
  - "TESTLANG=Dart"
  - "TESTLANG=Elixir"
  - "TESTLANG=Erlang"
+ - "TESTLANG=FSharp"
  - "TESTLANG=Go"
  - "TESTLANG=Groovy"
  - "TESTDIR=Haskell/snap"

frameworks/FSharp/giraffe/.gitignore

@@ -0,0 +1,38 @@
+[Oo]bj/
+[Bb]in/
+TestResults/
+.nuget/
+*.sln.ide/
+_ReSharper.*/
+.idea/
+packages/
+artifacts/
+PublishProfiles/
+.vs/
+*.user
+*.suo
+*.cache
+*.docstates
+_ReSharper.*
+nuget.exe
+*net45.csproj
+*net451.csproj
+*k10.csproj
+*.psess
+*.vsp
+*.pidb
+*.userprefs
+*DS_Store
+*.ncrunchsolution
+*.*sdf
+*.ipch
+*.swp
+*~
+.build/
+.testPublish/
+launchSettings.json
+BenchmarkDotNet.Artifacts/
+BDN.Generated/
+binaries/
+global.json
+*.sln

frameworks/FSharp/giraffe/README.md

@@ -0,0 +1,26 @@
+# girrafe Tests on Linux
+This includes tests for plaintext and json serialization.
+
+## Infrastructure Software Versions
+
+**Language**
+
+* F# 4.1
+
+**Platforms**
+
+* .NET Core (Windows and Linux)
+
+**Web Servers**
+
+* [Kestrel](https://github.com/aspnet/KestrelHttpServer)
+
+**Web Stack**
+
+* [giraffe](https://github.com/giraffe-fsharp/Giraffe)
+* ASP.NET Core
+
+## Paths & Source for Tests
+
+* [Plaintext](src/App/Programs.fs): "/plaintext"
+* [JSON Serialization](src/App/Programs.fs): "/json"

frameworks/FSharp/giraffe/benchmark_config.json

@@ -0,0 +1,47 @@
+{
+ "framework": "giraffe",
+ "tests": [
+ {
+ "default": {
+ "plaintext_url": "/plaintext",
+ "json_url": "/json",
+ "port": 8080,
+ "approach": "Realistic",
+ "classification": "fullstack",
+ "database": "None",
+ "framework": "giraffe",
+ "language": "F#",
+ "orm": "Raw",
+ "platform": ".NET",
+ "flavor": "CoreCLR",
+ "webserver": "Kestrel",
+ "os": "Linux",
+ "database_os": "Linux",
+ "display_name": "Giraffe",
+ "notes": "",
+ "versus": "aspcore"
+ }
+ },
+ {
+ "jsonutf8": {
+ "plaintext_url": "/plaintext",
+ "json_url": "/jsonutf8",
+ "port": 8080,
+ "approach": "Realistic",
+ "classification": "fullstack",
+ "database": "None",
+ "framework": "giraffe",
+ "language": "F#",
+ "orm": "Raw",
+ "platform": ".NET",
+ "flavor": "CoreCLR",
+ "webserver": "Kestrel",
+ "os": "Linux",
+ "database_os": "Linux",
+ "display_name": "Giraffe",
+ "notes": "",
+ "versus": "aspcore"
+ }
+ }
+ ]
+}

frameworks/FSharp/giraffe/giraffe-jsonutf8.dockerfile

@@ -0,0 +1,12 @@
+FROM microsoft/dotnet:2.1-sdk-stretch AS build
+WORKDIR /app
+COPY src/App .
+RUN dotnet publish -c Release -o out
+
+FROM microsoft/dotnet:2.1-aspnetcore-runtime AS runtime
+ENV ASPNETCORE_URLS http://+:8080
+ENV COMPlus_ReadyToRun 0
+WORKDIR /app
+COPY --from=build /app/out ./
+
+ENTRYPOINT ["dotnet", "App.dll"]

frameworks/FSharp/giraffe/giraffe.dockerfile

@@ -0,0 +1,12 @@
+FROM microsoft/dotnet:2.1-sdk-stretch AS build
+WORKDIR /app
+COPY src/App .
+RUN dotnet publish -c Release -o out
+
+FROM microsoft/dotnet:2.1-aspnetcore-runtime AS runtime
+ENV ASPNETCORE_URLS http://+:8080
+ENV COMPlus_ReadyToRun 0
+WORKDIR /app
+COPY --from=build /app/out ./
+
+ENTRYPOINT ["dotnet", "App.dll"]

frameworks/FSharp/giraffe/src/App/App.fsproj

@@ -0,0 +1,27 @@
+<Project Sdk="Microsoft.NET.Sdk.Web">
+
+ <PropertyGroup>
+ <TargetFramework>netcoreapp2.1</TargetFramework>
+ <DebugType>portable</DebugType>
+ <AssemblyName>App</AssemblyName>
+ <OutputType>Exe</OutputType>
+ <EnableDefaultContentItems>false</EnableDefaultContentItems>
+ </PropertyGroup>
+
+ <ItemGroup>
+ <PackageReference Include="Microsoft.AspNetCore.Hosting" Version="2.1.0" />
+ <PackageReference Include="Microsoft.AspNetCore.Server.Kestrel" Version="2.1.0" />
+ <PackageReference Include="Microsoft.Extensions.DependencyInjection" Version="2.1.0" />
+ <PackageReference Include="Giraffe" Version="1.1.0" />
+ <PackageReference Include="Utf8Json" Version="1.3.7" />
+ </ItemGroup>
+
+ <ItemGroup>
+ <Compile Include="Program.fs" />
+ </ItemGroup>
+
+ <ItemGroup>
+ <PackageReference Update="FSharp.Core" Version="4.5.0" />
+ </ItemGroup>
+
+</Project>

frameworks/FSharp/giraffe/src/App/Program.fs

@@ -0,0 +1,36 @@
+module App.App
+
+open Microsoft.AspNetCore.Hosting
+open Microsoft.AspNetCore.Http
+open Giraffe
+
+[<CLIMutable>]
+type JsonMessage = { message : string }
+
+let jsonutf8 (data:obj) : HttpHandler =
+ fun (_ : HttpFunc) (ctx : HttpContext) ->
+ let bytes = Utf8Json.JsonSerializer.Serialize(data)
+ ctx.SetContentType "application/json"
+ ctx.Response.ContentLength <- new System.Nullable<int64>( int64 bytes.Length )
+ ctx.WriteBytesAsync bytes
+
+let webApp =
+ choose [
+ GET >=>
+ choose [
+ route "/plaintext" >=> text "Hello, World!"
+ route "/json" >=> json { message = "Hello, World!" }
+ route "/jsonutf8" >=> jsonutf8 { message = "Hello, World!" }
+ ]
+ setStatusCode 404 >=> text "Not Found" 
+ ]
+
+[<EntryPoint>]
+let main _ =
+ WebHostBuilder()
+ .UseKestrel()
+ .Configure(fun app -> app.UseGiraffe(webApp))
+ .ConfigureServices(fun services -> services.AddGiraffe() |> ignore)
+ .Build()
+ .Run()
+ 0