From c7f54483cb9e6e20baabdea365efbeda7569c62b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Tue, 29 Jan 2013 13:05:34 +0100
Subject: Test calling deprecated or removed functions

---
 lib/stdlib/test/erl_lint_SUITE.erl | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'lib/stdlib/test/erl_lint_SUITE.erl')

diff --git a/lib/stdlib/test/erl_lint_SUITE.erl b/lib/stdlib/test/erl_lint_SUITE.erl
index c8725411ee..36229b6989 100644
--- a/lib/stdlib/test/erl_lint_SUITE.erl
+++ b/lib/stdlib/test/erl_lint_SUITE.erl
@@ -1909,9 +1909,23 @@ otp_5362(Config) when is_list(Config) ->
              warn_deprecated_function,
              warn_bif_clash]},
            {errors,
-            [{2,erl_lint,disallowed_nowarn_bif_clash}],[]}}
+            [{2,erl_lint,disallowed_nowarn_bif_clash}],[]}},
 
-          ],
+	  {call_deprecated_function,
+	   <<"t(X) -> erlang:hash(X, 2000).">>,
+	   [],
+	   {warnings,
+            [{1,erl_lint,{deprecated,{erlang,hash,2},
+			  {erlang,phash2,2},"in a future release"}}]}},
+
+	  {call_removed_function,
+	   <<"t(X) -> regexp:match(X).">>,
+	   [],
+	   {warnings,
+            [{1,erl_lint,{removed,{regexp,match,1},
+			  "removed in R15; use the re module instead"}}]}}
+
+	 ],
 
     ?line [] = run(Config, Ts),
     ok.
-- 
cgit v1.2.3