X-Git-Url: https://code.kerkeslager.com/?p=sandbox;a=blobdiff_plain;f=cryptopals-erlang%2F01.03%2Fstat_tests.erl;fp=cryptopals-erlang%2F01.03%2Fstat_tests.erl;h=a007e6342bd28fa6bd2737252de2d1f4f3105e5a;hp=0000000000000000000000000000000000000000;hb=b37c633b0ba51e497920762fa2eb4d732ebca291;hpb=545381e1397107d4ab00d2e54d85d3e11d98e4f1

diff --git a/cryptopals-erlang/01.03/stat_tests.erl b/cryptopals-erlang/01.03/stat_tests.erl
new file mode 100644
index 0000000..a007e63
--- /dev/null
+++ b/cryptopals-erlang/01.03/stat_tests.erl
@@ -0,0 +1,29 @@
+-module(stat_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+sum_test() -> ?assertEqual(20, stat:sum([2,4,6,8])).
+
+mean_test() -> ?assertEqual(5.0, stat:mean([2,4,6,8])).
+
+r_value_positive_test() -> ?assertEqual(
+    1.0,
+    stat:r_value([{1,2},{2,4},{4,8}])).
+
+% This test doesn't work because of round-off error
+%r_value_negative_test() -> ?assertEqual(
+%    -1.0,
+%    stat:r_value([{1,1},{2,0},{3,-1}])).
+
+r_value_zero_test() -> ?assertEqual(
+    0.0,
+    stat:r_value([{1,1},{2,2},{3,1}])).
+
+frequency_test() -> ?assertEqual(
+    dict:from_list([{a,1},{b,2}]),
+    stat:frequency([a,b,b])).
+
+frequencies_to_scatterplot_test() -> ?assertEqual(
+    [{1,1},{1,0},{0,1}],
+    stat:frequencies_to_scatterplot(
+        dict:from_list([{a,1},{b,1}]),
+        dict:from_list([{a,1},{c,1}]))).