From e8a5cb1fba08f5d35f7392a1f8af54bf8ae65821 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sun, 25 Sep 2016 08:47:03 +0000
Subject: Testing: looking for a way to run pylmm

---
 test/lib/mapping.rb    | 51 ++++++++++++++++++++++++++++++++++++++++++++++++++
 test/lib/navigation.rb | 12 +++++-------
 2 files changed, 56 insertions(+), 7 deletions(-)
 create mode 100644 test/lib/mapping.rb

(limited to 'test')

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
-
-
-- 
cgit v1.2.3