blob: 2678b127facd01d68a53bab1647cb4723ee4919c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
# In these tests we navigate from the main page to a specific trait then hit the different mapping tool buttons (In this case pylMM and r/qtl) followed by computing the results (marker regressions).
class MappingTest
end
describe MappingTest do
before do
end
describe MappingTest do
it "pyLMM mapping tool selection" do
url = $host+'/marker_regression' # ?trait_id=1435395_s_at&dataset=HC_M2_0606_P'
@agent = Mechanize.new
@agent.agent.http.ca_file = '/etc/ssl/certs/ca-certificates.crt'
# @agent.idle_timeout = 0.01
json = JSON::load(File.read('test/data/input/mapping/1435395_s_at_HC_M2_0606_P.json'))
# p json
page = @agent.post(URI.encode(url),
json,
({'Content-Type' => 'application/x-www-form-urlencoded'}))
p page
# get the form
# form = @agent.page.form_with(:name => "my-form")
# get the button you want from the form
# page.forms.each do |form|
# p form
# end
# button = page.button_with(:value => "pylmm_compute")
# submit the form using that button
# agent.submit(form, button)
# link = page.link_with(text: 'pyLMM')
# page = link.click
# puts page.uri
# link = page.link_with(text: 'Compute')
# page = link.click
# puts page.uri
# probe_link.uri.to_s.must_equal "/marker_regression"
end
end
end
describe MappingTest do
it "R/qtl mapping tool selection" do
break if $options[:skip_broken]
page = @agent.get($host+'/show_trait?trait_id=1435395_s_at&dataset=HC_M2_0606_P')
link = page.link_with(text: 'R/qtl')
page = link.click
puts page.uri
form.field_with(:name => 'Methods').options[2].select
link = page.link_with(text: 'Compute')
page = link.click
puts page.uri
probe_link.uri.to_s.must_equal "/marker_regression"
end
end
|
