aboutsummaryrefslogtreecommitdiff
path: root/test/lib/mapping.rb
blob: bd88b88e016aafb58b8fc24f09da973c8238a48f (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
# 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+'/show_trait?trait_id=1435395_s_at&dataset=HC_M2_0606_P'
      page = @agent.get(url)
      json = JSON::load(File.read('test/data/input/mapping/1435395_s_at_HC_M2_0606_P.json'))
      p json
      # 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