aboutsummaryrefslogtreecommitdiff
path: root/test/lib
diff options
context:
space:
mode:
Diffstat (limited to 'test/lib')
-rw-r--r--test/lib/mapping.rb51
-rw-r--r--test/lib/navigation.rb12
2 files changed, 56 insertions, 7 deletions
diff --git a/test/lib/mapping.rb b/test/lib/mapping.rb
new file mode 100644
index 00000000..08b6b5da
--- /dev/null
+++ b/test/lib/mapping.rb
@@ -0,0 +1,51 @@
+# 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)
+ # 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
diff --git a/test/lib/navigation.rb b/test/lib/navigation.rb
index 676ee90c..ee9f41d2 100644
--- a/test/lib/navigation.rb
+++ b/test/lib/navigation.rb
@@ -1,16 +1,16 @@
# 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 NavigationTest
+class MappingTest
end
-describe NavigationTest do
+describe MappingTest do
before do
@agent = Mechanize.new
@agent.agent.http.ca_file = '/etc/ssl/certs/ca-certificates.crt'
end
- describe NavigationTest do
+ describe MappingTest do
it "pyLMM 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')
@@ -27,7 +27,7 @@ describe NavigationTest do
end
-describe NavigationTest do
+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')
@@ -38,8 +38,6 @@ describe NavigationTest do
link = page.link_with(text: 'Compute')
page = link.click
puts page.uri
- probe_link.uri.to_s.must_equal "/marker_regression"
+ probe_link.uri.to_s.must_equal "/marker_regression"
end
end
-
-