A Purposeful Error
EOF body content end error do e = request.env['sinatra.error'] body << <<-EOF
#{e.to_s}\n#{e.backtrace.join("\n")}
EOF
end
end
class MyAPIDriver < Kookaburra::APIDriver
encode_with { |data| JSON.dump(data) }
decode_with { |data| JSON.parse(data) }
header 'Content-Type', 'application/json'
header 'Accept', 'application/json'
def create_user(user_data)
post '/users', user_data
end
def create_widget(widget_data)
post '/widgets', widget_data
end
end
class MyGivenDriver < Kookaburra::GivenDriver
def api
MyAPIDriver.new(configuration)
end
def a_user(name)
user = {'email' => 'bob@example.com', 'password' => '12345'}
result = api.create_user(user)
mental_model.users[name] = result
end
def a_widget(name, attributes = {})
widget = {'name' => 'Foo'}.merge(attributes)
result = api.create_widget(widget)
mental_model.widgets[name] = result
end
end
class SignInScreen < Kookaburra::UIDriver::UIComponent
def component_path
'/session/new'
end
# Use default component locator value
#
# def component_locator
# '#sign_in_screen'
# end
def sign_in(user_data)
fill_in 'Email:', :with => user_data['email']
fill_in 'Password:', :with => user_data['password']
click_button 'Sign In'
end
end
class ErrorPage < Kookaburra::UIDriver::UIComponent
def component_path
'/error_page'
end
end
class WidgetDataContainer
def initialize(element)
@element = element
end
def to_hash
{
'id' => @element.find('.id').text,
'name' => @element.find('.name').text
}
end
end
class LastWidgetCreated < Kookaburra::UIDriver::UIComponent
def component_locator
@options[:component_locator]
end
def data
raise "Foo" unless visible?
WidgetDataContainer.new(self).to_hash
end
end
class WidgetList < Kookaburra::UIDriver::UIComponent
ui_component :last_widget_created, LastWidgetCreated, :component_locator => '#widget_list .last_widget.created'
def component_path
'/widgets'
end
def component_locator
'#widget_list'
end
def widgets
all('.widget_summary').map do |el|
WidgetDataContainer.new(el).to_hash
end
end
def choose_to_create_new_widget
click_on 'New Widget'
end
def choose_to_delete_widget(widget_data)
find("#delete_#{widget_data['id']}").click_button('Delete')
end
end
class WidgetForm < Kookaburra::UIDriver::UIComponent
def component_locator
'#widget_form'
end
def submit(widget_data)
fill_in 'Name:', :with => widget_data['name']
click_on 'Save'
end
end
class MyUIDriver < Kookaburra::UIDriver
ui_component :error_page, ErrorPage
ui_component :sign_in_screen, SignInScreen
ui_component :widget_list, WidgetList
ui_component :widget_form, WidgetForm
def sign_in(name)
address_bar.go_to sign_in_screen
sign_in_screen.sign_in(mental_model.users[name])
end
def error_on_purpose
address_bar.go_to error_page
end
def view_widget_list
address_bar.go_to widget_list
end
def create_new_widget(name, attributes = {})
assert widget_list.visible?, "Widget list is not visible!"
widget_list.choose_to_create_new_widget
widget_form.submit('name' => 'My Widget')
mental_model.widgets[name] = widget_list.last_widget_created.data
end
def delete_widget(name)
assert widget_list.visible?, "Widget list is not visible!"
widget_list.choose_to_delete_widget(mental_model.widgets.delete(name))
end
end
app_server = Kookaburra::RackAppServer.new do
JsonApiApp.new
end
before(:all) do
app_server.boot
Kookaburra.configure do |c|
c.ui_driver_class = MyUIDriver
c.given_driver_class = MyGivenDriver
c.app_host = 'http://127.0.0.1:%d' % app_server.port
c.browser = Capybara::Session.new(:webkit)
c.server_error_detection do |browser|
browser.has_css?('head title', :text => 'Internal Server Error', :visible => false)
end
end
end
after(:all) do
app_server.shutdown
end
it "runs the tests against the app" do
given.a_user(:bob)
given.a_widget(:widget_a)
given.a_widget(:widget_b, :name => 'Foo')
ui.sign_in(:bob)
ui.view_widget_list
# The following two lines are two different ways to shave the yak, but
# the second one does more to match against the full state of the mental
# model, provides better failure messages, and is shorter.
ui.widget_list.widgets.should == k.get_data(:widgets).values_at(:widget_a, :widget_b)
ui.widget_list.widgets.should match_mental_model_of(:widgets)
ui.create_new_widget(:widget_c, :name => 'Bar')
# As above, these are equivalent, but the second line is preferred.
ui.widget_list.widgets.should == k.get_data(:widgets).values_at(:widget_a, :widget_b, :widget_c)
ui.widget_list.widgets.should match_mental_model_of(:widgets)
ui.delete_widget(:widget_b)
# As above, these are equivalent, but the second line is preferred.
ui.widget_list.widgets.should == k.get_data(:widgets).values_at(:widget_a, :widget_c)
ui.widget_list.widgets.should match_mental_model_of(:widgets)
end
it "catches errors based on the server error detection handler" do
expect { ui.error_on_purpose } \
.to raise_error(Kookaburra::UnexpectedResponse)
end
end
end
end