From 25cea57dbbf8bf37108481dc83c2d536890b1a47 Mon Sep 17 00:00:00 2001
From: Dennis E. Mungai
Date: Wed, 18 May 2016 02:24:10 +0300
Subject: Added a new Navigation Test suite

A new option for running the script is now available.
See the output of ./test-website -n for usage.---
 bin/test-website | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/bin/test-website b/bin/test-website
index 24274713..aeab459b 100755
--- a/bin/test-website
+++ b/bin/test-website
@@ -25,6 +25,10 @@ opts = OptionParser.new do |o|
   o.on('-l','--link-checker', 'Check for dead links') do
     options[:link_checker] = true
   end
+  
+  o.on('-n','--navigation-test', 'Check for navigation test results') do
+    options[:navigation_test] = true
+  end
 
   o.separator ""
   o.on_tail('-h', '--help', 'display this help and exit') do
@@ -63,4 +67,7 @@ else
   require 'main_web_functionality'
 end
   
+if options[:navigation_test]
+  require 'NavigationTest'
+end
 
-- 
cgit v1.2.3


From ebf71cc49b70c87096e82b6847b3229b9a224641 Mon Sep 17 00:00:00 2001
From: Dennis E. Mungai
Date: Wed, 18 May 2016 02:33:01 +0300
Subject: Notes: We need to test some fields in the results page

Not yet implemented. WIP.
Expected: Run all ~250 fields.---
 test/lib/NavigationTest.rb | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 test/lib/NavigationTest.rb

diff --git a/test/lib/NavigationTest.rb b/test/lib/NavigationTest.rb
new file mode 100644
index 00000000..26080d28
--- /dev/null
+++ b/test/lib/NavigationTest.rb
@@ -0,0 +1,46 @@
+# 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
+end
+
+describe NavigationTest do
+  before do
+    @agent = Mechanize.new
+    @agent.agent.http.ca_file = '/etc/ssl/certs/ca-certificates.crt'
+  end
+
+  describe NavigationTest do
+    it "pyLMM mapping tool selection" do
+      page = @agent.get($host+'/show_trait?trait_id=1435395_s_at&dataset=HC_M2_0606_P')
+#Navigates to http://localhost:5003/show_trait?trait_id=1435395_s_at&dataset=HC_M2_0606_P and clicks respective buttons.
+      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 NavigationTest do
+    it "R/qtl mapping tool selection" do
+      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
+
+
-- 
cgit v1.2.3