diff options
| author | Björn Gustavsson <[email protected]> | 2013-11-20 12:01:00 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2013-11-22 15:17:07 +0100 |
| commit | bfb832589ea4d5c60db202459beab102768341ff (patch) | |
| tree | 6b1e7a97bd40d8da25582fec75cadb361106b37c | |
| parent | 90c8450bb691a7b57ce326fddd1f44ef01db390f (diff) | |
| download | otp-bfb832589ea4d5c60db202459beab102768341ff.tar.gz otp-bfb832589ea4d5c60db202459beab102768341ff.tar.bz2 otp-bfb832589ea4d5c60db202459beab102768341ff.zip | |
Rename otp_8949_a/0 which common_test interprets as an info function
Before running a test case named testcase/1, common_test will call
testcase/0 (the info function). Exceptions and illegal return values
would be silently ignored. In a planned update to common_test, errors
will instead cause the test case to fail.
The test case otp_8949_a/1 has a helper function called otp_8949_a/0.
Rename it to do_otp_8949_a/0.
While at it, also fix a copy and paste bug in the list of test cases.
otp_8949_a was run twice; otp_8949_b was never run.
| -rw-r--r-- | lib/compiler/test/compilation_SUITE.erl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/compiler/test/compilation_SUITE.erl b/lib/compiler/test/compilation_SUITE.erl index 8e7b7292cc..d517029b1b 100644 --- a/lib/compiler/test/compilation_SUITE.erl +++ b/lib/compiler/test/compilation_SUITE.erl @@ -50,7 +50,7 @@ groups() -> trycatch_4,opt_crash,otp_5404,otp_5436,otp_5481, otp_5553,otp_5632,otp_5714,otp_5872,otp_6121, otp_6121a,otp_6121b,otp_7202,otp_7345,on_load, - string_table,otp_8949_a,otp_8949_a,split_cases, + string_table,otp_8949_a,otp_8949_b,split_cases, beam_utils_liveopt]}]. init_per_suite(Config) -> @@ -630,13 +630,13 @@ string_table(Config) when is_list(Config) -> ok. otp_8949_a(Config) when is_list(Config) -> - value = otp_8949_a(), + value = do_otp_8949_a(), ok. -record(cs, {exs,keys = [],flags = 1}). -record(exs, {children = []}). -otp_8949_a() -> +do_otp_8949_a() -> case id([#cs{}]) of [#cs{}=Cs] -> SomeVar = id(value), |