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/data/input/mapping/1435395_s_at_HC_M2_0606_P.json |  2 +-
 test/lib/mapping.rb                                    | 15 +++++++++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/test/data/input/mapping/1435395_s_at_HC_M2_0606_P.json b/test/data/input/mapping/1435395_s_at_HC_M2_0606_P.json
index 9744e7b2..15428553 100644
--- a/test/data/input/mapping/1435395_s_at_HC_M2_0606_P.json
+++ b/test/data/input/mapping/1435395_s_at_HC_M2_0606_P.json
@@ -12,7 +12,7 @@
  "num_bootstrap" : "2000",
  "num_perm" : "",
  "pair_scan" : "false",
- "suggestive" : "[object Object]",
+ "suggestive" : "0",
  "trait_id" : "1433387_at",
  "value:129S1/SvImJ" : "6.920",
  "value:A/J" : "7.437",
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