First tests running

Author: dbrattli

Build.fs

@@ -32,10 +32,12 @@ Target.create "Run" (fun _ ->
 
 Target.create "RunTests" (fun _ ->
     run dotnet "build" testsPath
-    [ "native", dotnet "watch run" testsPath
+    [ "native", dotnet "run" testsPath
       "python", dotnet $"run -c Release -p {cliPath} -- --lang Python --exclude Fable.Core --outDir {buildPath}/tests" testsPath
       ]
     |> runParallel
+    Shell.Exec("touch", $"{buildPath}/tests/__init__.py") |> ignore
+    run pytest $"{buildPath}/tests" ""
 )
 
 Target.create "Format" (fun _ ->
@@ -54,6 +56,7 @@ let dependencies = [
         ==> "Run"
 
     "InstallClient"
+        ==> "Build"
         ==> "RunTests"
 ]
 

Helpers.fs

@@ -72,6 +72,10 @@ let createProcess exe arg dir =
     |> CreateProcess.ensureExitCode
 
 let dotnet = createProcess "dotnet"
+
+
+let pytest = createProcess "pytest"
+
 let npm =
     let npmPath =
         match ProcessUtils.tryFindFileOnPath "npm" with

src/Builtins.fs

@@ -0,0 +1,14 @@
+module Fable.Python.Builtins
+
+open System.Collections.Generic
+open Fable.Core
+
+// fsharplint:disable MemberNames,InterfaceNames
+
+type Builtins =
+    abstract print : obj: obj -> unit
+    abstract map : ('T1 -> 'T2) * IEnumerable<'T1> -> IEnumerable<'T2>
+    abstract map : ('T1 * 'T2 -> 'T3) * IEnumerable<'T1> * IEnumerable<'T2> -> IEnumerable<'T3>
+    abstract map : ('T1 * 'T2 * 'T3 -> 'T4) * IEnumerable<'T1> * IEnumerable<'T2> * IEnumerable<'T3> -> IEnumerable<'T4>
+
+let builtins: Builtins = nativeOnly

src/Fable.Python.fsproj

@@ -6,10 +6,14 @@
     <WarnOn>3390;$(WarnOn)</WarnOn>
   </PropertyGroup>
   <ItemGroup>
+    <Compile Include="Builtins.fs" />
     <Compile Include="Json.fs" />
   </ItemGroup>
   <ItemGroup>
     <ProjectReference Include="../../Fable/src/Fable.Core/Fable.Core.fsproj" />
   </ItemGroup>
+  <ItemGroup>
+    <Content Include="pyproject.toml; *.fsproj; **\*.fs; **\*.fsi" PackagePath="fable\" />
+  </ItemGroup>
   <Import Project="..\.paket\Paket.Restore.targets" />
 </Project>

src/Json.fs

@@ -2,9 +2,11 @@
 
 open Fable.Core
 
+// fsharplint:disable MemberNames,InterfaceNames
 
 type Json =
     abstract dumps : obj: obj -> string
+    abstract loads : string -> obj
 
-[<ImportDefault("os")>]
+[<ImportDefault("json")>]
 let json: Json = nativeOnly

src/pyproject.toml

@@ -0,0 +1,17 @@
+
+[tool.poetry]
+name = "fable-python"
+version = "0.1.0"
+description = "Python bindings for Fable"
+authors = ["Dag Brattli <[email protected]>"]
+license = "MIT"
+
+[tool.poetry.dependencies]
+python = "^3.8"
+fable-library = "^0.0.1"
+
+[tool.poetry.dev-dependencies]
+
+[build-system]
+requires = ["poetry-core>=1.0.0"]
+build-backend = "poetry.core.masonry.api"

test/Fable.Python.Test.fsproj

@@ -13,6 +13,7 @@
   </ItemGroup>
   <ItemGroup>
     <Compile Include="Util.fs" />
+    <Compile Include="TestBuiltins.fs" />
     <Compile Include="TestJson.fs" />
     <Compile Include="Main.fs" />
   </ItemGroup>

test/TestBuiltins.fs

@@ -0,0 +1,14 @@
+module Fable.Python.Tests.Builtins
+
+open Util.Testing
+open Fable.Python.Builtins
+
+// type MyObject = {
+//     Foo: int
+//     Bar: string
+// }
+
+[<Fact>]
+let ``test print works`` () =
+    let result = builtins.print "Hello, world!"
+    result |> equal ()

test/TestJson.fs

@@ -1,9 +1,27 @@
 module Fable.Python.Tests.Json
 
 open Util.Testing
+open Fable.Python.Json
 
+// type MyObject = {
+//     Foo: int
+//     Bar: string
+// }
 
 [<Fact>]
-let ``test Seq.empty works`` () =
+let ``test works`` () =
     let result = true
     result |> equal true
+
+[<Fact>]
+let ``test json dumps works`` () =
+    let object = {| A=10; B=20 |}
+    let result =  json.dumps object
+    result |> equal """{"A": 10, "B": 20}"""
+
+[<Fact>]
+let ``test json loads works`` () =
+    let input = """{"Foo": 10, "Bar": "test"}"""
+    let object = {| Foo=10; Bar="test" |}
+    let result : {| Foo: int; Bar: string |}= unbox (json.loads input)
+    result |> equal object