Fiex bug where dicts where not recursive.

Author: fremling

Project.toml

@@ -1,6 +1,6 @@
 name = "MathLink"
 uuid = "18c93696-a329-5786-9845-8443133fa0b4"
-version = "0.5.2"
+version = "0.5.3"
 
 [deps]
 Libdl = "8f399da3-3557-5675-b5ff-fb832c97cbdb"

src/W2Julia.jl

@@ -3,10 +3,11 @@
 export W2Julia
 
 W2Julia(X::Number) = X
+W2Julia(X::String) = X
 W2Julia(X::MathLink.WSymbol) = X
 function W2Julia(X::MathLink.WExpr)
     if X.head == W"List"
-        return [W2Julia(x) for x in X.args]
+        return W2Julia.(X.args)
     elseif X.head == W"Association"
         W2JuliaAccociation(X)
     else
@@ -31,7 +32,7 @@ function W2JuliaAccociation(Asso::MathLink.WExpr)
         if length(Rule.args) != 2
             error("Bad rule")
         end
-        D[Rule.args[1]]=Rule.args[2]
+        D[Rule.args[1]]=W2Julia(Rule.args[2])
     end
     return D
 end

test/runtests.jl

@@ -15,6 +15,12 @@ import MathLink: WExpr, WSymbol
     @testset "Association to Dict" begin
         @test W2Julia(W`Association["team" -> "HOU", "lastName" -> "Ching"]`) == Dict( "team" => "HOU" , "lastName" => "Ching")
     end
+    @testset "Association and List Dict" begin
+        @test W2Julia(W`Association["team" -> {1,2,3}, "lastName" -> "Ching"]`) == Dict( "team" => [1,2,3] , "lastName" => "Ching")
+        @test W2Julia(W`{1,Association["team" -> {1,2,3}, "lastName" -> "Ching"]}`) == [1,Dict( "team" => [1,2,3] , "lastName" => "Ching")]
+
+    end
+
 end