diff options
| author | Björn Gustavsson <[email protected]> | 2010-01-23 12:41:02 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2010-01-29 17:43:38 +0100 |
| commit | ac3d53f83f83c95d35ed25c58fd55c7aeb834c62 (patch) | |
| tree | 253e57883af480219b88675bfa1879818af5d80f /lib/stdlib/test/select_SUITE.erl | |
| parent | b8b3a8c7d7d01cc4126dc4961c4f5de6afc1b066 (diff) | |
| download | otp-ac3d53f83f83c95d35ed25c58fd55c7aeb834c62.tar.gz otp-ac3d53f83f83c95d35ed25c58fd55c7aeb834c62.tar.bz2 otp-ac3d53f83f83c95d35ed25c58fd55c7aeb834c62.zip | |
stdlib tests: modernize guard tests
Don't change any guard tests in the id_transform_SUITE
module, because it intentionally use the old guard tests
to test that id_transform can handle them.
Diffstat (limited to 'lib/stdlib/test/select_SUITE.erl')
| -rw-r--r-- | lib/stdlib/test/select_SUITE.erl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/stdlib/test/select_SUITE.erl b/lib/stdlib/test/select_SUITE.erl index 54664fbb00..af7ff8d84c 100644 --- a/lib/stdlib/test/select_SUITE.erl +++ b/lib/stdlib/test/select_SUITE.erl @@ -79,14 +79,14 @@ select_test(suite) -> []; select_test(doc) -> ["Tests select in numerous ways"]; -select_test(Config) when list(Config) -> +select_test(Config) when is_list(Config) -> do_test(Config). return_values(suite) -> []; return_values(doc) -> ["Tests return values in specific situations for select/3 and select/1"]; -return_values(Config) when list(Config) -> +return_values(Config) when is_list(Config) -> do_return_values(). -endif. @@ -279,7 +279,7 @@ cmp_ms_to_fun({Mod,Tab}, MS, Fun1, Fun2, ChunkSize) -> MSRes = lists:sort(chunked_select(Mod,Tab,MS,ChunkSize)), FunRes0 = table_foldl(Fun1,[],{Mod,Tab}), FunRes = case Fun2 of - F when function(F) -> + F when is_function(F) -> FunRes1 = table_foldl(F,[],{Mod,Tab}), lists:merge(FunRes0,FunRes1); [] -> |