Update tests

jchristopherson · Apr 25, 2024 · b296136 · b296136
1 parent e5f7ad4
commit b296136
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 17 deletions.
diff --git a/tests/fstats_statistics_tests.f90 b/tests/fstats_statistics_tests.f90
@@ -659,6 +659,7 @@ function confidence_interval_test_1() result(rst)
         if (.not.is_equal(c, t10, tol)) then
             rst = .false.
             print '(A)', "TEST FAILED: Confidence Interval Test 1"
+            print *, "Expected: ", t10, " Found: ", c
         end if
 
         ! Test 2, nu = 20
@@ -667,6 +668,7 @@ function confidence_interval_test_1() result(rst)
         if (.not.is_equal(c, t20, tol)) then
             rst = .false.
             print '(A)', "TEST FAILED: Confidence Interval Test 2"
+            print *, "Expected: ", t20, " Found: ", c
         end if
 
         ! Test 3, nu = 30
@@ -675,6 +677,7 @@ function confidence_interval_test_1() result(rst)
         if (.not.is_equal(c, t30, tol)) then
             rst = .false.
             print '(A)', "TEST FAILED: Confidence Interval Test 3"
+            print *, "Expected: ", t30, " Found: ", c
         end if
     end function
 

diff --git a/tests/fstats_tests.f90 b/tests/fstats_tests.f90
@@ -110,29 +110,29 @@ program tests
     local = trimmed_mean_test_1()
     if (.not.local) overall = .false.
 
-    ! ! Covariance Tests
-    ! local = test_covariance_1()
-    ! if (.not.local) overall = .false.
+    ! Covariance Tests
+    local = test_covariance_1()
+    if (.not.local) overall = .false.
 
-    ! ! Correlation Tests
-    ! local = test_correlation_1()
-    ! if (.not.local) overall = .false.
+    ! Correlation Tests
+    local = test_correlation_1()
+    if (.not.local) overall = .false.
 
-    ! ! Additional Tests
-    ! local = test_pooled_variance_1()
-    ! if (.not.local) overall = .false.
+    ! Additional Tests
+    local = test_pooled_variance_1()
+    if (.not.local) overall = .false.
 
-    ! local = test_bartlett_1()
-    ! if (.not.local) overall = .false.
+    local = test_bartlett_1()
+    if (.not.local) overall = .false.
 
-    ! local = test_levene_1()
-    ! if (.not.local) overall = .false.
+    local = test_levene_1()
+    if (.not.local) overall = .false.
 
-    ! local = test_standardized_variable()
-    ! if (.not.local) overall = .false.
+    local = test_standardized_variable()
+    if (.not.local) overall = .false.
 
-    ! local = test_sample_size()
-    ! if (.not.local) overall = .false.
+    local = test_sample_size()
+    if (.not.local) overall = .false.
 
     ! End
     if (.not.overall) then