Accept LicenseRef license identifiers (#184)

Author: ericmj

src/hex_licenses.erl

@@ -665,4 +665,30 @@ valid(<<"xlock">>) -> true;
 valid(<<"xpp">>) -> true;
 valid(<<"xzoom">>) -> true;
 valid(<<"zlib-acknowledgement">>) -> true;
+valid(<<"LicenseRef-", IdString/binary>>) -> valid_license_ref_idstring(IdString);
 valid(_) -> false.
+
+valid_license_ref_idstring(<<>>) ->
+    false;
+valid_license_ref_idstring(IdString) ->
+    valid_license_ref_idstring(IdString, true).
+
+valid_license_ref_idstring(<<>>, Valid) ->
+    Valid;
+valid_license_ref_idstring(_, false) ->
+    false;
+valid_license_ref_idstring(<<Char, Rest/binary>>, true) ->
+    valid_license_ref_idstring(Rest, valid_license_ref_char(Char)).
+
+valid_license_ref_char(Char) when Char >= $A, Char =< $Z ->
+    true;
+valid_license_ref_char(Char) when Char >= $a, Char =< $z ->
+    true;
+valid_license_ref_char(Char) when Char >= $0, Char =< $9 ->
+    true;
+valid_license_ref_char($-) ->
+    true;
+valid_license_ref_char($.) ->
+    true;
+valid_license_ref_char(_) ->
+    false.

test/hex_licenses_SUITE.erl

@@ -7,12 +7,20 @@
 -include_lib("common_test/include/ct.hrl").
 
 all() ->
-    [license_test, invalid_license_test].
+    [license_test, license_ref_test, invalid_license_test].
 
 license_test(_Config) ->
     true = hex_licenses:valid(<<"MIT">>),
     ok.
 
+license_ref_test(_Config) ->
+    true = hex_licenses:valid(<<"LicenseRef-Journey">>),
+    true = hex_licenses:valid(<<"LicenseRef-acme.1-2">>),
+    false = hex_licenses:valid(<<"LicenseRef-">>),
+    false = hex_licenses:valid(<<"LicenseRef-Journey License">>),
+    false = hex_licenses:valid(<<"LicenseRef-Journey_License">>),
+    ok.
+
 invalid_license_test(_Config) ->
     false = hex_licenses:valid(<<"MICROSOFT">>),
     ok.