puppet 7.28.0-x64-mingw32 → 7.29.0-x64-mingw32

data/spec/unit/functions/hiera_spec.rb

@@ -1,495 +0,0 @@
-require 'spec_helper'
-require 'puppet_spec/compiler'
-require 'puppet/pops'
-
-describe 'when calling' do
-  include PuppetSpec::Compiler
-  include PuppetSpec::Files
-
-  let(:global_dir) { tmpdir('global') }
-  let(:env_config) { {} }
-  let(:hiera_yaml) { <<-YAML.unindent }
-    ---
-    :backends:
-      - yaml
-      - hieraspec
-    :yaml:
-      :datadir: #{global_dir}/hieradata
-    :hierarchy:
-      - first
-      - second
-    YAML
-
-  let(:hieradata_files) do
-    {
-      'first.yaml' => <<-YAML.unindent,
-        ---
-        a: first a
-        class_name: "-- %{calling_class} --"
-        class_path: "-- %{calling_class_path} --"
-        module: "-- %{calling_module} --"
-        mod_name: "-- %{module_name} --"
-        database_user:
-          name: postgres
-          uid: 500
-          gid: 500
-          groups:
-            db: 520
-        b:
-          b1: first b1
-          b2: first b2
-        fbb:
-          - mod::foo
-          - mod::bar
-          - mod::baz
-        empty_array: []
-        nested_array:
-          first:
-            - 10
-            - 11
-          second:
-            - 21
-            - 22
-        dotted.key:
-          a: dotted.key a
-          b: dotted.key b
-        dotted.array:
-          - a
-          - b
-        YAML
-      'second.yaml' => <<-YAML.unindent,
-        ---
-        a: second a
-        b:
-          b1: second b1
-          b3: second b3
-        YAML
-      'the_override.yaml' => <<-YAML.unindent
-        ---
-        key: foo_result
-        YAML
-    }
-  end
-
-  let(:environment_files) do
-    {
-      'test' => {
-        'modules' => {
-          'mod' => {
-            'manifests' => {
-              'foo.pp' => <<-PUPPET.unindent,
-                class mod::foo {
-                  notice(hiera('class_name'))
-                  notice(hiera('class_path'))
-                  notice(hiera('module'))
-                  notice(hiera('mod_name'))
-                }
-                PUPPET
-              'bar.pp' => <<-PUPPET.unindent,
-                class mod::bar {}
-                PUPPET
-              'baz.pp' => <<-PUPPET.unindent
-                class mod::baz {}
-                PUPPET
-              },
-            'hiera.yaml' => <<-YAML.unindent,
-              ---
-              version: 5
-              YAML
-            'data' => {
-              'common.yaml' => <<-YAML.unindent
-                mod::c: mod::c (from module)
-                YAML
-            }
-          }
-        }
-      }.merge(env_config)
-    }
-  end
-
-  let(:global_files) do
-    {
-      'hiera.yaml' => hiera_yaml,
-      'hieradata' => hieradata_files,
-      'environments' => environment_files
-    }
-  end
-
-  let(:logs) { [] }
-  let(:warnings) { logs.select { |log| log.level == :warning }.map { |log| log.message } }
-  let(:env_dir) { File.join(global_dir, 'environments') }
-  let(:env) { Puppet::Node::Environment.create(:test, [File.join(env_dir, 'test', 'modules')]) }
-  let(:environments) { Puppet::Environments::Directories.new(env_dir, []) }
-  let(:node) { Puppet::Node.new('test_hiera', :environment => env) }
-  let(:compiler) { Puppet::Parser::Compiler.new(node) }
-  let(:the_func) { Puppet.lookup(:loaders).puppet_system_loader.load(:function, 'hiera') }
-
-  before(:all) do
-    $LOAD_PATH.unshift(File.join(my_fixture_dir))
-  end
-
-  after(:all) do
-    Hiera::Backend.send(:remove_const, :Hieraspec_backend) if Hiera::Backend.const_defined?(:Hieraspec_backend)
-    $LOAD_PATH.shift
-  end
-
-  before(:each) do
-    Puppet.settings[:codedir] = global_dir
-    Puppet.settings[:hiera_config] = File.join(global_dir, 'hiera.yaml')
-  end
-
-  around(:each) do |example|
-    dir_contained_in(global_dir, global_files)
-    Puppet.override(:environments => environments, :current_environment => env) do
-      example.run
-    end
-  end
-
-  def with_scope(code = 'undef')
-    result = nil
-    Puppet[:code] = 'undef'
-    Puppet::Util::Log.with_destination(Puppet::Test::LogCollector.new(logs)) do
-      compiler.compile do |catalog|
-        result = yield(compiler.topscope)
-        catalog
-      end
-    end
-    result
-  end
-
-  def func(*args, &block)
-    with_scope { |scope| the_func.call(scope, *args, &block) }
-  end
-
-  context 'hiera' do
-    it 'should require a key argument' do
-      expect { func([]) }.to raise_error(ArgumentError)
-    end
-
-    it 'should raise a useful error when nil is returned' do
-      expect { func('badkey') }.to raise_error(Puppet::DataBinding::LookupError, /did not find a value for the name 'badkey'/)
-    end
-
-    it 'should use the "first" merge strategy' do
-      expect(func('a')).to eql('first a')
-    end
-
-    it 'should allow lookup with quoted dotted key' do
-      expect(func("'dotted.key'")).to eql({'a' => 'dotted.key a', 'b' => 'dotted.key b'})
-    end
-
-    it 'should allow lookup with dotted key' do
-      expect(func('database_user.groups.db')).to eql(520)
-    end
-
-    it 'should not find data in module' do
-      expect(func('mod::c', 'default mod::c')).to eql('default mod::c')
-    end
-
-    it 'should propagate optional override' do
-      ovr = 'the_override'
-      expect(func('key', nil, ovr)).to eql('foo_result')
-    end
-
-    it 'backend data sources, including optional overrides, are propagated to custom backend' do
-      expect(func('datasources', nil, 'the_override')).to eql(['the_override', 'first', 'second'])
-    end
-
-    it 'a hiera v3 scope is used' do
-      expect(eval_and_collect_notices(<<-PUPPET, node)).to eql(['-- testing --', '-- mod::foo --', '-- mod/foo --', '-- mod --', '-- mod --'])
-      class testing () {
-         notice(hiera('class_name'))
-      }
-      include testing
-      include mod::foo
-      PUPPET
-    end
-
-    it 'should return default value nil when key is not found' do
-       expect(func('foo', nil)).to be_nil
-    end
-
-    it "should return default value '' when key is not found" do
-      expect(func('foo', '')).to eq('')
-    end
-
-    it 'should use default block' do
-      expect(func('foo') { |k| "default for key '#{k}'" }).to eql("default for key 'foo'")
-    end
-
-    it 'should propagate optional override when combined with default block' do
-      ovr = 'the_override'
-      with_scope do |scope|
-        expect(the_func.call(scope, 'key', ovr) { |k| "default for key '#{k}'" }).to eql('foo_result')
-        expect(the_func.call(scope, 'foo.bar', ovr) { |k| "default for key '#{k}'" }).to eql("default for key 'foo.bar'")
-      end
-    end
-
-    it 'should log deprecation errors' do
-      func('a')
-      expect(warnings).to include(/The function 'hiera' is deprecated in favor of using 'lookup'. See https:/)
-    end
-
-    context 'with environment with configured data provider' do
-      let(:env_config) {
-        {
-          'hiera.yaml' => <<-YAML.unindent,
-             ---
-             version: 5
-             YAML
-          'data' => {
-            'common.yaml' => <<-YAML.unindent
-              ---
-              a: a (from environment)
-              e: e (from environment)
-              YAML
-          }
-        }
-      }
-
-      it 'should find data globally' do
-        expect(func('a')).to eql('first a')
-      end
-
-      it 'should find data in the environment' do
-        expect(func('e')).to eql('e (from environment)')
-      end
-
-      it 'should find data in module' do
-        expect(func('mod::c')).to eql('mod::c (from module)')
-      end
-    end
-
-    it 'should not be disabled by data_binding_terminus setting' do
-      Puppet[:data_binding_terminus] = 'none'
-      expect(func('a')).to eql('first a')
-    end
-  end
-
-  context 'hiera_array' do
-    let(:the_func) { Puppet.lookup(:loaders).puppet_system_loader.load(:function, 'hiera_array') }
-
-    it 'should require a key argument' do
-      expect { func([]) }.to raise_error(ArgumentError)
-    end
-
-    it 'should raise a useful error when nil is returned' do
-      expect { func('badkey') }.to raise_error(Puppet::DataBinding::LookupError, /did not find a value for the name 'badkey'/)
-    end
-
-    it 'should log deprecation errors' do
-      func('fbb')
-      expect(warnings).to include(/The function 'hiera_array' is deprecated in favor of using 'lookup'/)
-    end
-
-    it 'should use the array resolution_type' do
-      expect(func('fbb', {'fbb' => 'foo_result'})).to eql(%w[mod::foo mod::bar mod::baz])
-    end
-
-    it 'should allow lookup with quoted dotted key' do
-      expect(func("'dotted.array'")).to eql(['a', 'b'])
-    end
-
-    it 'should fail lookup with dotted key' do
-      expect{ func('nested_array.0.first') }.to raise_error(/Resolution type :array is illegal when accessing values using dotted keys. Offending key was 'nested_array.0.first'/)
-    end
-
-    it 'should use default block' do
-      expect(func('foo') { |k| ['key', k] }).to eql(%w[key foo])
-    end
-  end
-
-  context 'hiera_hash' do
-    let(:the_func) { Puppet.lookup(:loaders).puppet_system_loader.load(:function, 'hiera_hash') }
-
-    it 'should require a key argument' do
-      expect { func([]) }.to raise_error(ArgumentError)
-    end
-
-    it 'should raise a useful error when nil is returned' do
-      expect { func('badkey') }.to raise_error(Puppet::DataBinding::LookupError, /did not find a value for the name 'badkey'/)
-    end
-
-    it 'should use the hash resolution_type' do
-      expect(func('b', {'b' => 'foo_result'})).to eql({ 'b1' => 'first b1', 'b2' => 'first b2', 'b3' => 'second b3'})
-    end
-
-    it 'should lookup and return a hash' do
-      expect(func('database_user')).to eql({ 'name' => 'postgres', 'uid' => 500, 'gid' => 500, 'groups' => { 'db' => 520 }})
-    end
-
-    it 'should allow lookup with quoted dotted key' do
-      expect(func("'dotted.key'")).to eql({'a' => 'dotted.key a', 'b' => 'dotted.key b'})
-    end
-
-    it 'should fail lookup with dotted key' do
-      expect{ func('database_user.groups') }.to raise_error(/Resolution type :hash is illegal when accessing values using dotted keys. Offending key was 'database_user.groups'/)
-    end
-
-    it 'should log deprecation errors' do
-      func('b')
-      expect(warnings).to include(/The function 'hiera_hash' is deprecated in favor of using 'lookup'. See https:/)
-    end
-
-    it 'should use default block' do
-      expect(func('foo') { |k| {'key' => k} }).to eql({'key' => 'foo'})
-    end
-  end
-
-  context 'hiera_include' do
-    let(:the_func) { Puppet.lookup(:loaders).puppet_system_loader.load(:function, 'hiera_include') }
-
-    it 'should require a key argument' do
-      expect { func([]) }.to raise_error(ArgumentError)
-    end
-
-    it 'should raise a useful error when nil is returned' do
-      expect { func('badkey') }.to raise_error(Puppet::DataBinding::LookupError, /did not find a value for the name 'badkey'/)
-    end
-
-    it 'should use the array resolution_type to include classes' do
-      expect(func('fbb').map { |c| c.class_name }).to eql(%w[mod::foo mod::bar mod::baz])
-    end
-
-    it 'should log deprecation errors' do
-      func('fbb')
-      expect(warnings).to include(/The function 'hiera_include' is deprecated in favor of using 'lookup'. See https:/)
-    end
-
-    it 'should not raise an error if the resulting hiera lookup returns an empty array' do
-      expect { func('empty_array') }.to_not raise_error
-    end
-
-    it 'should use default block array to include classes' do
-      expect(func('foo') { |k| ['mod::bar', "mod::#{k}"] }.map { |c| c.class_name }).to eql(%w[mod::bar mod::foo])
-    end
-  end
-
-  context 'with custom backend and merge_behavior declared in hiera.yaml' do
-    let(:merge_behavior) { 'deeper' }
-
-    let(:hiera_yaml) do
-      <<-YAML.unindent
-        ---
-        :backends:
-          - yaml
-          - hieraspec
-        :yaml:
-          :datadir: #{global_dir}/hieradata
-        :hierarchy:
-          - common
-          - other
-        :merge_behavior: #{merge_behavior}
-        :deep_merge_options:
-          :unpack_arrays: ','
-        YAML
-    end
-
-    let(:global_files) do
-      {
-        'hiera.yaml' => hiera_yaml,
-        'hieradata' => {
-          'common.yaml' => <<-YAML.unindent,
-            da:
-              - da 0
-              - da 1
-            dm:
-              dm1:
-                dm11: value of dm11 (from common)
-                dm12: value of dm12 (from common)
-              dm2:
-                dm21: value of dm21 (from common)
-            hash:
-              array:
-                - x1,x2
-            array:
-              - x1,x2
-            YAML
-          'other.yaml' => <<-YAML.unindent,
-            da:
-              - da 2,da 3
-            dm:
-              dm1:
-                dm11: value of dm11 (from other)
-                dm13: value of dm13 (from other)
-              dm3:
-                dm31: value of dm31 (from other)
-            hash:
-              array:
-                - x3
-                - x4
-            array:
-              - x3
-              - x4
-            YAML
-        }
-      }
-    end
-
-    context 'hiera_hash' do
-      let(:the_func) { Puppet.lookup(:loaders).puppet_system_loader.load(:function, 'hiera_hash') }
-
-      context "using 'deeper'" do
-        it 'declared merge_behavior is honored' do
-          expect(func('dm')).to eql({
-            'dm1' => {
-              'dm11' => 'value of dm11 (from common)',
-              'dm12' => 'value of dm12 (from common)',
-              'dm13' => 'value of dm13 (from other)'
-            },
-            'dm2' => {
-              'dm21' => 'value of dm21 (from common)'
-            },
-            'dm3' => {
-              'dm31' => 'value of dm31 (from other)'
-            }
-          })
-        end
-
-        it "merge behavior is propagated to a custom backend as 'hash'" do
-          expect(func('resolution_type')).to eql({ 'resolution_type' => 'hash' })
-        end
-
-        it 'fails on attempts to merge an array' do
-          expect {func('da')}.to raise_error(/expects a Hash value/)
-        end
-
-        it 'honors option :unpack_arrays: (unsupported by puppet)' do
-          expect(func('hash')).to eql({'array' => %w(x3 x4 x1 x2)})
-        end
-      end
-
-      context "using 'deep'" do
-        let(:merge_behavior) { 'deep' }
-
-        it 'honors option :unpack_arrays: (unsupported by puppet)' do
-          expect(func('hash')).to eql({'array' => %w(x1 x2 x3 x4)})
-        end
-      end
-    end
-
-    context 'hiera_array' do
-      let(:the_func) { Puppet.lookup(:loaders).puppet_system_loader.load(:function, 'hiera_array') }
-
-      it 'declared merge_behavior is ignored' do
-        expect(func('da')).to eql(['da 0', 'da 1', 'da 2,da 3'])
-      end
-
-      it "merge behavior is propagated to a custom backend as 'array'" do
-        expect(func('resolution_type')).to eql(['resolution_type', 'array'])
-      end
-    end
-
-    context 'hiera' do
-      let(:the_func) { Puppet.lookup(:loaders).puppet_system_loader.load(:function, 'hiera') }
-
-      it 'declared merge_behavior is ignored' do
-        expect(func('da')).to eql(['da 0', 'da 1'])
-      end
-
-      it "no merge behavior is propagated to a custom backend" do
-        expect(func('resolution_type')).to eql('resolution_type=')
-      end
-    end
-  end
-end

data/spec/unit/functions/include_spec.rb

@@ -1,186 +0,0 @@
-require 'spec_helper'
-require 'puppet_spec/compiler'
-require 'puppet/parser/functions'
-require 'matchers/containment_matchers'
-require 'matchers/resource'
-require 'matchers/include_in_order'
-require 'unit/functions/shared'
-
-describe 'The "include" function' do
-  include PuppetSpec::Compiler
-  include ContainmentMatchers
-  include Matchers::Resource
-
-  before(:each) do
-    compiler  = Puppet::Parser::Compiler.new(Puppet::Node.new("foo"))
-    @scope = Puppet::Parser::Scope.new(compiler)
-  end
-
-  it "includes a class" do
-    catalog = compile_to_catalog(<<-MANIFEST)
-      class included {
-        notify { "included": }
-      }
-
-      include included
-    MANIFEST
-
-    expect(catalog.classes).to include("included")
-  end
-
-  it "includes a class when using a fully qualified anchored name" do
-    catalog = compile_to_catalog(<<-MANIFEST)
-      class included {
-        notify { "included": }
-      }
-
-      include ::included
-    MANIFEST
-
-    expect(catalog.classes).to include("included")
-  end
-
-  it "includes multiple classes" do
-    catalog = compile_to_catalog(<<-MANIFEST)
-      class included {
-        notify { "included": }
-      }
-      class included_too {
-        notify { "included_too": }
-      }
-
-      include included, included_too
-    MANIFEST
-
-    expect(catalog.classes).to include("included")
-    expect(catalog.classes).to include("included_too")
-  end
-
-  it "includes multiple classes given as an array" do
-    catalog = compile_to_catalog(<<-MANIFEST)
-      class included {
-        notify { "included": }
-      }
-      class included_too {
-        notify { "included_too": }
-      }
-
-      include [included, included_too]
-    MANIFEST
-
-    expect(catalog.classes).to include("included")
-    expect(catalog.classes).to include("included_too")
-  end
-
-  it "flattens nested arrays" do
-    catalog = compile_to_catalog(<<-MANIFEST)
-      class included {
-        notify { "included": }
-      }
-      class included_too {
-        notify { "included_too": }
-      }
-
-      include [[[included], [[[included_too]]]]]
-    MANIFEST
-
-    expect(catalog.classes).to include("included")
-    expect(catalog.classes).to include("included_too")
-  end
-
-  it "raises an error if class does not exist" do
-    expect {
-      compile_to_catalog(<<-MANIFEST)
-        include the_god_in_your_religion
-      MANIFEST
-    }.to raise_error(Puppet::Error)
-  end
-
-    { "''"      => 'empty string', 
-      'undef'   => 'undef',
-      "['']"    => 'empty string',
-      "[undef]" => 'undef'
-    }.each_pair do |value, name_kind|
-      it "raises an error if class is #{name_kind}" do
-        expect {
-          compile_to_catalog(<<-MANIFEST)
-            include #{value}
-          MANIFEST
-        }.to raise_error(/Cannot use #{name_kind}/)
-      end
-    end
-
-  it "does not contained the included class in the current class" do
-    catalog = compile_to_catalog(<<-MANIFEST)
-      class not_contained {
-        notify { "not_contained": }
-      }
-
-      class container {
-        include not_contained
-      }
-
-      include container
-    MANIFEST
-
-    expect(catalog).to_not contain_class("not_contained").in("container")
-  end
-
-  it 'produces an array with a single class references given a single argument' do
-    catalog = compile_to_catalog(<<-MANIFEST)
-      class a {
-        notify { "a": }
-      }
-
-      $x = include(a)
-      Array[Type[Class], 1, 1].assert_type($x)
-      notify { 'feedback': message => "$x" }
-    MANIFEST
-
-    feedback = catalog.resource("Notify", "feedback")
-    expect(feedback[:message]).to eql("[Class[a]]")
-  end
-
-  it 'produces an array with class references given multiple arguments' do
-    catalog = compile_to_catalog(<<-MANIFEST)
-      class a {
-        notify { "a": }
-      }
-
-      class b {
-        notify { "b": }
-      }
-
-      $x = include(a, b)
-      Array[Type[Class], 2, 2].assert_type($x)
-      notify { 'feedback': message => "$x" }
-    MANIFEST
-
-    feedback = catalog.resource("Notify", "feedback")
-    expect(feedback[:message]).to eql("[Class[a], Class[b]]")
-  end
-
-  it 'allows the result to be used in a relationship operation' do
-    catalog = compile_to_catalog(<<-MANIFEST)
-      class a {
-        notify { "a": }
-      }
-
-      class b {
-        notify { "b": }
-      }
-
-      notify { 'c': }
-
-      include(a, b) -> Notify[c]
-    MANIFEST
-
-    # Assert relationships are formed
-    expect(catalog.resource("Class", "a")[:before][0]).to eql('Notify[c]')
-    expect(catalog.resource("Class", "b")[:before][0]).to eql('Notify[c]')
-  end
-
-  it_should_behave_like 'all functions transforming relative to absolute names', :include
-  it_should_behave_like 'an inclusion function, regardless of the type of class reference,', :include
-  it_should_behave_like 'an inclusion function, when --tasks is on,', :include
-end