Add isCompatible and toString functions to Platform module.

Author: robinheghan

src/Compiler/Platform.gren

@@ -1,5 +1,8 @@
 module Compiler.Platform exposing
     ( Platform(..)
+    , isCompatible
+    --
+    , toString
     , toJson
     , jsonDecoder
     )
@@ -15,6 +18,19 @@ type Platform
     | Common
 
 
+isCompatible : Platform -> Platform -> Bool
+isCompatible a b =
+    a == b || b == Common
+
+
+toString : Platform -> String
+toString platform =
+    when platform is
+        Common -> "common"
+        Browser -> "browser"
+        Node -> "node"
+
+
 toJson : Platform -> Encode.Value
 toJson platform =
     when platform is

tests/src/Main.gren

@@ -9,6 +9,7 @@ import Test.SemanticVersionRange as SemanticVersionRange
 import Test.Compiler.Dependencies as Dependencies
 import Test.Compiler.PackageName as PackageName
 import Test.Compiler.ModuleName as ModuleName
+import Test.Compiler.Platform as Platform
 import Test.String.EditDistance as EditDistance
 import Node exposing (Program)
 
@@ -24,5 +25,6 @@ main =
             , SemanticVersionRange.tests
             , PackageName.tests
             , ModuleName.tests
+            , Platform.tests
             , EditDistance.tests
             ]

tests/src/Test/Compiler/Platform.gren

@@ -0,0 +1,27 @@
+module Test.Compiler.Platform exposing (tests)
+
+import Expect exposing (Expectation)
+import Test exposing (Test, describe, test)
+import Fuzz exposing (Fuzzer)
+import Compiler.Platform as P
+
+
+tests : Test
+tests =
+    describe "Platform"
+        [ describe "isCompatible"
+            [ test "equals" <| \{} ->
+                Expect.all
+                    [ \_ -> Expect.equal True (P.isCompatible P.Node P.Node)
+                    , \_ -> Expect.equal True (P.isCompatible P.Browser P.Browser)
+                    , \_ -> Expect.equal True (P.isCompatible P.Common P.Common)
+                    ]
+                    {}
+            , test "common is always compatible" <| \{} ->
+                Expect.all
+                    [ \_ -> Expect.equal True (P.isCompatible P.Node P.Common)
+                    , \_ -> Expect.equal True (P.isCompatible P.Browser P.Common)
+                    ]
+                    {}
+            ]
+        ]