morpheus-cli 9.0.2 → 9.1.0

data/lib/morpheus/cli/option_types.rb

@@ -1501,13 +1501,48 @@ module Morpheus
       end
 
       def self.sort_option_types(option_types)
-        if option_types.find {|it| it['fieldGroup'] || it['displayOrder'] }
+        sorted = if option_types.find {|it| it['fieldGroup'] || it['displayOrder'] }
           option_types.select {|it| (it['fieldGroup'] || 'default').casecmp?('default')}.sort {|a,b| a['displayOrder'].to_i <=> b['displayOrder'].to_i} +
           option_types.reject {|it| ['default', 'advanced'].include?((it['fieldGroup'] || 'default').downcase)}.sort{|a,b| a['displayOrder'] <=> b['displayOrder']}.group_by{|it| it['fieldGroup']}.values.collect { |it| it.sort{|a,b| a['displayOrder'].to_i <=> b['displayOrder'].to_i}}.flatten +
           option_types.select {|it| 'advanced'.casecmp?(it['fieldGroup'])}.sort {|a,b| a['displayOrder'].to_i <=> b['displayOrder'].to_i}
         else
           option_types
         end
+        reorder_option_type_dependencies(sorted)
+      end
+
+      # displayOrder alone can put a field ahead of another field it depends on
+      # via dependsOnCode/visibleOnCode (eg. a hidden, optionSource-populated field
+      # with a high displayOrder that a lower displayOrder field is gated on). Move
+      # any depended-upon option type ahead of the option type(s) that depend on it,
+      # preserving displayOrder order otherwise.
+      def self.reorder_option_type_dependencies(option_types)
+        field_key_for = lambda {|it| it['fieldContext'].to_s.empty? ? it['fieldName'].to_s : "#{it['fieldContext']}.#{it['fieldName']}" }
+        depends_on_codes_for = lambda {|option_type|
+          depends_value = option_type['visibleOnCode'].to_s.empty? ? option_type['dependsOnCode'] : option_type['visibleOnCode']
+          next [] if depends_value.to_s.empty? || depends_value == 'networkInterfaces'
+          depends_value = depends_value[(depends_value.index('::') + 2)..-1] if depends_value.include?('::')
+          depends_value.to_s.sub(',', ' ').split(' ').collect {|value| value.split(':')[0] }
+        }
+        result = option_types.dup
+        passes = 0
+        changed = true
+        while changed && passes < result.size
+          changed = false
+          passes += 1
+          result.each_with_index do |option_type, i|
+            depends_on_codes_for.call(option_type).each do |depends_on_code|
+              dep_index = result.index {|it| it['code'] == depends_on_code || field_key_for.call(it) == depends_on_code }
+              if dep_index && dep_index > i
+                result.insert(i, result.delete_at(dep_index))
+                changed = true
+                break
+              end
+            end
+            break if changed
+          end
+        end
+        result
       end
 
       def self.display_select_options(opt, select_options = [], paging = nil)

data/lib/morpheus/cli/version.rb

@@ -1,6 +1,6 @@
 
 module Morpheus
   module Cli
-    VERSION = "9.0.2"
+    VERSION = "9.1.0"
   end
 end

data/test/api/affinity_groups_interface_test.rb

@@ -0,0 +1,43 @@
+require 'test/unit'
+$LOAD_PATH.unshift(File.expand_path('../../lib', __dir__))
+require 'morpheus/api/affinity_groups_interface'
+
+class AffinityGroupsInterfaceTest < Test::Unit::TestCase
+
+  def setup
+    @affinity_groups_interface = Morpheus::AffinityGroupsInterface.new(access_token: 'token', url: 'https://example.test', verify_ssl: false)
+  end
+
+  def test_get_builds_bearer_authorization_header
+    request = @affinity_groups_interface.dry.get(123, details: true)
+    assert_equal :get, request[:method]
+    assert_equal 'https://example.test/api/affinity-groups/123', request[:url]
+    assert_equal({details: true}, request[:headers][:params])
+    assert_equal 'Bearer token', request[:headers][:authorization]
+  end
+
+  def test_update_builds_bearer_authorization_header
+    request = @affinity_groups_interface.dry.update(123, {name: 'rule-a'})
+    assert_equal :put, request[:method]
+    assert_equal 'https://example.test/api/affinity-groups/123', request[:url]
+    assert_equal({name: 'rule-a'}.to_json, request[:payload])
+    assert_equal 'Bearer token', request[:headers][:authorization]
+  end
+
+  def test_destroy_builds_bearer_authorization_header
+    request = @affinity_groups_interface.dry.destroy(123, force: true)
+    assert_equal :delete, request[:method]
+    assert_equal 'https://example.test/api/affinity-groups/123', request[:url]
+    assert_equal({force: true}, request[:headers][:params])
+    assert_equal 'Bearer token', request[:headers][:authorization]
+  end
+
+  def test_violations_builds_bearer_authorization_header
+    request = @affinity_groups_interface.dry.violations(scope: 'cloud')
+    assert_equal :get, request[:method]
+    assert_equal 'https://example.test/api/affinity-groups/violations', request[:url]
+    assert_equal({scope: 'cloud'}, request[:headers][:params])
+    assert_equal 'Bearer token', request[:headers][:authorization]
+  end
+
+end

data/test/api/clouds_interface_test.rb

@@ -0,0 +1,67 @@
+require 'test/unit'
+$LOAD_PATH.unshift(File.expand_path('../../lib', __dir__))
+require 'morpheus/api/clouds_interface'
+
+class CloudsInterfaceTest < Test::Unit::TestCase
+
+  def setup
+    @clouds_interface = Morpheus::CloudsInterface.new(access_token: 'token', url: 'https://example.test', verify_ssl: false)
+  end
+
+  def test_affinity_group_form_options_builds_bearer_authorization_header
+    request = @clouds_interface.dry.affinity_group_form_options(59, phase: 'create')
+    assert_equal :get, request[:method]
+    assert_equal 'https://example.test/api/zones/59/affinity-groups/form-options', request[:url]
+    assert_equal({phase: 'create'}, request[:headers][:params])
+    assert_equal 'Bearer token', request[:headers][:authorization]
+  end
+
+  def test_list_host_vm_groups_builds_bearer_authorization_header
+    request = @clouds_interface.dry.list_host_vm_groups(59, phrase: 'group')
+    assert_equal :get, request[:method]
+    assert_equal 'https://example.test/api/zones/59/host-vm-groups', request[:url]
+    assert_equal({phrase: 'group'}, request[:headers][:params])
+    assert_equal 'Bearer token', request[:headers][:authorization]
+  end
+
+  def test_get_host_vm_group_builds_bearer_authorization_header
+    request = @clouds_interface.dry.get_host_vm_group(59, 415, details: true)
+    assert_equal :get, request[:method]
+    assert_equal 'https://example.test/api/zones/59/host-vm-groups/415', request[:url]
+    assert_equal({details: true}, request[:headers][:params])
+    assert_equal 'Bearer token', request[:headers][:authorization]
+  end
+
+  def test_create_host_vm_group_builds_bearer_authorization_header
+    request = @clouds_interface.dry.create_host_vm_group(59, {name: 'group-a'})
+    assert_equal :post, request[:method]
+    assert_equal 'https://example.test/api/zones/59/host-vm-groups', request[:url]
+    assert_equal({name: 'group-a'}.to_json, request[:payload])
+    assert_equal 'Bearer token', request[:headers][:authorization]
+  end
+
+  def test_update_host_vm_group_builds_bearer_authorization_header
+    request = @clouds_interface.dry.update_host_vm_group(59, 415, {name: 'group-b'})
+    assert_equal :put, request[:method]
+    assert_equal 'https://example.test/api/zones/59/host-vm-groups/415', request[:url]
+    assert_equal({name: 'group-b'}.to_json, request[:payload])
+    assert_equal 'Bearer token', request[:headers][:authorization]
+  end
+
+  def test_destroy_host_vm_group_builds_bearer_authorization_header
+    request = @clouds_interface.dry.destroy_host_vm_group(59, 415, force: true)
+    assert_equal :delete, request[:method]
+    assert_equal 'https://example.test/api/zones/59/host-vm-groups/415', request[:url]
+    assert_equal({force: true}, request[:headers][:params])
+    assert_equal 'Bearer token', request[:headers][:authorization]
+  end
+
+  def test_host_vm_group_form_options_builds_bearer_authorization_header
+    request = @clouds_interface.dry.host_vm_group_form_options(59, scope: 'qa')
+    assert_equal :get, request[:method]
+    assert_equal 'https://example.test/api/zones/59/host-vm-groups/form-options', request[:url]
+    assert_equal({scope: 'qa'}, request[:headers][:params])
+    assert_equal 'Bearer token', request[:headers][:authorization]
+  end
+
+end

data/test/api/host_vm_groups_interface_test.rb

@@ -0,0 +1,35 @@
+require 'test/unit'
+$LOAD_PATH.unshift(File.expand_path('../../lib', __dir__))
+require 'morpheus/api/host_vm_groups_interface'
+
+class HostVmGroupsInterfaceTest < Test::Unit::TestCase
+
+  def setup
+    @host_vm_groups_interface = Morpheus::HostVmGroupsInterface.new(access_token: 'token', url: 'https://example.test', verify_ssl: false)
+  end
+
+  def test_get_builds_bearer_authorization_header
+    request = @host_vm_groups_interface.dry.get(415, details: true)
+    assert_equal :get, request[:method]
+    assert_equal 'https://example.test/api/host-vm-groups/415', request[:url]
+    assert_equal({details: true}, request[:headers][:params])
+    assert_equal 'Bearer token', request[:headers][:authorization]
+  end
+
+  def test_update_builds_bearer_authorization_header
+    request = @host_vm_groups_interface.dry.update(415, {name: 'group-a'})
+    assert_equal :put, request[:method]
+    assert_equal 'https://example.test/api/host-vm-groups/415', request[:url]
+    assert_equal({name: 'group-a'}.to_json, request[:payload])
+    assert_equal 'Bearer token', request[:headers][:authorization]
+  end
+
+  def test_destroy_builds_bearer_authorization_header
+    request = @host_vm_groups_interface.dry.destroy(415, force: true)
+    assert_equal :delete, request[:method]
+    assert_equal 'https://example.test/api/host-vm-groups/415', request[:url]
+    assert_equal({force: true}, request[:headers][:params])
+    assert_equal 'Bearer token', request[:headers][:authorization]
+  end
+
+end

data/test/cli/affinity_groups_cloud_cluster_scope_test.rb

@@ -0,0 +1,270 @@
+require 'test/unit'
+require 'stringio'
+require 'json'
+require 'morpheus'
+
+# Command-level offline exercise of the MORPH-17279 --cloud + --cluster
+# (vSphere cluster) scope for AffinityGroupsCommand and HostVmGroupsCommand
+# list/add. Runs the real command methods end-to-end (option parsing, scope
+# resolution, --dry-run request construction) against fake interfaces, so no
+# live appliance or credentials are required.
+#
+# This complements infrastructure_helper_cluster_resolver_test.rb (which
+# unit-tests the resolver in isolation) by proving the resolved pool actually
+# flows into list (poolId query param) and add (pool.id in the create
+# payload), exactly as it would against a real appliance.
+class AffinityGroupsCloudClusterScopeTest < Test::Unit::TestCase
+
+  # Fake for Morpheus::CloudsInterface -- records every call, answers cloud
+  # name/id lookups, and answers .dry.* calls with a print_dry_run-compatible
+  # request hash (mirrors how Morpheus::APIClient#dry / #execute behave).
+  class FakeCloudsInterface
+    attr_reader :calls
+
+    def initialize(cloud:)
+      @cloud = cloud
+      @calls = []
+      @dry = false
+    end
+
+    def setopts(options); self; end
+    def dry; @dry = true; self; end
+
+    def get(id, params = {})
+      @calls << [:get, id, params]
+      {'zone' => @cloud}
+    end
+
+    def list(params = {})
+      @calls << [:list, params]
+      {'zones' => [@cloud]}
+    end
+
+    def list_affinity_groups(id, params = {})
+      @calls << [:list_affinity_groups, id, params]
+      respond({'affinityGroups' => []}) { {method: :get, url: "/api/zones/#{id}/affinity-groups", params: params} }
+    end
+
+    def create_affinity_group(id, payload)
+      @calls << [:create_affinity_group, id, payload]
+      respond({'affinityGroup' => {'id' => 1}}) { {method: :post, url: "/api/zones/#{id}/affinity-groups", payload: payload.to_json} }
+    end
+
+    def affinity_group_form_options(id, params = {})
+      @calls << [:affinity_group_form_options, id, params]
+      {'supportsCombinedRules' => true, 'availableVmGroups' => [], 'availableHostGroups' => []}
+    end
+
+    def list_host_vm_groups(id, params = {})
+      @calls << [:list_host_vm_groups, id, params]
+      respond({'hostVmGroups' => []}) { {method: :get, url: "/api/zones/#{id}/host-vm-groups", params: params} }
+    end
+
+    def create_host_vm_group(id, payload)
+      @calls << [:create_host_vm_group, id, payload]
+      respond({'hostVmGroup' => {'id' => 1}}) { {method: :post, url: "/api/zones/#{id}/host-vm-groups", payload: payload.to_json} }
+    end
+
+    def host_vm_group_form_options(id, params = {})
+      @calls << [:host_vm_group_form_options, id, params]
+      {'availableServers' => []}
+    end
+
+    private
+
+    def respond(real_result)
+      @dry ? yield : real_result
+    end
+  end
+
+  # Fake for Morpheus::CloudResourcePoolsInterface -- used by
+  # find_resource_pool_cluster_by_name_or_id.
+  class FakeResourcePoolsInterface
+    attr_reader :calls
+
+    def initialize(pool:)
+      @pool = pool
+      @calls = []
+    end
+
+    def get(cloud_id, id, params = {})
+      @calls << [:get, cloud_id, id, params]
+      {'resourcePool' => @pool}
+    end
+
+    def list(cloud_id, params = {})
+      @calls << [:list, cloud_id, params]
+      {'resourcePools' => [@pool]}
+    end
+
+    def list_without_cloud(params = {})
+      @calls << [:list_without_cloud, params]
+      {'resourcePools' => [@pool]}
+    end
+  end
+
+  class FakeClustersInterface
+    attr_reader :calls
+
+    def initialize(clusters: [])
+      @clusters = clusters
+      @calls = []
+      @dry = false
+    end
+
+    def setopts(options); self; end
+    def dry; @dry = true; self; end
+
+    def get(id, params = {})
+      @calls << [:get, id, params]
+      {'cluster' => @clusters.find {|cluster| cluster['id'].to_i == id.to_i}}
+    end
+
+    def list(params = {})
+      @calls << [:list, params]
+      {'clusters' => @clusters.select {|cluster| cluster['name'] == params[:name]}}
+    end
+
+    def list_affinity_groups(id, params = {})
+      @calls << [:list_affinity_groups, id, params]
+      respond({'affinityGroups' => []}) { {method: :get, url: "/api/clusters/#{id}/affinity-groups", params: params} }
+    end
+
+    def list_host_vm_groups(id, params = {})
+      @calls << [:list_host_vm_groups, id, params]
+      respond({'hostVmGroups' => []}) { {method: :get, url: "/api/clusters/#{id}/host-vm-groups", params: params} }
+    end
+
+    private
+
+    def respond(real_result)
+      @dry ? yield : real_result
+    end
+  end
+
+  def cloud
+    {'id' => 59, 'name' => 'vCenter Cloud'}
+  end
+
+  def pool
+    {'id' => 501, 'name' => 'QA', 'type' => 'Cluster', 'zone' => {'id' => 59, 'name' => 'vCenter Cloud'}}
+  end
+
+  def build_affinity_command(managed_clusters: [])
+    cmd = Morpheus::Cli::AffinityGroupsCommand.new
+    fake_clouds = FakeCloudsInterface.new(cloud: cloud)
+    fake_pools = FakeResourcePoolsInterface.new(pool: pool)
+    fake_clusters = FakeClustersInterface.new(clusters: managed_clusters)
+    cmd.define_singleton_method(:connect) do |opts|
+      instance_variable_set(:@affinity_groups_interface, nil)
+      instance_variable_set(:@clouds_interface, fake_clouds)
+      instance_variable_set(:@clusters_interface, fake_clusters)
+      instance_variable_set(:@cloud_resource_pools_interface, fake_pools)
+    end
+    [cmd, fake_clouds, fake_pools, fake_clusters]
+  end
+
+  def build_host_vm_command(managed_clusters: [])
+    cmd = Morpheus::Cli::HostVmGroupsCommand.new
+    fake_clouds = FakeCloudsInterface.new(cloud: cloud)
+    fake_pools = FakeResourcePoolsInterface.new(pool: pool)
+    fake_clusters = FakeClustersInterface.new(clusters: managed_clusters)
+    cmd.define_singleton_method(:connect) do |opts|
+      instance_variable_set(:@host_vm_groups_interface, nil)
+      instance_variable_set(:@clouds_interface, fake_clouds)
+      instance_variable_set(:@clusters_interface, fake_clusters)
+      instance_variable_set(:@cloud_resource_pools_interface, fake_pools)
+    end
+    [cmd, fake_clouds, fake_pools, fake_clusters]
+  end
+
+  def capture_stdout
+    terminal = Morpheus::Terminal.instance
+    original = terminal.stdout
+    buffer = StringIO.new
+    terminal.set_stdout(buffer)
+    yield
+    buffer.string
+  ensure
+    terminal.set_stdout(original)
+  end
+
+  ## AffinityGroupsCommand
+
+  def test_affinity_groups_list_cloud_cluster_combo_sends_pool_id
+    cmd, _fake_clouds, fake_pools, _fake_clusters = build_affinity_command
+    output = capture_stdout { cmd.list(['--cloud', 'vCenter Cloud', '--cluster', 'QA', '--dry-run']) }
+    assert_match(/poolId=501/, output, "dry-run request must carry the resolved poolId, got: #{output}")
+    assert_match(%r{/api/zones/59/affinity-groups}, output)
+    # Name resolution stayed scoped to the cloud and to type=Cluster.
+    assert_equal [[:list, 59, {name: 'QA', type: 'Cluster'}]], fake_pools.calls
+  end
+
+  def test_affinity_groups_add_cloud_cluster_combo_sets_pool_id_payload
+    cmd, fake_clouds, _fake_pools, _fake_clusters = build_affinity_command
+    payload_json = '{"affinityGroup":{"name":"cli-test","affinityType":"KEEP_TOGETHER","servers":[{"id":1}]}}'
+    output = capture_stdout do
+      cmd.add(['--cloud', 'vCenter Cloud', '--cluster', 'QA', '--payload-json', payload_json, '--dry-run'])
+    end
+    assert_match(%r{/api/zones/59/affinity-groups}, output, "must POST to the zone endpoint, not a cluster endpoint")
+    create_call = fake_clouds.calls.find {|c| c[0] == :create_affinity_group }
+    assert_not_nil create_call, "create_affinity_group must be called on the clouds interface"
+    payload = create_call[2].is_a?(String) ? JSON.parse(create_call[2]) : create_call[2]
+    assert_equal({'id' => 501}, payload['affinityGroup']['pool'])
+    assert_nil payload['affinityGroup']['cloudId']
+    assert_nil payload['affinityGroup']['clusterId']
+  end
+
+  def test_affinity_groups_list_cluster_name_falls_back_to_unique_vsphere_cluster
+    cmd, _fake_clouds, fake_pools, fake_clusters = build_affinity_command
+    output = capture_stdout { cmd.list(['--cluster', 'QA', '--dry-run']) }
+    assert_match(%r{/api/zones/59/affinity-groups}, output)
+    assert_match(/poolId=501/, output)
+    assert_equal [[:list, {name: 'QA'}]], fake_clusters.calls
+    assert_equal [[:list_without_cloud, {name: 'QA', type: 'Cluster', max: 1000}]], fake_pools.calls
+  end
+
+  def test_affinity_groups_list_cluster_name_preserves_managed_cluster_precedence
+    managed_cluster = {'id' => 8, 'name' => 'QA'}
+    cmd, _fake_clouds, fake_pools, fake_clusters = build_affinity_command(managed_clusters: [managed_cluster])
+    output = capture_stdout { cmd.list(['--cluster', 'QA', '--dry-run']) }
+    assert_match(%r{/api/clusters/8/affinity-groups}, output)
+    assert_equal [[:list, {name: 'QA'}], [:list_affinity_groups, 8, {}]], fake_clusters.calls
+    assert_empty fake_pools.calls
+  end
+
+  ## HostVmGroupsCommand
+
+  def test_host_vm_groups_list_cloud_cluster_combo_sends_pool_id
+    cmd, _fake_clouds, fake_pools, _fake_clusters = build_host_vm_command
+    output = capture_stdout { cmd.list(['--cloud', 'vCenter Cloud', '--cluster', 'QA', '--dry-run']) }
+    assert_match(/poolId=501/, output, "dry-run request must carry the resolved poolId, got: #{output}")
+    assert_match(%r{/api/zones/59/host-vm-groups}, output)
+    assert_equal [[:list, 59, {name: 'QA', type: 'Cluster'}]], fake_pools.calls
+  end
+
+  def test_host_vm_groups_add_cloud_cluster_combo_sets_pool_id_payload
+    cmd, fake_clouds, _fake_pools, _fake_clusters = build_host_vm_command
+    payload_json = '{"hostVmGroup":{"name":"cli-test","type":"HOST_GROUP","servers":[{"id":1}]}}'
+    output = capture_stdout do
+      cmd.add(['--cloud', 'vCenter Cloud', '--cluster', 'QA', '--payload-json', payload_json, '--dry-run'])
+    end
+    assert_match(%r{/api/zones/59/host-vm-groups}, output, "must POST to the zone endpoint, not a cluster endpoint")
+    create_call = fake_clouds.calls.find {|c| c[0] == :create_host_vm_group }
+    assert_not_nil create_call, "create_host_vm_group must be called on the clouds interface"
+    payload = create_call[2].is_a?(String) ? JSON.parse(create_call[2]) : create_call[2]
+    assert_equal({'id' => 501}, payload['hostVmGroup']['pool'])
+    assert_nil payload['hostVmGroup']['cloudId']
+    assert_nil payload['hostVmGroup']['clusterId']
+  end
+
+  def test_host_vm_groups_list_cluster_name_falls_back_to_unique_vsphere_cluster
+    cmd, _fake_clouds, fake_pools, fake_clusters = build_host_vm_command
+    output = capture_stdout { cmd.list(['--cluster', 'QA', '--dry-run']) }
+    assert_match(%r{/api/zones/59/host-vm-groups}, output)
+    assert_match(/poolId=501/, output)
+    assert_equal [[:list, {name: 'QA'}]], fake_clusters.calls
+    assert_equal [[:list_without_cloud, {name: 'QA', type: 'Cluster', max: 1000}]], fake_pools.calls
+  end
+
+end

data/test/cli/affinity_groups_cluster_scope_test.rb

@@ -0,0 +1,171 @@
+require 'test/unit'
+require 'stringio'
+require 'morpheus'
+
+class AffinityGroupsClusterScopeTest < Test::Unit::TestCase
+  class FakeCloudsInterface
+    attr_reader :calls
+
+    def initialize(cloud)
+      @cloud = cloud
+      @calls = []
+      @dry = false
+    end
+
+    def setopts(_options)
+      self
+    end
+
+    def dry
+      @dry = true
+      self
+    end
+
+    def get(id, params = {})
+      @calls << [:get, id, params]
+      {'zone' => @cloud}
+    end
+
+    def list(params = {})
+      @calls << [:list, params]
+      {'zones' => [@cloud]}
+    end
+
+    def list_affinity_groups(id, params = {})
+      @calls << [:list_affinity_groups, id, params]
+      return {'affinityGroups' => []} unless @dry
+
+      {method: :get, url: "/api/zones/#{id}/affinity-groups", params: params}
+    end
+  end
+
+  class FakeResourcePoolsInterface
+    attr_reader :calls
+
+    def initialize(pool)
+      @pool = pool
+      @calls = []
+    end
+
+    def get(cloud_id, id, params = {})
+      @calls << [:get, cloud_id, id, params]
+      {'resourcePool' => @pool}
+    end
+
+    def list(cloud_id, params = {})
+      @calls << [:list, cloud_id, params]
+      {'resourcePools' => [@pool]}
+    end
+
+    def list_without_cloud(params = {})
+      @calls << [:list_without_cloud, params]
+      {'resourcePools' => [@pool]}
+    end
+  end
+
+  class FakeClustersInterface
+    attr_reader :calls
+
+    def initialize(clusters = [])
+      @clusters = clusters
+      @calls = []
+      @dry = false
+    end
+
+    def setopts(_options)
+      self
+    end
+
+    def dry
+      @dry = true
+      self
+    end
+
+    def list(params = {})
+      @calls << [:list, params]
+      {'clusters' => @clusters.select {|cluster| cluster['name'] == params[:name]}}
+    end
+
+    def list_affinity_groups(id, params = {})
+      @calls << [:list_affinity_groups, id, params]
+      return {'affinityGroups' => []} unless @dry
+
+      {method: :get, url: "/api/clusters/#{id}/affinity-groups", params: params}
+    end
+  end
+
+  def setup
+    @cloud = {'id' => 59, 'name' => 'vCenter Cloud'}
+    @pool = {
+      'id' => 501,
+      'name' => 'QA',
+      'type' => 'Cluster',
+      'zone' => @cloud
+    }
+  end
+
+  def test_cloud_qualified_cluster_sends_pool_id
+    command, pools, = build_command
+
+    output = capture_stdout do
+      command.list(['--cloud', 'vCenter Cloud', '--cluster', 'QA', '--dry-run'])
+    end
+
+    assert_match(%r{/api/zones/59/affinity-groups}, output)
+    assert_match(/poolId=501/, output)
+    assert_equal [[:list, 59, {name: 'QA', type: 'Cluster'}]], pools.calls
+  end
+
+  def test_cluster_name_falls_back_to_unique_vsphere_cluster
+    command, pools, clusters = build_command
+
+    output = capture_stdout { command.list(['--cluster', 'QA', '--dry-run']) }
+
+    assert_match(%r{/api/zones/59/affinity-groups}, output)
+    assert_match(/poolId=501/, output)
+    assert_equal [[:list, {name: 'QA'}]], clusters.calls
+    assert_equal [
+      [:list_without_cloud, {name: 'QA', type: 'Cluster', max: 1000}]
+    ], pools.calls
+  end
+
+  def test_managed_cluster_takes_precedence
+    managed_cluster = {'id' => 8, 'name' => 'QA'}
+    command, pools, clusters = build_command([managed_cluster])
+
+    output = capture_stdout { command.list(['--cluster', 'QA', '--dry-run']) }
+
+    assert_match(%r{/api/clusters/8/affinity-groups}, output)
+    assert_equal [
+      [:list, {name: 'QA'}],
+      [:list_affinity_groups, 8, {}]
+    ], clusters.calls
+    assert_empty pools.calls
+  end
+
+  private
+
+  def build_command(managed_clusters = [])
+    clouds = FakeCloudsInterface.new(@cloud)
+    pools = FakeResourcePoolsInterface.new(@pool)
+    clusters = FakeClustersInterface.new(managed_clusters)
+    command = Morpheus::Cli::AffinityGroupsCommand.new
+    command.define_singleton_method(:connect) do |_options|
+      @clouds_interface = clouds
+      @clusters_interface = clusters
+      @cloud_resource_pools_interface = pools
+    end
+    [command, pools, clusters]
+  end
+
+  def capture_stdout
+    terminal = Morpheus::Terminal.instance
+    original = terminal.stdout
+    buffer = StringIO.new
+    terminal.set_stdout(buffer)
+    yield
+    buffer.string
+  ensure
+    terminal.set_stdout(original)
+  end
+end