Welcome to mirror list, hosted at ThFree Co, Russian Federation.

github.com/mono/monodevelop.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
path: root/main
diff options
context:
space:
mode:
authorMatt Ward <matt.ward@xamarin.com>2017-07-27 17:48:36 +0300
committerMatt Ward <ward.matt@gmail.com>2017-07-27 18:10:49 +0300
commitc890ba7826d35d55a66a1a78a49d8aa8a8690913 (patch)
treee7f2543a608a40e5459f7e962a7a15bedf1d3c75 /main
parent8d86bda3c0b5d74d812b6c5f9cdb9e1d4ba7d050 (diff)
[F#] Add test for Xamarin.Forms template using a shared project
The portable class library project is being tested already. The shared project needs other parameters configured so it is created instead of the portable class library project.
Diffstat (limited to 'main')
-rw-r--r--main/external/fsharpbinding/MonoDevelop.FSharp.Tests/TemplateTests.fs12
1 files changed, 11 insertions, 1 deletions
diff --git a/main/external/fsharpbinding/MonoDevelop.FSharp.Tests/TemplateTests.fs b/main/external/fsharpbinding/MonoDevelop.FSharp.Tests/TemplateTests.fs
index 5b10ccab5f..0522ceb299 100644
--- a/main/external/fsharpbinding/MonoDevelop.FSharp.Tests/TemplateTests.fs
+++ b/main/external/fsharpbinding/MonoDevelop.FSharp.Tests/TemplateTests.fs
@@ -54,7 +54,7 @@ type ``Template tests``() =
let templatesDir = FilePath(".").FullPath.ToString() / "buildtemplates"
- let test (tt:string) =
+ let testWithParameters (tt:string, parameters:string) =
if not MonoDevelop.Core.Platform.IsMac then
Assert.Ignore ()
//if tt = "FSharpPortableLibrary" then
@@ -80,6 +80,10 @@ type ``Template tests``() =
cinfo.Parameters.["AndroidMinSdkVersionAttribute"] <- "android:minSdkVersion=\"10\""
cinfo.Parameters.["AndroidThemeAttribute"] <- ""
cinfo.Parameters.["TargetFrameworkVersion"] <- "MonoAndroid,Version=v7.0"
+
+ for templateParameter in TemplateParameter.CreateParameters (parameters) do
+ cinfo.Parameters.[templateParameter.Name] <- templateParameter.Value
+
use sln = projectTemplate.CreateWorkspaceItem (cinfo) :?> Solution
let createTemplate (template:SolutionTemplate) =
@@ -137,6 +141,9 @@ type ``Template tests``() =
| [] -> Assert.Pass()
| errors -> Assert.Fail (sprintf "%A" errors)
}
+
+ let test (tt:string) = testWithParameters (tt, "")
+
[<TestFixtureSetUp>]
member x.Setup() =
let config = """
@@ -179,3 +186,6 @@ type ``Template tests``() =
[<Test;AsyncStateMachine(typeof<Task>)>]member x.``FSharpGtkProject``()= test "FSharpGtkProject"
[<Test;AsyncStateMachine(typeof<Task>)>]member x.``MonoDevelop FSharp LibraryProject``()= test "MonoDevelop.FSharp.LibraryProject"
[<Test;AsyncStateMachine(typeof<Task>)>]member x.``FSharpNUnitLibraryProject``()= test "FSharpNUnitLibraryProject"
+ [<Test;AsyncStateMachine(typeof<Task>)>]
+ member x.``Xamarin Forms FSharp FormsApp Shared``() =
+ testWithParameters ("Xamarin.Forms.FSharp.FormsApp", "CreateSharedAssetsProject=True;CreatePortableDotNetProject=False")