diff options
| author | Björn Gustavsson <[email protected]> | 2009-12-13 09:25:52 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2009-12-14 13:47:53 +0100 |
| commit | b9993d7da4ba33387a8b0217c4e7bebd7589c291 (patch) | |
| tree | 0d9ad473dc825bc4d852793c92517de8224609d0 | |
| parent | de623fd54ac9aec3d3260fb66698afd3709a2ba6 (diff) | |
| download | otp-b9993d7da4ba33387a8b0217c4e7bebd7589c291.tar.gz otp-b9993d7da4ba33387a8b0217c4e7bebd7589c291.tar.bz2 otp-b9993d7da4ba33387a8b0217c4e7bebd7589c291.zip | |
c_SUITE: Use new style guard tests
| -rw-r--r-- | lib/stdlib/test/c_SUITE.erl | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lib/stdlib/test/c_SUITE.erl b/lib/stdlib/test/c_SUITE.erl index a2c8102393..2edbc7ab4c 100644 --- a/lib/stdlib/test/c_SUITE.erl +++ b/lib/stdlib/test/c_SUITE.erl @@ -35,7 +35,7 @@ c_1(doc) -> ["Checks that c:c works also with option 'outdir' [ticket OTP-1209]."]; c_1(suite) -> []; -c_1(Config) when list(Config) -> +c_1(Config) when is_list(Config) -> ?line R = filename:join(?config(data_dir, Config), "m.erl"), ?line W = ?config(priv_dir, Config), ?line Result = c(R,[{outdir,W}]), @@ -45,7 +45,7 @@ c_2(doc) -> ["Checks that c:c works also with option 'outdir' [ticket OTP-1209]."]; c_2(suite) -> []; -c_2(Config) when list(Config) -> +c_2(Config) when is_list(Config) -> ?line R = filename:join(?config(data_dir, Config), "m"), ?line W = ?config(priv_dir, Config), ?line Result = c(R,[{outdir,W}]), @@ -60,7 +60,7 @@ c_3(doc) -> "directory). [ticket OTP-1209]."]; c_3(suite) -> []; -c_3(Config) when list(Config) -> +c_3(Config) when is_list(Config) -> ?line R = filename:join(?config(data_dir, Config), "m.erl"), ?line W = ?config(priv_dir, Config), ?line file:set_cwd(W), @@ -72,7 +72,7 @@ c_4(doc) -> "directory). [ticket OTP-1209]."]; c_4(suite) -> []; -c_4(Config) when list(Config) -> +c_4(Config) when is_list(Config) -> ?line R = filename:join(?config(data_dir, Config), "m"), ?line W = ?config(priv_dir, Config), ?line file:set_cwd(W), @@ -85,7 +85,7 @@ nc_1(doc) -> ["Checks that c:nc works also with option 'outdir'."]; nc_1(suite) -> []; -nc_1(Config) when list(Config) -> +nc_1(Config) when is_list(Config) -> ?line R = filename:join(?config(data_dir, Config), "m.erl"), ?line W = ?config(priv_dir, Config), ?line Result = nc(R,[{outdir,W}]), @@ -95,7 +95,7 @@ nc_2(doc) -> ["Checks that c:nc works also with option 'outdir'."]; nc_2(suite) -> []; -nc_2(Config) when list(Config) -> +nc_2(Config) when is_list(Config) -> ?line R = filename:join(?config(data_dir, Config), "m"), ?line W = ?config(priv_dir, Config), ?line Result = nc(R,[{outdir,W}]), @@ -110,7 +110,7 @@ nc_3(doc) -> "directory)."]; nc_3(suite) -> []; -nc_3(Config) when list(Config) -> +nc_3(Config) when is_list(Config) -> ?line R = filename:join(?config(data_dir, Config), "m.erl"), ?line W = ?config(priv_dir, Config), ?line file:set_cwd(W), @@ -122,7 +122,7 @@ nc_4(doc) -> "directory)."]; nc_4(suite) -> []; -nc_4(Config) when list(Config) -> +nc_4(Config) when is_list(Config) -> ?line R = filename:join(?config(data_dir, Config), "m"), ?line W = ?config(priv_dir, Config), ?line file:set_cwd(W), @@ -133,7 +133,7 @@ memory(doc) -> ["Checks that c:memory/[0,1] returns consistent results."]; memory(suite) -> []; -memory(Config) when list(Config) -> +memory(Config) when is_list(Config) -> try ?line ML = c:memory(), ?line T = mget(total, ML), @@ -163,5 +163,5 @@ mget(K, L) -> ?line test_v(V). % Help function for c_SUITE:memory/1 -test_v(V) when integer(V) -> +test_v(V) when is_integer(V) -> ?line V. |