Add missing spec that shows a regression after e3bcf5.
This commit is contained in:
parent
2a6c67b17b
commit
2c9de38129
@ -16,4 +16,20 @@ class SampleApp < Sinatra::Default
|
|||||||
get "/redirected" do
|
get "/redirected" do
|
||||||
"Redirected"
|
"Redirected"
|
||||||
end
|
end
|
||||||
|
|
||||||
|
get "/form" do
|
||||||
|
<<-EOS
|
||||||
|
<html>
|
||||||
|
<form action="/form" method="post">
|
||||||
|
<input type="hidden" name="_method" value="put" />
|
||||||
|
<label for="email">Email:</label> <input type="text" id="email" name="email" /></label>
|
||||||
|
<input type="submit" value="Add" />
|
||||||
|
</form>
|
||||||
|
</html>
|
||||||
|
EOS
|
||||||
|
end
|
||||||
|
|
||||||
|
put "/form" do
|
||||||
|
"Welcome #{params[:email]}"
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
@ -12,7 +12,15 @@ describe "Webrat's Mechanize mode" do
|
|||||||
end
|
end
|
||||||
|
|
||||||
it "should follow links"
|
it "should follow links"
|
||||||
it "should submit forms"
|
|
||||||
|
it "should submit forms" do
|
||||||
|
visit "http://localhost:9292/form"
|
||||||
|
fill_in "Email", :with => "albert@example.com"
|
||||||
|
click_button "Add"
|
||||||
|
|
||||||
|
response.should contain("Welcome albert@example.com")
|
||||||
|
end
|
||||||
|
|
||||||
it "should not follow external redirects" do
|
it "should not follow external redirects" do
|
||||||
pending do
|
pending do
|
||||||
response = visit("http://localhost:9292/external_redirect")
|
response = visit("http://localhost:9292/external_redirect")
|
||||||
|
Loading…
Reference in New Issue
Block a user