Add chain from() and to() to contain mathcer

lib/serverspec/commands/base.rb

@@ -43,6 +43,13 @@ def check_file_contain file, expected_pattern
         "grep -q '#{expected_pattern}' #{file}"
       end
 
+      def check_file_contain_within file, expected_pattern, from=nil, to=nil
+        from ||= '1'
+        to ||= '$'
+        checker = check_file_contain("-", expected_pattern)
+        "sed -n '#{from},#{to}p' #{file} | #{checker}"
+      end
+
       def check_mode file, mode
         "stat -c %a #{file} | grep #{mode}"
       end

lib/serverspec/matchers/contain.rb

@@ -1,6 +1,17 @@
 RSpec::Matchers.define :contain do |expected|
   match do |actual|
-    ret = ssh_exec(commands.check_file_contain(actual, expected))
+    if (@from || @to).nil?
+      cmd = commands.check_file_contain(actual, expected)
+    else
+      cmd = commands.check_file_contain_within(actual, expected, @from, @to)
+    end
+    ret = ssh_exec(cmd)
     ret[:exit_code] == 0
   end
+  chain :from do |from|
+    @from = Regexp.new(from).inspect
+  end
+  chain :to do |to|
+    @to = Regexp.new(to).inspect
+  end
 end

spec/debian/commands_spec.rb

@@ -42,6 +42,22 @@
   it { should eq "grep -q 'root' /etc/passwd" }
 end
 
+describe commands.check_file_contain_within('Gemfile', 'rspec') do
+  it { should eq "sed -n '1,$p' Gemfile | grep -q 'rspec' -" }
+end
+
+describe commands.check_file_contain_within('Gemfile', 'rspec', '/^group :test do/') do
+  it { should eq "sed -n '/^group :test do/,$p' Gemfile | grep -q 'rspec' -" }
+end
+
+describe commands.check_file_contain_within('Gemfile', 'rspec', nil, '/^end/') do
+  it { should eq "sed -n '1,/^end/p' Gemfile | grep -q 'rspec' -" }
+end
+
+describe commands.check_file_contain_within('Gemfile', 'rspec', '/^group :test do/', '/^end/') do
+  it { should eq "sed -n '/^group :test do/,/^end/p' Gemfile | grep -q 'rspec' -" }
+end
+
 describe commands.check_mode('/etc/sudoers', 440) do
   it { should eq 'stat -c %a /etc/sudoers | grep 440' }
 end

spec/debian/matchers_spec.rb

@@ -7,6 +7,7 @@
   it_behaves_like 'support be_listening matcher', 22
   it_behaves_like 'support be_file matcher', '/etc/ssh/sshd_config'
   it_behaves_like 'support contain matcher', '/etc/ssh/sshd_config', 'See the sshd_config(5) manpage'
+  it_behaves_like 'support contain.from.to matcher', 'Gemfile', 'rspec', /^group :test do/, /^end/
   it_behaves_like 'support be_user matcher', 'root'
   it_behaves_like 'support be_group matcher', 'wheel'
 

spec/gentoo/commands_spec.rb

@@ -42,6 +42,22 @@
   it { should eq "grep -q 'root' /etc/passwd" }
 end
 
+describe commands.check_file_contain_within('Gemfile', 'rspec') do
+  it { should eq "sed -n '1,$p' Gemfile | grep -q 'rspec' -" }
+end
+
+describe commands.check_file_contain_within('Gemfile', 'rspec', '/^group :test do/') do
+  it { should eq "sed -n '/^group :test do/,$p' Gemfile | grep -q 'rspec' -" }
+end
+
+describe commands.check_file_contain_within('Gemfile', 'rspec', nil, '/^end/') do
+  it { should eq "sed -n '1,/^end/p' Gemfile | grep -q 'rspec' -" }
+end
+
+describe commands.check_file_contain_within('Gemfile', 'rspec', '/^group :test do/', '/^end/') do
+  it { should eq "sed -n '/^group :test do/,/^end/p' Gemfile | grep -q 'rspec' -" }
+end
+
 describe commands.check_mode('/etc/sudoers', 440) do
   it { should eq 'stat -c %a /etc/sudoers | grep 440' }
 end

spec/gentoo/matchers_spec.rb

@@ -8,6 +8,7 @@
   it_behaves_like 'support be_file matcher', '/etc/ssh/sshd_config'
   it_behaves_like 'support be_directory matcher', '/etc/ssh'
   it_behaves_like 'support contain matcher', '/etc/ssh/sshd_config', 'This is the sshd server system-wide configuration file'
+  it_behaves_like 'support contain.from.to matcher', 'Gemfile', 'rspec', /^group :test do/, /^end/
   it_behaves_like 'support be_user matcher', 'root'
   it_behaves_like 'support be_group matcher', 'wheel'
 

spec/redhat/commands_spec.rb

@@ -42,6 +42,22 @@
   it { should eq "grep -q 'root' /etc/passwd" }
 end
 
+describe commands.check_file_contain_within('Gemfile', 'rspec') do
+  it { should eq "sed -n '1,$p' Gemfile | grep -q 'rspec' -" }
+end
+
+describe commands.check_file_contain_within('Gemfile', 'rspec', '/^group :test do/') do
+  it { should eq "sed -n '/^group :test do/,$p' Gemfile | grep -q 'rspec' -" }
+end
+
+describe commands.check_file_contain_within('Gemfile', 'rspec', nil, '/^end/') do
+  it { should eq "sed -n '1,/^end/p' Gemfile | grep -q 'rspec' -" }
+end
+
+describe commands.check_file_contain_within('Gemfile', 'rspec', '/^group :test do/', '/^end/') do
+  it { should eq "sed -n '/^group :test do/,/^end/p' Gemfile | grep -q 'rspec' -" }
+end
+
 describe commands.check_mode('/etc/sudoers', 440) do
   it { should eq 'stat -c %a /etc/sudoers | grep 440' }
 end

spec/redhat/matchers_spec.rb

@@ -8,6 +8,7 @@
   it_behaves_like 'support be_file matcher', '/etc/ssh/sshd_config'
   it_behaves_like 'support be_directory matcher', '/etc/ssh'
   it_behaves_like 'support contain matcher', '/etc/ssh/sshd_config', 'This is the sshd server system-wide configuration file'
+  it_behaves_like 'support contain.from.to matcher', 'Gemfile', 'rspec', /^group :test do/, /^end/
   it_behaves_like 'support be_user matcher', 'root'
   it_behaves_like 'support be_group matcher', 'wheel'
 

spec/solaris/commads_spec.rb

@@ -42,6 +42,22 @@
   it { should eq "grep -q 'root' /etc/passwd" }
 end
 
+describe commands.check_file_contain_within('Gemfile', 'rspec') do
+  it { should eq "sed -n '1,$p' Gemfile | grep -q 'rspec' -" }
+end
+
+describe commands.check_file_contain_within('Gemfile', 'rspec', '/^group :test do/') do
+  it { should eq "sed -n '/^group :test do/,$p' Gemfile | grep -q 'rspec' -" }
+end
+
+describe commands.check_file_contain_within('Gemfile', 'rspec', nil, '/^end/') do
+  it { should eq "sed -n '1,/^end/p' Gemfile | grep -q 'rspec' -" }
+end
+
+describe commands.check_file_contain_within('Gemfile', 'rspec', '/^group :test do/', '/^end/') do
+  it { should eq "sed -n '/^group :test do/,/^end/p' Gemfile | grep -q 'rspec' -" }
+end
+
 describe commands.check_mode('/etc/sudoers', 440) do
   it { should eq 'stat -c %a /etc/sudoers | grep 440' }
 end

spec/solaris/matchers_spec.rb

@@ -8,6 +8,7 @@
   it_behaves_like 'support be_file matcher', '/etc/ssh/sshd_config'
   it_behaves_like 'support be_directory matcher', '/etc/ssh'
   it_behaves_like 'support contain matcher', '/etc/ssh/sshd_config', 'Configuration file for sshd(1m) (see also sshd_config(4))'
+  it_behaves_like 'support contain.from.to matcher', 'Gemfile', 'rspec', /^group :test do/, /^end/
   it_behaves_like 'support be_user matcher', 'root'
   it_behaves_like 'support be_group matcher', 'root'
 

spec/support/shared_matcher_examples.rb

@@ -92,6 +92,18 @@
   end
 end
 
+shared_examples_for 'support contain.from.to matcher' do |valid_file, pattern, from, to|
+  describe 'contain' do
+    describe valid_file do
+      it { should contain(pattern).from(from).to(to) }
+    end
+
+    describe '/etc/ssh/sshd_config' do
+      it { should_not contain('This is invalid text!!').from(from).to(to) }
+    end
+  end
+end
+
 shared_examples_for 'support be_user matcher' do |valid_user|
   describe 'be_user' do
     describe valid_user do