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/ets_tough_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/ets_tough_SUITE.erl')
| -rw-r--r-- | lib/stdlib/test/ets_tough_SUITE.erl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/stdlib/test/ets_tough_SUITE.erl b/lib/stdlib/test/ets_tough_SUITE.erl index e3d44d00b9..de5d7e55c2 100644 --- a/lib/stdlib/test/ets_tough_SUITE.erl +++ b/lib/stdlib/test/ets_tough_SUITE.erl @@ -40,7 +40,7 @@ fin_per_testcase(_Func, Config) -> ets:delete(?GLOBAL_PARAMS). -ex1(Config) when list(Config) -> +ex1(Config) when is_list(Config) -> ?line ets:new(?GLOBAL_PARAMS,[named_table,public]), ?line ets:insert(?GLOBAL_PARAMS,{a,set}), ?line ets:insert(?GLOBAL_PARAMS,{b,set}), @@ -269,7 +269,7 @@ show_entries(Fd) -> start(DbName) -> case gen_server:start_link(ets_tough_SUITE,{DbName,no_dump_dir},[]) of - {ok,Pid} when pid(Pid) -> + {ok,Pid} when is_pid(Pid) -> {ok, Pid}; Other -> Other @@ -283,7 +283,7 @@ start(DbName) -> start(DbName,DumpDir) -> case gen_server:start_link(ets_tough_SUITE, {DbName,{dump_dir,DumpDir}},[]) of - {ok,Pid} when pid(Pid) -> + {ok,Pid} when is_pid(Pid) -> {ok, Pid}; Other -> Other @@ -1075,7 +1075,7 @@ phys_read_len(Fd) -> phys_read_entry(Fd,Len) -> case io:get_chars(Fd,'',Len) of - L when list(L), length(L) == Len -> + L when is_list(L), length(L) == Len -> {ok,binary_to_term(list_to_binary(L))}; Other -> {error,{read_term,Other}} |