WIP

Author: choroba

t/01-deltas.t

@@ -7,7 +7,7 @@ use Statistics::Krippendorff;
 use List::Util qw{ sum };
 
 use Test2::V0;
-plan 20;
+plan 21;
 
 my $sk = 'Statistics::Krippendorff'->new(units => []);
 
@@ -32,6 +32,8 @@ is $sk->delta_jaccard('b,a', 'a,c'), 2/3, 'ba ac';
 
 is $sk->delta_jaccard('a,b,c', 'b,c,d,e'), 3/5, 'abc bcde';
 
+is $sk->delta_masi('1,2', '1,2,3,4'), 2/3, 'masi';
+
 my @figures = (
     [['x,y', 'x,y,z'], ['x,y', 'x,y,z'], ['x', 'x,y,z']],
     [['x,y', 'x'], ['x,y', 'y,z'], ['z', 'y,z']]
@@ -42,14 +44,16 @@ my %means = (jaccard => [4 / 9, 5 / 9],
 for my $figure_index (0 .. $#figures) {
     my $figure = $figures[$figure_index];
     my @jaccard_deltas = map $sk->delta_jaccard(@$_), @$figure;
-    my $mean = sum(@jaccard_deltas) / @jaccard_deltas;
-    is $mean, shift @{ $means{jaccard} }, "fig$figure_index jaccard mean";
+    my $j_mean = sum(@jaccard_deltas) / @jaccard_deltas;
+    is $j_mean, shift @{ $means{jaccard} }, "fig$figure_index jaccard mean";
 
     if (1 == $figure_index) {
         $figure->[1] = ['x', 'z'];
+    } else {
+        #$figure = [['y', 'y,z'], ['x', 'x,z'], ['x','x,y']];
     }
 
     my @masi_deltas = map $sk->delta_masi(@$_), @$figure;
-    my $mean = 1 - sum(@masi_deltas) / @masi_deltas;
-    is $mean, shift @{ $means{masi} }, "fig$figure_index masi mean";
+    my $m_mean = 1 - sum(@masi_deltas) / @masi_deltas;
+    is $m_mean, shift @{ $means{masi} }, "fig$figure_index masi mean";
 }