puppet 7.29.0-universal-darwin → 8.0.1-universal-darwin

data/spec/unit/pops/parser/evaluating_parser_spec.rb

@@ -0,0 +1,89 @@
+require 'spec_helper'
+require 'puppet/pops'
+require 'puppet_spec/pops'
+require 'puppet_spec/scope'
+
+describe 'The Evaluating Parser' do
+
+  include PuppetSpec::Pops
+  include PuppetSpec::Scope
+
+  let(:acceptor) {  Puppet::Pops::Validation::Acceptor.new() }
+  let(:scope) { s = create_test_scope_for_node(node); s }
+  let(:node) { 'node.example.com' }
+
+  def quote(x)
+    Puppet::Pops::Parser::EvaluatingParser.quote(x)
+  end
+
+  def evaluator()
+    Puppet::Pops::Parser::EvaluatingParser.new()
+  end
+
+  def evaluate(s)
+    evaluator.evaluate(scope, quote(s))
+  end
+
+  def test(x)
+    expect(evaluator.evaluate_string(scope, quote(x))).to eq(x)
+  end
+
+  def test_interpolate(x, y)
+    scope['a'] = 'expansion'
+    expect(evaluator.evaluate_string(scope, quote(x))).to eq(y)
+  end
+
+  context 'when evaluating' do
+    it 'should produce an empty string with no change' do
+      test('')
+    end
+
+    it 'should produce a normal string with no change' do
+      test('A normal string')
+    end
+
+    it 'should produce a string with newlines with no change' do
+      test("A\nnormal\nstring")
+    end
+
+    it 'should produce a string with escaped newlines with no change' do
+      test("A\\nnormal\\nstring")
+    end
+
+    it 'should produce a string containing quotes without change' do
+      test('This " should remain untouched')
+    end
+
+    it 'should produce a string containing escaped quotes without change' do
+      test('This \" should remain untouched')
+    end
+
+    it 'should expand ${a} variables' do
+      test_interpolate('This ${a} was expanded', 'This expansion was expanded')
+    end
+
+    it 'should expand quoted ${a} variables' do
+      test_interpolate('This "${a}" was expanded', 'This "expansion" was expanded')
+    end
+
+    it 'should not expand escaped ${a}' do
+      test_interpolate('This \${a} was not expanded', 'This ${a} was not expanded')
+    end
+
+    it 'should expand $a variables' do
+      test_interpolate('This $a was expanded', 'This expansion was expanded')
+    end
+
+    it 'should expand quoted $a variables' do
+      test_interpolate('This "$a" was expanded', 'This "expansion" was expanded')
+    end
+
+    it 'should not expand escaped $a' do
+      test_interpolate('This \$a was not expanded', 'This $a was not expanded')
+    end
+
+    it 'should produce an single space from a \s' do
+      test_interpolate("\\s", ' ')
+    end
+  end
+end