From 2d04ad9552f5b3f0551c31797f8fa714e3af4c7a Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Mon, 26 Sep 2016 14:26:47 +0000
Subject: Test: added pylmm test

---
 test/lib/mapping.rb | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'test/lib')

diff --git a/test/lib/mapping.rb b/test/lib/mapping.rb
index 47c4875b..1b52d797 100644
--- a/test/lib/mapping.rb
+++ b/test/lib/mapping.rb
@@ -11,6 +11,21 @@ describe MappingTest do
     @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'
+
+      json = JSON::load(File.read('test/data/input/mapping/1435395_s_at_HC_M2_0606_P.json'))
+      json["method"] = "pylmm"
+      # p json
+      page = @agent.post(URI.encode(url), json)
+      # Unpacking the page is slow - but the run is enough as a test
+      # form = page.forms[1]
+      # form = page.forms_with("marker_regression")[0]
+      # form.fields.select { |fld| fld.name == 'corr_dataset' }.first.value.must_equal 'HC_M2_0606_P'
+    end
+  end
+
   describe MappingTest do
     it "R/qtl mapping tool selection" do
       url = $host+'/marker_regression' # ?trait_id=1435395_s_at&dataset=HC_M2_0606_P'
-- 
cgit v1.2.3