aboutsummaryrefslogtreecommitdiffstats
path: root/lib/kernel/test/ram_file_SUITE.erl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/kernel/test/ram_file_SUITE.erl')
-rw-r--r--lib/kernel/test/ram_file_SUITE.erl62
1 files changed, 13 insertions, 49 deletions
diff --git a/lib/kernel/test/ram_file_SUITE.erl b/lib/kernel/test/ram_file_SUITE.erl
index 96bd9a02c6..f6d02c67eb 100644
--- a/lib/kernel/test/ram_file_SUITE.erl
+++ b/lib/kernel/test/ram_file_SUITE.erl
@@ -71,10 +71,7 @@ end_per_testcase(_Func, Config) ->
%%--------------------------------------------------------------------------
%% Test suites
-open_modes(suite) ->
- [];
-open_modes(doc) ->
- ["Test that the basic read, write and binary options works for open/2."];
+%% Test that the basic read, write and binary options works for open/2.
open_modes(Config) when is_list(Config) ->
?line Str1 = "The quick brown fox ",
?line Str2 = "jumps over a lazy dog ",
@@ -90,11 +87,8 @@ open_modes(Config) when is_list(Config) ->
%%
ok.
-open_old_modes(suite) ->
- [];
-open_old_modes(doc) ->
- ["Test that the old style read, write and binary options ",
- "works for open/2."];
+%% Test that the old style read, write and binary options
+%% works for open/2.
open_old_modes(Config) when is_list(Config) ->
?line Str1 = "The quick brown fox ",
?line Str2 = "jumps over a lazy dog ",
@@ -155,10 +149,7 @@ open_read(Module, Data, Options) ->
-pread_pwrite(suite) ->
- [];
-pread_pwrite(doc) ->
- ["Test that pread/2,3 and pwrite/2,3 works."];
+%% Test that pread/2,3 and pwrite/2,3 works.
pread_pwrite(Config) when is_list(Config) ->
?line Str = "Flygande bäckaziner söka hwila på mjuqa tuvor x",
?line Bin = list_to_binary(Str),
@@ -194,10 +185,7 @@ pread_pwrite_test(Module, Data, Options) ->
%%
?line ok.
-position(suite) ->
- [];
-position(doc) ->
- ["Test that position/2 works."];
+%% Test that position/2 works.
position(Config) when is_list(Config) ->
?line Str = "Att vara eller icke vara, det är frågan. ",
?line Bin = list_to_binary(Str),
@@ -275,10 +263,7 @@ position_test(Module, Data, Options) ->
-truncate(suite) ->
- [];
-truncate(doc) ->
- ["Test that truncate/1 works."];
+%% Test that truncate/1 works.
truncate(Config) when is_list(Config) ->
?line Str = "Mån ädlare att lida och fördraga "
++ "ett bittert ödes stygn av pilar, ",
@@ -319,10 +304,7 @@ truncate_test(Module, Data, Options) ->
-sync(suite) ->
- [];
-sync(doc) ->
- ["Test that sync/1 at least does not crash."];
+%% Test that sync/1 at least does not crash.
sync(Config) when is_list(Config) ->
?line Str = "än att ta till vapen mot ett hav av kval. ",
?line Bin = list_to_binary(Str),
@@ -352,10 +334,7 @@ sync_test(Module, Data, Options) ->
-get_set_file(suite) ->
- [];
-get_set_file(doc) ->
- ["Tests get_file/1, set_file/2, get_file_close/1 and get_size/1."];
+%% Tests get_file/1, set_file/2, get_file_close/1 and get_size/1.
get_set_file(Config) when is_list(Config) ->
%% These two strings should not be of equal length.
?line Str = "När högan nord blir snöbetäckt, ",
@@ -396,10 +375,7 @@ get_set_file_test(Data, Options, Data2) ->
-compress(suite) ->
- [];
-compress(doc) ->
- ["Test that compress/1 and uncompress/1 works."];
+%% Test that compress/1 and uncompress/1 works.
compress(Config) when is_list(Config) ->
Data = proplists:get_value(data_dir, Config),
?line Real = filename:join(Data, "realmen.html"),
@@ -461,10 +437,7 @@ mk_42(N) ->
B = mk_42(N-1),
[B|B].
-uuencode(suite) ->
- [];
-uuencode(doc) ->
- ["Test that uuencode/1 and uudecode/1 works."];
+%% Test that uuencode/1 and uudecode/1 works.
uuencode(Config) when is_list(Config) ->
Data = proplists:get_value(data_dir, Config),
?line Real = filename:join(Data, "realmen.html"),
@@ -506,10 +479,7 @@ uuencode(Config) when is_list(Config) ->
ok.
-large_file_errors(suite) ->
- [];
-large_file_errors(doc) ->
- ["Test error checking of large file offsets."];
+%% Test error checking of large file offsets.
large_file_errors(Config) when is_list(Config) ->
?line TwoGig = 1 bsl 31,
?line {ok,Fd} = ?RAM_FILE_MODULE:open("1234567890", [read,write]),
@@ -536,10 +506,7 @@ large_file_errors(Config) when is_list(Config) ->
-large_file_light(suite) ->
- [];
-large_file_light(doc) ->
- ["Test light operations on a \"large\" ram_file."];
+%% Test light operations on a \large\ ram_file.
large_file_light(Config) when is_list(Config) ->
PrivDir = proplists:get_value(priv_dir, Config),
%% Marker for next test case that is to heavy to run in a suite.
@@ -569,10 +536,7 @@ large_file_light(Config) when is_list(Config) ->
large_file_heavy() ->
[{timetrap,{minutes,5}}].
-large_file_heavy(suite) ->
- [];
-large_file_heavy(doc) ->
- ["Test operations on a maximum size (2 GByte - 1) ram_file."];
+%% Test operations on a maximum size (2 GByte - 1) ram_file.
large_file_heavy(Config) when is_list(Config) ->
PrivDir = proplists:get_value(priv_dir, Config),
%% Check previous test case marker.