diff options
| author | Sverker Eriksson <[email protected]> | 2018-03-21 17:51:39 +0100 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2018-03-21 17:53:44 +0100 |
| commit | bf4418b4bb9166a6a27937b53710d2b4d30925af (patch) | |
| tree | f10cd9d49bd78d914d4e5317fb8ab35b22fc0c11 | |
| parent | 5a583d0e58a97038f5fa3bdfa3c35694f0a18f34 (diff) | |
| download | otp-bf4418b4bb9166a6a27937b53710d2b4d30925af.tar.gz otp-bf4418b4bb9166a6a27937b53710d2b4d30925af.tar.bz2 otp-bf4418b4bb9166a6a27937b53710d2b4d30925af.zip | |
kernel: Fix os_SUITE:max_size_command for OTP-19
where string:trim does not exist.
| -rw-r--r-- | lib/kernel/test/os_SUITE.erl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/kernel/test/os_SUITE.erl b/lib/kernel/test/os_SUITE.erl index cfd475becf..d7f0463289 100644 --- a/lib/kernel/test/os_SUITE.erl +++ b/lib/kernel/test/os_SUITE.erl @@ -324,9 +324,17 @@ max_size_command(_Config) -> Res32768 = os:cmd("cat /dev/zero", #{ max_size => 32768 }), 32768 = length(Res32768), - ResHello = string:trim(os:cmd("echo hello", #{ max_size => 20 })), + ResHello = string_trim(os:cmd("echo hello", #{ max_size => 20 })), 5 = length(ResHello). +string_trim(S) -> + lists:reverse(string_trim_left(lists:reverse(string_trim_left(S)))). + +string_trim_left([C | T]) when C =:= $\s; C =:= $\n; C =:= $\t; C =:= $\r -> + string_trim_left(T); +string_trim_left(S) -> + S. + %% Test that the os:perf_counter api works as expected perf_counter_api(_Config) -> |