diff options
| author | Björn Gustavsson <[email protected]> | 2016-02-25 15:28:25 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2016-02-25 15:53:34 +0100 |
| commit | 117daae14c7779a35659589a842af331fe773d6a (patch) | |
| tree | 3bfad44a47bde966e7dbf3f49d739c049e2b01f9 /lib/compiler/test/compile_SUITE.erl | |
| parent | ca93ccf62e91c55345eb1e67e6ea107ba72e5a1f (diff) | |
| download | otp-117daae14c7779a35659589a842af331fe773d6a.tar.gz otp-117daae14c7779a35659589a842af331fe773d6a.tar.bz2 otp-117daae14c7779a35659589a842af331fe773d6a.zip | |
Eliminate use of test_server:fail/0,1
Diffstat (limited to 'lib/compiler/test/compile_SUITE.erl')
| -rw-r--r-- | lib/compiler/test/compile_SUITE.erl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/compiler/test/compile_SUITE.erl b/lib/compiler/test/compile_SUITE.erl index 548abacc08..f3217b8c39 100644 --- a/lib/compiler/test/compile_SUITE.erl +++ b/lib/compiler/test/compile_SUITE.erl @@ -115,7 +115,7 @@ file_1(Config) when is_list(Config) -> %% There should not be any messages in the messages. receive Any -> - ?t:fail({unexpected,Any}) + ct:fail({unexpected,Any}) after 10 -> ok end, @@ -543,7 +543,7 @@ do_listing(Source, TargetDir, Type, Ext) -> [Source, TargetDir, Type, Ext]), case compile:file(Source, [Type, time, {outdir, TargetDir}]) of {ok, _} -> ok; - Other -> test_server:fail({unexpected_result, Other}) + Other -> ct:fail({unexpected_result, Other}) end, SourceBase = filename:rootname(filename:basename(Source)), @@ -654,7 +654,7 @@ test(Iter, Fun, Result, Filler) -> test(Iter-1, Fun, Result, [0|Filler]); {result, Other} -> io:format("Expected ~p; got ~p~n", [Result, Other]), - test_server:fail() + ct:fail(failed) end. init(ReplyTo, Fun, _Filler) -> |