added more tests

senresearch · Aug 24, 2024 · befb05f · befb05f
1 parent 1567f67
commit befb05f
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 6 deletions.
diff --git a/src/plots/plots_qtl.jl b/src/plots/plots_qtl.jl
@@ -35,6 +35,7 @@ function plot_QTL(vLOD::Vector{<:AbstractFloat}, dfgInfo::Gmap; kwargs...)
     return plot_QTL(vLOD, gmap2df(dfgInfo); kwargs...)
 end
 
+
 function plot_QTL(scanresult::NamedTuple, dfgInfo::Gmap; kwargs...)
     return plot_QTL(scanresult, gmap2df(dfgInfo); kwargs...)
 end

diff --git a/test/plots_test.jl b/test/plots_test.jl
@@ -7,7 +7,6 @@
 	data_dir = joinpath(@__DIR__, "data/BXD/");
 	file = joinpath(data_dir, "bxd.json");
 
-
 	# Transforming data to a optimised and accessible data type
 	data = get_geneticstudydata(file);
 
@@ -60,17 +59,21 @@
 	#########
 
 	# QTL plots
-	p1 = plot_QTL(single_results_perms, gInfo, mbColname = "Pos");
+	p1a = plot_QTL(single_results_perms, gInfo, mbColname = "Pos");
+	p1b = plot_QTL(single_results_perms.lod, gInfo, mbColname = "Pos");
 
 	# Manhattan plots
-	p2 = plot_manhattan(single_results_perms, gInfo, mbColname = "Pos");
+	p2a = plot_manhattan(single_results_perms, gInfo, mbColname = "Pos");
+	p2b = plot_manhattan(single_results_perms.lod, gInfo, mbColname = "Pos");
 
 	@testset "QTL plot Tests" begin
-		@test isa(p1[1][4], Plots.Series)
+		@test isa(p1a[1][4], Plots.Series)
+		@test isa(p1b[1][3], Plots.Series)
 	end
 
-	@testset "Mahattan plot Tests" begin
-		@test isa(p2[1][2], Plots.Series)
+	@testset "Manhattan plot Tests" begin
+		@test isa(p2a[1][2], Plots.Series)
+		@test isa(p2b[1][1], Plots.Series)
 	end
 
 end
-Original file line number
+Diff line change
@@ Expand Up @@
         return plot_QTL(vLOD, gmap2df(dfgInfo); kwargs...)
     end
     function plot_QTL(scanresult::NamedTuple, dfgInfo::Gmap; kwargs...)
         return plot_QTL(scanresult, gmap2df(dfgInfo); kwargs...)
     end
@@ Expand Down @@