Merge pull request #3659 from stevedomin/process-info-spec-list

Allow list of spec in Process.info/2

Author: josevalim

lib/elixir/lib/process.ex

@@ -369,7 +369,7 @@ defmodule Process do
 
   See [`:erlang.process_info/2`](http://www.erlang.org/doc/man/erlang.html#process_info-2) for more info.
   """
-  @spec info(pid, atom) :: {atom, term} | nil
+  @spec info(pid, atom | [atom]) :: {atom, term} | [{atom, term}]  | nil
   def info(pid, spec)
 
   def info(pid, :registered_name) do
@@ -380,7 +380,7 @@ defmodule Process do
     end
   end
 
-  def info(pid, spec) when is_atom(spec) do
+  def info(pid, spec) when is_atom(spec) or is_list(spec) do
     nillify :erlang.process_info(pid, spec)
   end
 

lib/elixir/test/elixir/process_test.exs

@@ -15,23 +15,33 @@ defmodule ProcessTest do
   end
 
   test "info/2" do
-    pid = spawn fn -> end
+    pid = spawn fn -> :timer.sleep(1000) end
+    assert Process.info(pid, :priority) == {:priority, :normal}
+    assert Process.info(pid, [:priority]) == [priority: :normal]
+
     Process.exit(pid, :kill)
     assert Process.info(pid, :backtrace) == nil
+    assert Process.info(pid, [:backtrace, :status]) == nil
   end
 
   test "info/2 with registered name" do
     pid = spawn fn -> end
     Process.exit(pid, :kill)
     assert Process.info(pid, :registered_name) ==
            nil
+    assert Process.info(pid, [:registered_name]) ==
+           nil
 
     assert Process.info(self, :registered_name) ==
            {:registered_name, []}
+    assert Process.info(self, [:registered_name]) ==
+           [registered_name: []]
 
     Process.register(self, __MODULE__)
     assert Process.info(self, :registered_name) ==
            {:registered_name, __MODULE__}
+    assert Process.info(self, [:registered_name]) ==
+           [registered_name: __MODULE__]
   end
 
   test "exit(pid, :normal) does not cause the target process to exit" do