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/record_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/record_SUITE.erl')
| -rw-r--r-- | lib/compiler/test/record_SUITE.erl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/compiler/test/record_SUITE.erl b/lib/compiler/test/record_SUITE.erl index cc2ea5d20a..96b6e26ee2 100644 --- a/lib/compiler/test/record_SUITE.erl +++ b/lib/compiler/test/record_SUITE.erl @@ -117,8 +117,8 @@ update_foo_barf(#foo{}=R, A, _B, C, D, E) -> R#barf{a=A,b=A,c=C,d=D,e=E}. --define(TrueGuard(Expr), if Expr -> ok; true -> ?t:fail() end). --define(FalseGuard(Expr), if Expr -> ?t:fail(); true -> ok end). +-define(TrueGuard(Expr), if Expr -> ok; true -> ct:fail(failed) end). +-define(FalseGuard(Expr), if Expr -> ct:fail(failed); true -> ok end). record_test_2(Config) when is_list(Config) -> ?line true = is_record(#foo{}, foo), @@ -514,7 +514,7 @@ once(Test, Record) -> 1 -> ok; N -> io:format("Evaluated ~w times\n", [N]), - ?t:fail() + ct:fail(more_than_once) end, Result. |