Adding class list method to group. Also added a test to verify every type responds to "list", but it does not pass right now so it is disabled.

git-svn-id: https://reductivelabs.com/svn/puppet/trunk@1652 980ebf18-57e1-0310-9a29-db15c13687c0

2 files changed, 23 insertions, 7 deletions

diff --git a/lib/puppet/type/group.rb b/lib/puppet/type/group.rb
index e2b8dfcb9..5bf82b933 100755
--- a/lib/puppet/type/group.rb
+++ b/lib/puppet/type/group.rb
@@ -170,15 +170,20 @@ module Puppet
             defaultto false
         end
 
-        # List all groups
-        def self.listbyname
-            groups = []
-            while ent = Etc.getgrent
-                groups << ent.name
+        def self.list_by_name
+            users = []
+            defaultprovider.listbyname do |user|
+                users << user
             end
-            Etc.endgrent
+            return users
+        end
+
+        def self.list
+            defaultprovider.list
 
-            return groups
+            self.collect do |user|
+                user
+            end
         end
 
         def retrieve
diff --git a/test/types/type.rb b/test/types/type.rb
index 929fc616e..e327a61a9 100644
--- a/test/types/type.rb
+++ b/test/types/type.rb
@@ -755,6 +755,17 @@ end
 
         assert_equal(tags + [:file], obj.tags)
     end
+
+    def disabled_test_list
+        Puppet::Type.loadall
+
+        Puppet::Type.eachtype do |type|
+            next if type.name == :symlink
+            next if type.name == :component
+            next if type.name == :tidy
+            assert(type.respond_to?(:list), "%s does not respond to list" % type.name)
+        end
+    end
 end
 
 # $Id$