require File.expand_path(File.dirname(__FILE__) + '/spec_helper')

describe Suhyo::ViewMatchers do
	include Suhyo::ViewMatchers
	
	describe '#have_button' do
		it 'matches with no options' do
			'<input type="button"/>'.should have_button
		end
		
		it 'matches the text' do
			'<input type="button" value="Submit"/>'.should have_button(:text => 'Submit')
		end
		
		it 'does not match when there is no button' do
			'<input type="text"/>'.should_not have_button
		end
		
		it 'does not match when the text is wrong' do
			'<input type="button" value="Wrong"/>'.should_not have_button(:text => 'Submit')
		end
	end
	
	describe '#have_link' do
		it 'matches with no options' do
			'<a href="http://example.com">Foo</a>'.should have_link
		end
		
		it 'matches the text' do
			'<a href="http://example.com">Foo</a>'.should have_link(:text => 'Foo')
		end
		
		it 'matches the URL' do
			'<a href="http://example.com">Foo</a>'.should have_link(:url => 'http://example.com')
		end
		
		it 'matches the ancestors' do
			'<div id="main"><a href="http://example.com">Foo</a></div>'.should have_link(:ancestors => 'div#main')
		end
		
		it 'does not match when there is no link' do
			'<div><p>Foo</p></div>'.should_not have_link
		end
		
		it 'does not match when the text is wrong' do
			'<a href="http://example.com">Foo</a>'.should_not have_link(:text => 'Bar')
		end
		
		it 'does not match when the URL is wrong' do
			'<a href="http://example.com">Foo</a>'.should_not have_link(:url => 'http://google.com')
		end
		
		it 'does not match when the ancestors are wrong' do
			'<a href="http://example.com">Foo</a>'.should_not have_link(:ancestors => 'div#main')
		end
	end
	
	describe '#contain_in_order' do
		context 'matching before' do
			it 'matches when the content is in the right order' do
				'<p>Foo</p><p>Bar</p>'.should contain_in_order('Foo', :before => 'Bar')
			end
			
			it 'does not match when the content is in the reverse order' do
				'<p>Bar</p><p>Foo</p>'.should_not contain_in_order('Foo', :before => 'Bar')
			end
			
			it 'does not match when the first content is missing' do
				'<p>...</p><p>Bar</p>'.should_not contain_in_order('Foo', :before => 'Bar')
			end
			
			it 'does not match when the second content is missing' do
				'<p>Foo</p><p>...</p>'.should_not contain_in_order('Foo', :before => 'Bar')
			end
			
			it 'tells the expected order in the error message' do
				lambda do
					'<p>Bar</p><p>Foo</p>'.should contain_in_order('Foo', :before => 'Bar')
				end.should raise_error(Spec::Expectations::ExpectationNotMetError, /^expected the following element's content to include "Foo" before "Bar":/)
			end
			
			it 'tells you if the reference content is missing' do
				lambda do
					'<p>Foo</p><p>...</p>'.should contain_in_order('Foo', :before => 'Bar')
				end.should raise_error(Spec::Expectations::ExpectationNotMetError, /^expected the following element's content to include "Foo" before "Bar" but "Bar" was not found:/)
			end
			
			# Bug fix
			it 'does not falsely tell you the reference content is missing when the main content is missing' do
				lambda do
					'<p>...</p><p>Bar</p>'.should contain_in_order('Foo', :before => 'Bar')
				end.should raise_error(Spec::Expectations::ExpectationNotMetError, /^expected the following element\'s content to include "Foo" before "Bar":/)
			end
		end
		
		context 'matching after' do
			it 'matches when the content is in the right order' do
				'<p>Foo</p><p>Bar</p>'.should contain_in_order('Bar', :after => 'Foo')
			end
			
			it 'does not match when the content is in the reverse order' do
				'<p>Bar</p><p>Foo</p>'.should_not contain_in_order('Bar', :after => 'Foo')
			end
			
			it 'does not match when the first content is missing' do
				'<p>Foo</p><p>...</p>'.should_not contain_in_order('Bar', :after => 'Foo')
			end
			
			it 'does not match when the second content is missing' do
				'<p>...</p><p>Bar</p>'.should_not contain_in_order('Bar', :after => 'Foo')
			end
			
			it 'tells the expected order in the error message' do
				lambda do
					'<p>Foo</p><p>Bar</p>'.should contain_in_order('Foo', :after => 'Bar')
				end.should raise_error(Spec::Expectations::ExpectationNotMetError, /^expected the following element's content to include "Foo" after "Bar":/)
			end
			
			it 'tells you if the reference content is missing' do
				lambda do
					'<p>...</p><p>Foo</p>'.should contain_in_order('Foo', :after => 'Bar')
				end.should raise_error(Spec::Expectations::ExpectationNotMetError, /^expected the following element's content to include "Foo" after "Bar" but "Bar" was not found:/)
			end
			
			# Bug fix
			it 'does not falsely tell you the reference content is missing when the main content is missing' do
				lambda do
					'<p>Bar</p><p>...</p>'.should contain_in_order('Foo', :after => 'Bar')
				end.should raise_error(Spec::Expectations::ExpectationNotMetError, /^expected the following element's content to include "Foo" after "Bar":/)
			end
		end
	end
	
	describe '#have_restful_form' do
		def restful_form(method)
			case method
			when 'get'
				browser_method = 'get'
				hidden_field = nil
			when 'post'
				browser_method = 'post'
				hidden_field = nil
			when 'put'
				browser_method = 'post'
				hidden_field = '<input type="hidden" name="_method" value="put"/>'
			when 'delete'
				browser_method = 'post'
				hidden_field = '<input type="hidden" name="_method" value="delete"/>'
			end
			%Q{<form method="#{browser_method}">#{hidden_field}</form>}
		end
		
		%w(get post put delete).each do |expected_method|
			it "matches a #{expected_method.upcase} form" do
				restful_form(expected_method).should have_restful_form(expected_method)
			end
			
			(%w(get post put delete) - [expected_method]).each do |actual_method|
				it "does not match #{expected_method.upcase} when the method is #{actual_method.upcase}" do
					restful_form(actual_method).should_not have_restful_form(expected_method)
				end
			end
		end
		
		it 'matches the ancestors' do
			('<div id="main">' + restful_form('get') + '</div>').should have_restful_form('get', :ancestors => 'div#main')
		end
		
		it 'does not match if the ancestors are wrong' do
			restful_form('get').should_not have_restful_form('get', :ancestors => 'div#main')
		end
		
		it 'matches arbitrary attributes' do
			'<form action="http://example.com" method="get"></form>'.should have_restful_form('get', :action => 'http://example.com')
			'<form action="http://example.com" method="get"></form>'.should_not have_restful_form('get', :action => 'http://google.com')
		end
		
		it 'raises ArgumentError if method is not get, post, put, or delete' do
			lambda { restful_form('get').should have_restful_form('foo') }.should raise_error(ArgumentError)
			lambda { restful_form('get').should have_restful_form(42) }.should raise_error(ArgumentError)
		end
		
		it 'raises ArgumentError if options is not a hash' do
			lambda { restful_form('get').should have_restful_form('get', 42) }.should raise_error(ArgumentError)
			lambda { restful_form('get').should have_restful_form('get', 'foo') }.should raise_error(ArgumentError)
		end
	end
end