Added --version option. Fixes #6

Author: av

lib/smppsend.ex

@@ -5,6 +5,7 @@ defmodule SMPPSend do
 
   @switches [
     help: :boolean,
+    version: :boolean,
 
     bind_mode: :string,
     host: :string,
@@ -88,6 +89,7 @@ defmodule SMPPSend do
       &validate_unknown/1,
       &set_defaults/1,
       &show_help/1,
+      &show_version/1,
       &validate_missing/1,
       &decode_hex_string/1,
       &convert_to_ucs2/1,
@@ -146,6 +148,16 @@ defmodule SMPPSend do
     end
   end
 
+  defp show_version(opts) do
+    if opts[:version] do
+      IO.puts(SMPPSend.Version.version)
+      :exit
+    else
+      {:ok, opts}
+    end
+  end
+
+
   defp decode_hex_string(opts) do
     if opts[:binary] do
       case SMPPSend.OptionHelpers.decode_hex_string(opts, :short_message) do

lib/smppsend/usage.ex

@@ -7,6 +7,7 @@ Usage: C<smppsend> g<OPTIONS>
 Available options are:
 
   --help                                Show this help
+  --version                             Show version
 
   --bind-mode y<mode>                      Bind mode, one of the following: y<tx>(transmitter), y<rx>(receiver), y<trx>(transceiver)
 
@@ -20,7 +21,7 @@ Available options are:
   --udh                                 Prepend short_message with UDH. This option is incompatible with --split-max-bytes option
 
   --ucs2                                Convert short_message field and message_payload TLV from UTF8 to UCS2 before sending submit_sm PDUs
-  
+
   --binary                              Decode short_message field and message_payload TLV from raw hex representation (e.g. input `003100320033` to see `123` in a UCS2 message)
 
   --wait-dlrs y<timeout>                   Wait for for delivery reports for all sent submit_sm PDUs or exit with failure after y<timeout> ms

lib/smppsend/version.ex

@@ -0,0 +1,7 @@
+defmodule SMPPSend.Version do
+  def version do
+    Application.spec(:smppsend)
+    |> Keyword.get(:vsn)
+    |> to_string
+  end
+end

test/smppsend/version_test.exs

@@ -0,0 +1,7 @@
+defmodule SMPPSend.VersionTest do
+  use ExUnit.Case
+
+  test "version" do
+    assert {:ok, _} = Version.parse(SMPPSend.Version.version)
+  end
+end