From 7e78c133c7a373384411d9fd0e1366b14e4c31d8 Mon Sep 17 00:00:00 2001
From: Fred Hebert <mononcqc@ferd.ca>
Date: Wed, 1 Nov 2017 15:40:09 -0400
Subject: Support OTP-20 Unicode functions

Use either optional compilation or version-safe variants of the string
functions. Prevents warnings when the switch to OTP-21 will happen.
---
 test/rlx_depsolver_tester.erl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'test')

diff --git a/test/rlx_depsolver_tester.erl b/test/rlx_depsolver_tester.erl
index 9b55603..9defd91 100644
--- a/test/rlx_depsolver_tester.erl
+++ b/test/rlx_depsolver_tester.erl
@@ -406,7 +406,7 @@ process_line(Device, "\n", Acc) ->
     process_line(Device, io:get_line(Device, ""),
                  Acc);
 process_line(Device, [$\s | Rest], [{Pkg, Vsn, Deps} | Acc]) ->
-    [DepPackage, Type,  DepVsn] = string:tokens(Rest, " \n"),
+    [DepPackage, Type,  DepVsn] = rlx_string:lexemes(Rest, " \n"),
     Dep =
         case Type of
             "=" ->
@@ -417,7 +417,7 @@ process_line(Device, [$\s | Rest], [{Pkg, Vsn, Deps} | Acc]) ->
     process_line(Device, io:get_line(Device, ""),
                  [{Pkg, Vsn, [Dep | Deps]} | Acc]);
 process_line(Device, Pkg, Acc) ->
-    [Package, Vsn] = string:tokens(Pkg, " \n"),
+    [Package, Vsn] = rlx_string:lexemes(Pkg, " \n"),
     process_line(Device, io:get_line(Device, ""),
                  [{Package, Vsn, []} | Acc]).
 
@@ -427,7 +427,7 @@ process_packages(Pkgs) ->
                 end, rlx_depsolver:new_graph(), Pkgs).
 
 get_constraints(ConLine) ->
-    AppVsns = string:tokens(ConLine, " \n"),
+    AppVsns = rlx_string:lexemes(ConLine, " \n"),
     lists:map(fun(AppCon) ->
                       parse_app(AppCon, [])
               end, AppVsns).
-- 
cgit v1.2.3