aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2009-12-13 09:25:52 +0100
committerBjörn Gustavsson <[email protected]>2009-12-14 13:47:53 +0100
commitb9993d7da4ba33387a8b0217c4e7bebd7589c291 (patch)
tree0d9ad473dc825bc4d852793c92517de8224609d0
parentde623fd54ac9aec3d3260fb66698afd3709a2ba6 (diff)
downloadotp-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.erl20
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.