require 'spec_helper'
require 'hiera_puppet'
require 'puppet_spec/scope'

describe 'HieraPuppet' do
  include PuppetSpec::Scope

  after(:all) do
    HieraPuppet.instance_variable_set(:@hiera, nil)
  end

  describe 'HieraPuppet#hiera_config' do
    let(:hiera_config_data) do
      { :backend => 'yaml' }
    end

    context "when the hiera_config_file exists" do
      before do
        expect(Hiera::Config).to receive(:load).and_return(hiera_config_data)
        expect(HieraPuppet).to receive(:hiera_config_file).and_return(true)
      end

      it "should return a configuration hash" do
        expected_results = {
          :backend => 'yaml',
          :logger  => 'puppet'
        }
        expect(HieraPuppet.send(:hiera_config)).to eq(expected_results)
      end
    end

    context "when the hiera_config_file does not exist" do
      before do
        expect(Hiera::Config).not_to receive(:load)
        expect(HieraPuppet).to receive(:hiera_config_file).and_return(nil)
      end

      it "should return a configuration hash" do
        expect(HieraPuppet.send(:hiera_config)).to eq({ :logger => 'puppet' })
      end
    end
  end

  describe 'HieraPuppet#hiera_config_file' do
    it "should return nil when we cannot derive the hiera config file from Puppet.settings" do
      begin
        Puppet.settings[:hiera_config] = nil
      rescue ArgumentError => detail
        raise unless detail.message =~ /unknown setting/
      end
      expect(HieraPuppet.send(:hiera_config_file)).to be_nil
    end

    it "should use Puppet.settings[:hiera_config] as the hiera config file" do
      begin
        Puppet.settings[:hiera_config] = "/dev/null/my_hiera.yaml"
      rescue ArgumentError => detail
        raise unless detail.message =~ /unknown setting/
        pending("This example does not apply to Puppet #{Puppet.version} because it does not have this setting")
      end

      allow(Puppet::FileSystem).to receive(:exist?).with(Puppet[:hiera_config]).and_return(true)
      expect(HieraPuppet.send(:hiera_config_file)).to eq(Puppet[:hiera_config])
    end

    context 'when hiera_config is not set' do
      let(:code_hiera_config) { File.join(Puppet[:codedir], 'hiera.yaml') }
      let(:conf_hiera_config) { File.join(Puppet[:confdir], 'hiera.yaml') }

      before(:each) do
        Puppet.settings.setting(:hiera_config).send(:remove_instance_variable, :@evaluated_default)
        Puppet.settings[:hiera_config] = nil
        Puppet.settings[:codedir] = '/dev/null/puppetlabs/code'
        Puppet.settings[:confdir] = '/dev/null/puppetlabs/puppet'
      end

      it "should use Puppet.settings[:codedir]/hiera.yaml when '$codedir/hiera.yaml' exists and '$confdir/hiera.yaml' does not exist" do
        allow(Puppet::FileSystem).to receive(:exist?).with(code_hiera_config).and_return(true)
        allow(Puppet::FileSystem).to receive(:exist?).with(conf_hiera_config).and_return(false)

        expect(HieraPuppet.send(:hiera_config_file)).to eq(code_hiera_config)
      end

      it "should use Puppet.settings[:confdir]/hiera.yaml when '$codedir/hiera.yaml' does not exist and '$confdir/hiera.yaml' exists" do
        allow(Puppet::FileSystem).to receive(:exist?).with(code_hiera_config).and_return(false)
        allow(Puppet::FileSystem).to receive(:exist?).with(conf_hiera_config).and_return(true)

        expect(HieraPuppet.send(:hiera_config_file)).to eq(conf_hiera_config)
      end

      it "should use Puppet.settings[:codedir]/hiera.yaml when '$codedir/hiera.yaml' exists and '$confdir/hiera.yaml' exists" do
        allow(Puppet::FileSystem).to receive(:exist?).with(code_hiera_config).and_return(true)
        allow(Puppet::FileSystem).to receive(:exist?).with(conf_hiera_config).and_return(true)

        expect(HieraPuppet.send(:hiera_config_file)).to eq(code_hiera_config)
      end

      it "should return nil when neither '$codedir/hiera.yaml' nor '$confdir/hiera.yaml' exists" do
        allow(Puppet::FileSystem).to receive(:exist?).with(code_hiera_config).and_return(false)
        allow(Puppet::FileSystem).to receive(:exist?).with(conf_hiera_config).and_return(false)

        expect(HieraPuppet.send(:hiera_config_file)).to eq(nil)
      end

      it "should return explicitly set option even if both '$codedir/hiera.yaml' and '$confdir/hiera.yaml' exists" do
        if Puppet::Util::Platform.windows?
          explicit_hiera_config = 'C:/an/explicit/hiera.yaml'
        else
          explicit_hiera_config = '/an/explicit/hiera.yaml'
        end
        Puppet.settings[:hiera_config] = explicit_hiera_config
        allow(Puppet::FileSystem).to receive(:exist?).with(explicit_hiera_config).and_return(true)
        allow(Puppet::FileSystem).to receive(:exist?).with(code_hiera_config).and_return(true)
        allow(Puppet::FileSystem).to receive(:exist?).with(conf_hiera_config).and_return(true)

        expect(HieraPuppet.send(:hiera_config_file)).to eq(explicit_hiera_config)
      end
    end
  end

  describe 'HieraPuppet#lookup' do
    let :scope do create_test_scope_for_node('foo') end

    before :each do
      Puppet[:hiera_config] = PuppetSpec::Files.tmpfile('hiera_config')
    end

    it "should return the value from Hiera" do
      allow_any_instance_of(Hiera).to receive(:lookup).and_return('8080')
      expect(HieraPuppet.lookup('port', nil, scope, nil, :priority)).to eq('8080')

      allow_any_instance_of(Hiera).to receive(:lookup).and_return(['foo', 'bar'])
      expect(HieraPuppet.lookup('ntpservers', nil, scope, nil, :array)).to eq(['foo', 'bar'])

      allow_any_instance_of(Hiera).to receive(:lookup).and_return({'uid' => '1000'})
      expect(HieraPuppet.lookup('user', nil, scope, nil, :hash)).to eq({'uid' => '1000'})
    end

    it "should raise a useful error when the answer is nil" do
      allow_any_instance_of(Hiera).to receive(:lookup).and_return(nil)
      expect do
        HieraPuppet.lookup('port', nil, scope, nil, :priority)
      end.to raise_error(Puppet::ParseError,
        /Could not find data item port in any Hiera data file and no default supplied/)
    end
  end

  describe 'HieraPuppet#parse_args' do
    it 'should return a 3 item array' do
      args = ['foo', '8080', nil, nil]
      expect(HieraPuppet.parse_args(args)).to eq(['foo', '8080', nil])
    end

    it 'should raise a useful error when no key is supplied' do
      expect { HieraPuppet.parse_args([]) }.to raise_error(Puppet::ParseError,
        /Please supply a parameter to perform a Hiera lookup/)
    end
  end
end