Fix OTP 24 test warnings (#10817)

Author: ericmj

lib/elixir/test/elixir/kernel/fn_test.exs

@@ -8,23 +8,17 @@ defmodule Kernel.FnTest do
     assert (fn +1 -> true end).(1)
   end
 
+  defp fun_match(x) do
+    fn
+      ^x -> true
+      _ -> false
+    end
+  end
+
   test "pin operator on match" do
-    x = 1
-
-    refute (fn
-              ^x -> true
-              _ -> false
-            end).(0)
-
-    assert (fn
-              ^x -> true
-              _ -> false
-            end).(1)
-
-    refute (fn
-              ^x -> true
-              _ -> false
-            end).(1.0)
+    refute fun_match(1).(0)
+    assert fun_match(1).(1)
+    refute fun_match(1).(1.0)
   end
 
   test "guards with no args" do

lib/ex_unit/test/ex_unit/doc_test_test.exs

@@ -47,17 +47,17 @@ defmodule ExUnit.DocTestTest.GoodModule do
   def single_context, do: :ok
 
   @doc """
-  iex> 1 + (fn() -> "" end).()
-  ** (ArithmeticError) bad argument in arithmetic expression
+  iex> raise "message"
+  ** (RuntimeError) message
 
-  iex> 2 + (fn() -> :a end).()
-  ** (ArithmeticError) bad argument in arithmetic expression
+  iex> raise "message"
+  ** (RuntimeError) message
   """
   def two_exceptions, do: :ok
 
   @doc """
-  iex> 1 + (fn() -> :a end).()
-  ** (ArithmeticError) bad argument in arithmetic expression
+  iex> raise "message"
+  ** (RuntimeError) message
   """
   def exception_test, do: :ok