require 'spec_helper'

describe Puppet::Parser::AST::Leaf do
  before :each do
    node     = Puppet::Node.new('localhost')
    compiler = Puppet::Parser::Compiler.new(node)
    @scope   = Puppet::Parser::Scope.new(compiler)
    @value = double('value')
    @leaf = Puppet::Parser::AST::Leaf.new(:value => @value)
  end

  describe "when converting to string" do
    it "should transform its value to string" do
      value = double('value', :is_a? => true)
      expect(value).to receive(:to_s)
      Puppet::Parser::AST::Leaf.new( :value => value ).to_s
    end
  end

  it "should have a match method" do
    expect(@leaf).to respond_to(:match)
  end

  it "should delegate match to ==" do
    expect(@value).to receive(:==).with("value")

    @leaf.match("value")
  end
end


describe Puppet::Parser::AST::Regex do
  before :each do
    node     = Puppet::Node.new('localhost')
    compiler = Puppet::Parser::Compiler.new(node)
    @scope   = Puppet::Parser::Scope.new(compiler)
  end

  describe "when initializing" do
    it "should create a Regexp with its content when value is not a Regexp" do
      expect(Regexp).to receive(:new).with("/ab/")

      Puppet::Parser::AST::Regex.new :value => "/ab/"
    end

    it "should not create a Regexp with its content when value is a Regexp" do
      value = Regexp.new("/ab/")
      expect(Regexp).not_to receive(:new).with("/ab/")

      Puppet::Parser::AST::Regex.new :value => value
    end
  end

  describe "when evaluating" do
    it "should return self" do
      val = Puppet::Parser::AST::Regex.new :value => "/ab/"

      expect(val.evaluate(@scope)).to be === val
    end
  end

  it 'should return the PRegexpType#regexp_to_s_with_delimiters with to_s' do
    regex = double('regex')
    allow(Regexp).to receive(:new).and_return(regex)

    val = Puppet::Parser::AST::Regex.new :value => '/ab/'
    expect(Puppet::Pops::Types::PRegexpType).to receive(:regexp_to_s_with_delimiters)

    val.to_s
  end

  it "should delegate match to the underlying regexp match method" do
    regex = Regexp.new("/ab/")
    val = Puppet::Parser::AST::Regex.new :value => regex

    expect(regex).to receive(:match).with("value")

    val.match("value")
  end
end

describe Puppet::Parser::AST::HostName do
  before :each do
    node     = Puppet::Node.new('localhost')
    compiler = Puppet::Parser::Compiler.new(node)
    @scope   = Puppet::Parser::Scope.new(compiler)
    @value   = 'value'
    allow(@value).to receive(:to_s).and_return(@value)
    allow(@value).to receive(:downcase).and_return(@value)
    @host = Puppet::Parser::AST::HostName.new(:value => @value)
  end

  it "should raise an error if hostname is not valid" do
    expect { Puppet::Parser::AST::HostName.new( :value => "not a hostname!" ) }.to raise_error(Puppet::DevError, /'not a hostname!' is not a valid hostname/)
  end

  it "should not raise an error if hostname is a regex" do
    expect { Puppet::Parser::AST::HostName.new( :value => Puppet::Parser::AST::Regex.new(:value => "/test/") ) }.not_to raise_error
  end

  it "should stringify the value" do
    value = double('value', :=~ => false)

    expect(value).to receive(:to_s).and_return("test")

    Puppet::Parser::AST::HostName.new(:value => value)
  end

  it "should downcase the value" do
    value = double('value', :=~ => false)
    allow(value).to receive(:to_s).and_return("UPCASED")
    host = Puppet::Parser::AST::HostName.new(:value => value)

    host.value == "upcased"
  end

  it "should evaluate to its value" do
    expect(@host.evaluate(@scope)).to eq(@value)
  end

  it "should delegate eql? to the underlying value if it is an HostName" do
    expect(@value).to receive(:eql?).with("value")
    @host.eql?("value")
  end

  it "should delegate eql? to the underlying value if it is not an HostName" do
    value = double('compared', :is_a? => true, :value => "value")
    expect(@value).to receive(:eql?).with("value")
    @host.eql?(value)
  end

  it "should delegate hash to the underlying value" do
    expect(@value).to receive(:hash)
    @host.hash
  end
end