deps: download help; use it (DSS_SetPropertiesMO)

Enabled some tests that depended on that.

deps/build.jl

@@ -90,6 +90,28 @@ function download(::Type{Windows})
     println("Success")
 end
 
+function download_messages()
+
+    url = "https://github.com/dss-extensions/dss_capi/releases/download/$(DSS_CAPI_TAG)/messages.zip"
+    @show url
+    filename = normpath(joinpath(@__DIR__, "messages.zip"))
+    Base.download(url, filename)
+
+    directory = normpath(@__DIR__)
+
+    home = (Base.VERSION < v"0.7-") ? JULIA_HOME : Sys.BINDIR
+    if Base.VERSION < v"1.3.0"
+        bin7z = "$home/7z"
+    else
+        bin7z = "$(joinpath(home, "..", "libexec", "7z"))"
+    end
+
+    success(`$bin7z x $filename -y -o$directory`)
+    rm(joinpath(@__DIR__, "messages.zip"), force=true)
+
+    println("Success")
+end
+
 
 if Sys.iswindows()
     os = Windows
@@ -100,3 +122,4 @@ else
 end
 
 download(os)
+download_messages()

src/OpenDSSDirect.jl

@@ -135,6 +135,9 @@ function __init__()
         error("$LIBRARY cannot be opened. Please check 'deps/build.log' for more information.")
     end
 
+    # Load the default descriptions/help strings
+    Lib.DSS_SetPropertiesMO(abspath(joinpath(@__DIR__, "../deps/messages/properties-en-US.mo")))
+
     if !Sys.islinux()
         global commandhelp = Dict{String, String}()
         for i in 1:OpenDSSDirect.Executive.NumCommands()

src/lib.jl

@@ -6341,3 +6341,7 @@ end
 function XYCurves_Set_idx(Value)
     ccall((:XYCurves_Set_idx, LIBRARY), Cvoid, (Int32,), Value)
 end
+
+function DSS_SetPropertiesMO(Value)
+    ccall((:DSS_SetPropertiesMO, LIBRARY), Cstring, ())
+end

test/executive.jl

@@ -10,8 +10,7 @@ init8500()
 @test Executive.Option(2) == "element"
 @test Executive.OptionValue(2) == "vreg4_c"
 
-# Broken until we add the gettext message catalogs
-@test_broken Executive.CommandHelp(2)[1:7] == "Edit an"
-@test_broken Executive.OptionHelp(2)[1:8] == "Sets the"
+@test Executive.CommandHelp(2)[1:7] == "Edit an"
+@test Executive.OptionHelp(2)[1:8] == "Sets the"
 
 end # testset

test/properties.jl

@@ -13,24 +13,21 @@ OpenDSSDirect.Lib.DSSProperty_Set_Index(-1)
 Properties._setCurrentProperty(1)
 @test uppercase(Properties.Value()) == "VREG4_C"
 
-# Broken until we add the gettext catalogs
-@test_broken replace(Properties.Description(), "\r\n" => "\n") == "Name of Transformer or AutoTrans element to which the RegControl is connected. Do not specify the full object name; \"Transformer\" or \"AutoTrans\" is assumed for the object class.  Example:\n\nTransformer=Xfmr1"
+@test replace(Properties.Description(), "\r\n" => "\n") == "Name of Transformer or AutoTrans element to which the RegControl is connected. Do not specify the full object name; \"Transformer\" or \"AutoTrans\" is assumed for the object class.  Example:\n\nTransformer=Xfmr1"
 
 @test Properties.Name() == "transformer"
 
 Properties._setCurrentProperty("1")
 @test uppercase(Properties.Value()) == "VREG4_C"
 
-# Broken until we add the gettext catalogs
-@test_broken replace(Properties.Description(), "\r\n" => "\n") == "Name of Transformer or AutoTrans element to which the RegControl is connected. Do not specify the full object name; \"Transformer\" or \"AutoTrans\" is assumed for the object class.  Example:\n\nTransformer=Xfmr1"
+@test replace(Properties.Description(), "\r\n" => "\n") == "Name of Transformer or AutoTrans element to which the RegControl is connected. Do not specify the full object name; \"Transformer\" or \"AutoTrans\" is assumed for the object class.  Example:\n\nTransformer=Xfmr1"
 
 @test Properties.Name() == "transformer"
 
 Properties._setCurrentProperty("transformer")
 @test uppercase(Properties.Value()) == "VREG4_C"
 
-# Broken until we add the gettext catalogs
-@test_broken replace(Properties.Description(), "\r\n" => "\n") == "Name of Transformer or AutoTrans element to which the RegControl is connected. Do not specify the full object name; \"Transformer\" or \"AutoTrans\" is assumed for the object class.  Example:\n\nTransformer=Xfmr1"
+@test replace(Properties.Description(), "\r\n" => "\n") == "Name of Transformer or AutoTrans element to which the RegControl is connected. Do not specify the full object name; \"Transformer\" or \"AutoTrans\" is assumed for the object class.  Example:\n\nTransformer=Xfmr1"
 
 @test Properties.Name() == "transformer"