math.similarity: add another test for pearson-similarity.

diff --git a/extra/math/similarity/similarity-tests.factor b/extra/math/similarity/similarity-tests.factor
index 0fd32dc7e1dfffede8f6a8e878cb0125c8e2f4a5..e04afc58c4e4cdff7ca3f1de729e150cee4820a4 100644 (file)
--- a/extra/math/similarity/similarity-tests.factor
+++ b/extra/math/similarity/similarity-tests.factor
@@ -12,6 +12,7 @@ CONSTANT: b { 0 0 0 0 2 3 1 }
 { t } [ a b euclidian-similarity 0.1336766024001917 1e-10 ~ ] unit-test
 
 { t } [ a a pearson-similarity 1.0 1e-10 ~ ] unit-test
+{ t } [ a a vneg pearson-similarity 0.0 1e-10 ~ ] unit-test
 { t } [ a b pearson-similarity 0.2376861940759582 1e-10 ~ ] unit-test
 
 { t } [ a a cosine-similarity 1.0 1e-10 ~ ] unit-test