follow link in email

This is using some code borrowed from ben Mabey's email-spec so that you can follow a link in an email

Would be nice to include something similar in pickle's email steps

Most of the code should probably go in a library somewhere

Then(/^I follow "([^"]+)" in #{capture_email}$/) do |link_regex, email_ref|
urls = URI.extract(email(email_ref).body, ['http', 'https'])

link_regex = /#{Regexp.escape(link_regex)}/ unless link_regex.is_a?(Regexp) url = urls.detect { |link| link =~ link_regex } url = URI::parse(url).request_uri if url

unless url

email(email_ref).body =~ %r{<a[^>]*href=['"]?([^'"]*)['"]?[^>]*?>[^<]*?#{link_regex}[^<]*?</a>}
url = URI.split($~[1])[5..-1].compact!.join("?").gsub("&amp;", "&")

end

visit(url) end