blob: 4c8ff632f5e39d5bf1f555b8d9a9c4da67a53263 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
# 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).
require 'gntest'
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+'/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_with("marker_regression")[0]
# form.fields.select { |fld| fld.name == 'dataset' }.first.value.must_equal 'HC_M2_0606_P'
# form.fields.select { |fld| fld.name == 'value:BXD1' }.first.value.must_equal '6.749'
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'
json = JSON::load(File.read('test/data/input/mapping/1435395_s_at_HC_M2_0606_P.json'))
# p json
page = @agent.post(URI.encode(url),
json,
({'Content-Type' => 'application/x-www-form-urlencoded'}))
form = page.forms_with("marker_regression")[0]
form.fields.select { |fld| fld.name == 'dataset' }.first.value.must_equal 'HC_M2_0606_P'
form.fields.select { |fld| fld.name == 'value:BXD1' }.first.value.must_equal '6.749'
end
end
describe MappingTest do
it "CIM mapping tool selection (using reaper)" do
url = $host+'/marker_regression'
json = JSON::load(File.read('test/data/input/mapping/1435395_s_at_HC_M2_0606_P.json'))
json["method"] = "reaper"
page = @agent.post(URI.encode(url), json)
form = page.forms_with("marker_regression")[0]
form.fields.select { |fld| fld.name == 'dataset' }.first.value.must_equal 'HC_M2_0606_P'
form.fields.select { |fld| fld.name == 'value:BXD1' }.first.value.must_equal '6.749'
end
end
end
|