Refactor SmithCharts tests

Author: kMutagene

tests/Common/FSharpTestBase/FSharpTestBase.fsproj

@@ -20,6 +20,7 @@
     <Compile Include="TestCharts\ChartTernaryTestCharts.fs" />
     <Compile Include="TestCharts\ChartCarpetTestCharts.fs" />
     <Compile Include="TestCharts\ChartDomainTestCharts.fs" />
+    <Compile Include="TestCharts\ChartSmithTestCharts.fs" />
   </ItemGroup>
 
   <ItemGroup>

tests/Common/FSharpTestBase/TestCharts/ChartSmithTestCharts.fs

@@ -0,0 +1,49 @@
+module ChartSmithTestCharts
+
+open Plotly.NET
+open Plotly.NET.TraceObjects
+
+
+module ScatterSmith =
+
+    let ``Simple smith scatter chart`` =
+        Chart.ScatterSmith(
+            real = [0.5; 1.; 2.; 3.],
+            imag = [0.5; 1.; 2.; 3.],
+            mode = StyleParam.Mode.Lines_Markers_Text,
+            MultiText = ["Pretty"; "Cool"; "Plot"; "Huh?"],
+            TextPosition = StyleParam.TextPosition.TopCenter,
+            UseDefaults = false
+        )
+
+module PointSmith =
+
+    let ``Simple smith point chart`` =
+        Chart.PointSmith(
+            real = [0.5; 1.; 2.; 3.],
+            imag = [0.5; 1.; 2.; 3.],
+            UseDefaults = false
+        )
+
+module LineSmith =
+
+    let ``Simple smith line chart`` =
+        Chart.LineSmith(
+            real = [0.5; 1.; 2.; 3.],
+            imag = [0.5; 1.; 2.; 3.],
+            LineDash = StyleParam.DrawingStyle.DashDot,
+            LineColor = Color.fromKeyword Purple,
+            UseDefaults = false
+        )
+
+module BubbleSmith =
+
+    let ``Simple smith bubble chart`` =
+        Chart.BubbleSmith(
+            real = [0.5; 1.; 2.; 3.],
+            imag = [0.5; 1.; 2.; 3.],
+            sizes = [10;20;30;40],
+            MultiText=["one";"two";"three";"four";"five";"six";"seven"],
+            TextPosition=StyleParam.TextPosition.TopCenter,
+            UseDefaults = false
+        )

tests/CoreTests/CoreTests/CoreTests.fsproj

@@ -18,6 +18,7 @@
     <Compile Include="HtmlCodegen\ChartTernary.fs" />
     <Compile Include="HtmlCodegen\ChartCarpet.fs" />
     <Compile Include="HtmlCodegen\ChartDomain.fs" />
+    <Compile Include="HtmlCodegen\ChartSmith.fs" />
     <!--HTMLCodegen-->
 
     <Compile Include="ChartAPIs\WithAxis.fs" />
@@ -33,7 +34,6 @@
     <Compile Include="Traces\TraceID.fs" />
     <Compile Include="HtmlCodegen\SimpleTests.fs" />
     <Compile Include="HtmlCodegen\ChartLayout.fs" />
-    <Compile Include="HtmlCodegen\SmithCharts.fs" />
     <Compile Include="HtmlCodegen\MulticategoryData.fs" />
     <Compile Include="Main.fs" />
   </ItemGroup>

tests/CoreTests/CoreTests/HTMLCodegen/ChartSmith.fs

@@ -0,0 +1,71 @@
+module CoreTests.HTMLCodegen.ChartSmith
+
+open Expecto
+open Plotly.NET
+open Plotly.NET.LayoutObjects
+open Plotly.NET.TraceObjects
+open Plotly.NET.GenericChart
+
+open TestUtils.HtmlCodegen
+open ChartSmithTestCharts
+
+module ScatterSmith =
+    [<Tests>]
+    let ``ScatterSmith chart HTML codegeneration tests`` =
+        testList "HTMLCodegen.ChartSmith" [
+            testList "ScatterSmith" [
+                testCase "Scatter data" ( fun () ->
+                    """var data = [{"type":"scattersmith","mode":"lines+markers+text","imag":[0.5,1.0,2.0,3.0],"real":[0.5,1.0,2.0,3.0],"text":["Pretty","Cool","Plot","Huh?"],"textposition":"top center","marker":{},"line":{}}];"""
+                    |> chartGeneratedContains ScatterSmith.``Simple smith scatter chart``
+                )
+                testCase "Scatter layout" ( fun () ->
+                    emptyLayout ScatterSmith.``Simple smith scatter chart``
+                )
+            ]
+        ]
+
+
+module PointSmith =
+    [<Tests>]
+    let ``PointSmith chart HTML codegeneration tests`` =
+        testList "HTMLCodegen.ChartSmith" [
+            testList "PointSmith" [
+                testCase "Point data" ( fun () ->
+                    """var data = [{"type":"scattersmith","mode":"markers","imag":[0.5,1.0,2.0,3.0],"real":[0.5,1.0,2.0,3.0],"marker":{},"line":{}}];"""
+                    |> chartGeneratedContains PointSmith.``Simple smith point chart``
+                )
+                testCase "Point layout" ( fun () ->
+                    emptyLayout PointSmith.``Simple smith point chart``
+                )
+            ]
+        ]
+
+module LineSmith =
+    [<Tests>]
+    let ``LineSmith chart HTML codegeneration tests`` =
+        testList "HTMLCodegen.ChartSmith" [
+            testList "LineSmith" [
+                testCase "Line data" ( fun () ->
+                    """var data = [{"type":"scattersmith","mode":"lines","imag":[0.5,1.0,2.0,3.0],"real":[0.5,1.0,2.0,3.0],"marker":{},"line":{"color":"rgba(128, 0, 128, 1.0)","dash":"dashdot"}}];"""
+                    |> chartGeneratedContains LineSmith.``Simple smith line chart``
+                )
+                testCase "Line layout" ( fun () ->
+                    emptyLayout LineSmith.``Simple smith line chart`` 
+                )
+            ]
+        ]
+
+module BubbleSmith =
+    [<Tests>]
+    let ``BubbleSmith chart HTML codegeneration tests`` =
+        testList "HTMLCodegen.ChartSmith" [
+            testList "BubbleSmith" [
+                testCase "Bubble data" ( fun () ->
+                    """var data = [{"type":"scattersmith","mode":"markers+text","imag":[0.5,1.0,2.0,3.0],"real":[0.5,1.0,2.0,3.0],"text":["one","two","three","four","five","six","seven"],"textposition":"top center","marker":{"size":[10,20,30,40]},"line":{}}];"""
+                    |> chartGeneratedContains BubbleSmith.``Simple smith bubble chart``
+                )
+                testCase "Bubble layout" ( fun () ->
+                    emptyLayout BubbleSmith.``Simple smith bubble chart`` 
+                )
+            ]
+        ]