add more tests for fisher_B!

Author: juhyun-kim-ucla

test/two_variance_component_test.jl

@@ -75,7 +75,11 @@ H = zeros(2d^2, 2d^2)
 @info "Evaluate Fisher information matrix of B"
 H = zeros(p * d, p * d)
 #@code_warntype fisher_B!(H, vcmodelrot, vcdatarot)
+
 @inferred fisher_B!(H, vcmodelrot, vcdatarot)
+@inferred fisher_B!(H, vcdatarot, vcdata)
+@inferred fisher_B!(H, vcmodel, vcdatarot)
+@inferred fisher_B!(H, vcdatarot, vcdatarot)
 @test norm(fisher_B(vcmodel, vcdata) - fisher_B(vcmodelrot, vcdatarot)) ≈ 0.0
 @test norm(fisher_B(vcmodel, vcdata) - fisher_B(vcmodel, vcdatarot)) ≈ 0.0
 @test norm(fisher_B(vcmodel, [vcdata vcdata]) -