--- Crypt-Spritz/t/01_spritz.t	2015/01/10 04:56:38	1.3
+++ Crypt-Spritz/t/01_spritz.t	2015/01/10 07:10:46	1.4
@@ -8,11 +8,11 @@
 
 for (1..3) {
    for (
-      [ABC     => "779a8e01f9e9cbc0", "028fa2b48b934a18", "eb4765b22caa38ab", "60f948978ca09dc3"],
-      [spam    => "f0609a1df143cebf", "acbba0813f300d3a", "433a025805dbb3b1", "e8f9b8d505523cfc"],
-      [arcfour => "1afa8b5ee337dbc7", "ff8cf268094c87b9", "c72e6cfc08b27d4a", "40627eab27586e33"],
+      [ABC     => "779a8e01f9e9cbc0", "028fa2b48b934a18", "eb4765b22caa38ab", "a25b6e57fb35481b", "75ea088baadc803e"],
+      [spam    => "f0609a1df143cebf", "acbba0813f300d3a", "433a025805dbb3b1", "e1eed00911069b9d", "782cf66ae9d1fdea"],
+      [arcfour => "1afa8b5ee337dbc7", "ff8cf268094c87b9", "c72e6cfc08b27d4a", "cac713dfba93cd79", "413397b795a75abf"],
    ) {
-      my ($a, $r, $h, $m, $e) = @$_;
+      my ($a, $r, $h, $m, $ec, $em) = @$_;
 
       $c1->absorb ($a);
       my $s = unpack "H*", $c1->squeeze (0.5 * length $r);
@@ -49,13 +49,14 @@
       print $r eq $cx2 ? "" : "not ", "ok ", ++$n, " # CX2 $a => $cx2 (= $r)\n";
 
       my $ae = new Crypt::Spritz::AEAD::XOR $a;
+      $ae->nonce (12);
+      $ae->associated_data (34);
       my $ar = unpack "H*", $ae->crypt ("A2345678") ^ "A2345678";
-      print $r eq $ar ? "" : "not ", "ok ", ++$n, " # AE1 $a => $ar (= $r)\n";
+      print $ec eq $ar ? "" : "not ", "ok ", ++$n, " # AE1 $a => $ar (= $ec)\n";
       $ae = unpack "H*", $ae->finish (8);
-      print $e eq $ae ? "" : "not ", "ok ", ++$n, " # AE2 $a => $ae (= $e)\n";
+      print $em eq $ae ? "" : "not ", "ok ", ++$n, " # AE2 $a => $ae (= $em)\n";
    }
 }
 
 print "ok 82\n";
 
-