/
test-site_models_to_xml_operators.R
65 lines (57 loc) · 2.88 KB
/
test-site_models_to_xml_operators.R
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
58
59
60
61
62
63
64
65
context("site_models_to_xml_operators")
test_that("GTR", {
expected <- c(
"<operator id=\"RateACScaler.s:test_output_0\" spec=\"ScaleOperator\" parameter=\"@rateAC.s:test_output_0\" scaleFactor=\"0.5\" weight=\"0.1\"/>", # nolint XML
"<operator id=\"RateAGScaler.s:test_output_0\" spec=\"ScaleOperator\" parameter=\"@rateAG.s:test_output_0\" scaleFactor=\"0.5\" weight=\"0.1\"/>", # nolint XML
"<operator id=\"RateATScaler.s:test_output_0\" spec=\"ScaleOperator\" parameter=\"@rateAT.s:test_output_0\" scaleFactor=\"0.5\" weight=\"0.1\"/>", # nolint XML
"<operator id=\"RateCGScaler.s:test_output_0\" spec=\"ScaleOperator\" parameter=\"@rateCG.s:test_output_0\" scaleFactor=\"0.5\" weight=\"0.1\"/>", # nolint XML
"<operator id=\"RateGTScaler.s:test_output_0\" spec=\"ScaleOperator\" parameter=\"@rateGT.s:test_output_0\" scaleFactor=\"0.5\" weight=\"0.1\"/>", # nolint XML
"<operator id=\"FrequenciesExchanger.s:test_output_0\" spec=\"DeltaExchangeOperator\" delta=\"0.01\" weight=\"0.1\">", # nolint XML
" <parameter idref=\"freqParameter.s:test_output_0\"/>", # nolint XML
"</operator>"
)
created <- site_models_to_xml_operators(
site_model = list(
create_gtr_site_model(id = "test_output_0")
)
)
testthat::expect_true(are_equivalent_xml_lines(created, expected))
})
test_that("HKY", {
expected <- c(
"<operator id=\"KappaScaler.s:test_output_0\" spec=\"ScaleOperator\" parameter=\"@kappa.s:test_output_0\" scaleFactor=\"0.5\" weight=\"0.1\"/>", # nolint XML
"<operator id=\"FrequenciesExchanger.s:test_output_0\" spec=\"DeltaExchangeOperator\" delta=\"0.01\" weight=\"0.1\">", # nolint XML
" <parameter idref=\"freqParameter.s:test_output_0\"/>", # nolint XML
"</operator>"
)
created <- site_models_to_xml_operators(
site_models = list(
create_hky_site_model(id = "test_output_0")
)
)
testthat::expect_true(are_equivalent_xml_lines(created, expected))
})
test_that("JC69", {
testthat::expect_true(
is.null(
site_models_to_xml_operators(
site_models = list(create_jc69_site_model()) # No ID needed
)
)
)
})
test_that("TN93", {
expected <- c(
"<operator id=\"kappa1Scaler.s:test_output_0\" spec=\"ScaleOperator\" parameter=\"@kappa1.s:test_output_0\" scaleFactor=\"0.5\" weight=\"0.1\"/>", # nolint XML
"<operator id=\"kappa2Scaler.s:test_output_0\" spec=\"ScaleOperator\" parameter=\"@kappa2.s:test_output_0\" scaleFactor=\"0.5\" weight=\"0.1\"/>", # nolint XML
"<operator id=\"FrequenciesExchanger.s:test_output_0\" spec=\"DeltaExchangeOperator\" delta=\"0.01\" weight=\"0.1\">", # nolint XML
" <parameter idref=\"freqParameter.s:test_output_0\"/>", # nolint XML
"</operator>"
)
created <- site_models_to_xml_operators(
site_models = list(
create_tn93_site_model(id = "test_output_0")
)
)
testthat::expect_true(are_equivalent_xml_lines(created, expected))
})