blob: da580185b6b9fef6a6d9db44df0dcf4c5a36840b (
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
|
# 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
@agent = Mechanize.new
@agent.agent.http.ca_file = '/etc/ssl/certs/ca-certificates.crt'
end
describe MappingTest do
it "pyLMM mapping tool selection" do
url = $host+'/marker_regression?trait_id=1435395_s_at&dataset=HC_M2_0606_P'
page = @agent.post(url)
json = JSON::load(File.read('test/data/input/mapping/1435395_s_at_HC_M2_0606_P.json'))
p json
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
|
