1 files changed, 64 insertions, 0 deletions
diff --git a/src/boost/libs/math/test/anderson_darling_test.cpp b/src/boost/libs/math/test/anderson_darling_test.cpp
new file mode 100644
index 00000000..8f0fb95f
--- /dev/null
+++ b/src/boost/libs/math/test/anderson_darling_test.cpp
@@ -0,0 +1,64 @@
+/*
+ * Copyright Nick Thompson, 2019
+ * Use, modification and distribution are subject to the
+ * Boost Software License, Version 1.0. (See accompanying file
+ * LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
+ */
+
+#include "math_unit_test.hpp"
+#include <numeric>
+#include <utility>
+#include <random>
+#include <boost/core/demangle.hpp>
+#include <boost/math/statistics/anderson_darling.hpp>
+#ifdef BOOST_HAS_FLOAT128
+#include <boost/multiprecision/float128.hpp>
+using boost::multiprecision::float128;
+#endif
+
+
+using boost::math::statistics::anderson_darling_normality_statistic;
+
+void test_ad_normal_agreement_w_mathematica()
+{
+    // To reproduce:
+    // data = RandomVariate[NormalDistribution[0.0, 1], 32];
+    // AndersonDarlingTest[data, NormalDistribution[0.0, 1.0], "TestStatistic"]
+    std::vector<double> v = {0.6018671202167422, 0.34935310534248165, -0.2975464874480147, 0.19075371678288966, 0.7871329594028097, 1.153968559452821,
+                            -0.22255484635945819, 0.08509539017654276, -1.3495873906132927, 0.5579622886226612, -0.8781637835839865, 1.144016010880056,
+                             0.3117638373078617, 1.2774825413798292, 0.24847416220730323, -0.5002468827503855, -0.23124277830160153, 0.1880980838556693,
+                            -1.2249409521605903, 2.583585311795, -1.4237305768919715, -0.7613985266437971, -1.089096700141564, -1.2595396780059587,
+                            -0.735507006841229, -0.6957024998691735, 0.24671590370045435, 0.24620128485023313, -2.4445908627621833, 0.1882647961008893,
+                             1.8527432579288248, -0.1908629038857823, -1.6542624501251562, 1.414542907065601, 0.8188282235404601, -0.5040501225935047,
+                            -1.634617885381599, -0.43608956281596023, -1.7347258501594351, 0.8387606547880405, 0.3554282034994122, -0.27872688042721255,
+                            -1.6445047421517192, 1.0262620986278987, -0.14517030192098415, -0.15386932114942647, -0.13364750619758223, 0.27194802295714676,
+                            -0.6396907621289796, 0.3390884293844603, -0.08298748318375798, -0.7165572035514544, -0.2580817977433051, -1.9250094572058072,
+                            -0.07995578394716944, -1.146629910012214, -2.0053073148074665, -1.6745995591714353, 0.2973860474005926, -0.4981763213542575,
+                             0.22190763958244972, 0.699111028057888, -1.1872952966557475, 0.6151420566782272};
+
+    double expected = 1.542329830419774;
+    std::sort(v.begin(), v.end());
+    double ADtest = anderson_darling_normality_statistic(v, 0.0, 1.0);
+
+    CHECK_ULP_CLOSE(expected, ADtest, 250);
+
+    double sigma = 2;
+    for (auto & x : v) {
+        x *= sigma;
+    }
+    ADtest = anderson_darling_normality_statistic(v, 0.0, sigma);
+    CHECK_ULP_CLOSE(expected, ADtest, 250);
+
+    double mu = 10;
+    for (auto & x : v) {
+        x += mu;
+    }
+    ADtest = anderson_darling_normality_statistic(v, mu, sigma);
+    CHECK_ULP_CLOSE(expected, ADtest, 250);
+}
+
+int main()
+{
+    test_ad_normal_agreement_w_mathematica();
+    return boost::math::test::report_errors();
+}