diff options
| author | Henrik Nord <[email protected]> | 2011-09-01 15:00:19 +0200 |
|---|---|---|
| committer | Henrik Nord <[email protected]> | 2011-09-01 15:00:19 +0200 |
| commit | 7ca2941ca0ab85d904de658cf495318dcfbda760 (patch) | |
| tree | 8d6abc1263f8ce56d9baf17755b2523dac77a160 /lib/wx | |
| parent | e813241e103aa74d4daf025564b259f3fb9aca5a (diff) | |
| parent | bf2d853857bb0e3a7fd5a2660b22b6e743f91f1c (diff) | |
| download | otp-7ca2941ca0ab85d904de658cf495318dcfbda760.tar.gz otp-7ca2941ca0ab85d904de658cf495318dcfbda760.tar.bz2 otp-7ca2941ca0ab85d904de658cf495318dcfbda760.zip | |
Merge branch 'dev' into major
Diffstat (limited to 'lib/wx')
| -rw-r--r-- | lib/wx/test/wxt.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/wx/test/wxt.erl b/lib/wx/test/wxt.erl index 1f5b1cc3b1..2f52c58f26 100644 --- a/lib/wx/test/wxt.erl +++ b/lib/wx/test/wxt.erl @@ -72,7 +72,7 @@ resolve({Suite0, Case}) when is_atom(Suite0), is_atom(Case) -> {Suite, Case2} -> {Suite, Case2} end; -resolve(List) when list(List) -> +resolve(List) when is_list(List) -> [resolve(Case) || Case <- List]. alias(Suite) when is_atom(Suite) -> @@ -104,7 +104,7 @@ read_config() -> end. %% Write new default config file -write_config(Config) when list(Config) -> +write_config(Config) when is_list(Config) -> Fname = config_fname(), {ok, Fd} = file:open(Fname, write), write_list(Fd, Config), |