--- Crypt-Spritz/t/01_spritz.t	2015/01/10 04:14:17	1.2
+++ Crypt-Spritz/t/01_spritz.t	2015/01/10 04:56:38	1.3
@@ -1,4 +1,4 @@
-BEGIN { $| = 1; print "1..83\n"; }
+BEGIN { $| = 1; print "1..82\n"; }
 
 use Crypt::Spritz;
 
@@ -6,37 +6,56 @@
 
 my $c1 = new Crypt::Spritz;
 
-for (
-   [ABC     => "779a8e01f9e9cbc0", "028fa2b48b934a1862b86910513a47677c1c2d95ec3e7570786f1c328bbd4a47"],
-   [spam    => "f0609a1df143cebf", "acbba0813f300d3a30410d14657421c15b55e3a14e3236b03989e797c7af4789"],
-   [arcfour => "1afa8b5ee337dbc7", "ff8cf268094c87b95f74ce6fee9d3003a5f9fe6944653cd50e66bf189c63f699"],
-) {
-   my ($a, $r, $h) = @$_;
-
-   $c1->absorb ($a);
-   my $s = unpack "H*", $c1->squeeze (0.5 * length $r);
-   print $s eq $r ? "" : "not ", "ok ", ++$n, " # AS1 $a => $s (= $r)\n";
-
-   $c1->init;
-
-   my $c2 = new Crypt::Spritz;
-
-   $c2->absorb ($_) for split //, $a;
-   my $s = unpack "H*", join "", map $c2->squeeze (1), 1 .. 0.5 * length $r;
-   print $s eq $r ? "" : "not ", "ok ", ++$n, " # AS2 $a => $s (= $r)\n";
-
-   my $h1 = new Crypt::Spritz::Hash;
-   $h1->add ($a);
-   $h1 = unpack "H*", $h1->finish (32);
-
-   print $h eq $h1 ? "" : "not ", "ok ", ++$n, " # H $a => $h1 (= $h)\n";
-
-   my $cx = new Crypt::Spritz::Cipher::XOR $a;
-   $cx = unpack "H*", $cx->crypt ("12345678") ^ "12345678";
-
-   print $r eq $cx ? "" : "not ", "ok ", ++$n, " # CX $a => $cx (= $r)\n";
+for (1..3) {
+   for (
+      [ABC     => "779a8e01f9e9cbc0", "028fa2b48b934a18", "eb4765b22caa38ab", "60f948978ca09dc3"],
+      [spam    => "f0609a1df143cebf", "acbba0813f300d3a", "433a025805dbb3b1", "e8f9b8d505523cfc"],
+      [arcfour => "1afa8b5ee337dbc7", "ff8cf268094c87b9", "c72e6cfc08b27d4a", "40627eab27586e33"],
+   ) {
+      my ($a, $r, $h, $m, $e) = @$_;
+
+      $c1->absorb ($a);
+      my $s = unpack "H*", $c1->squeeze (0.5 * length $r);
+      print $s eq $r ? "" : "not ", "ok ", ++$n, " # AS1 $a => $s (= $r)\n";
+
+      $c1->init;
+
+      my $c2 = new Crypt::Spritz;
+      $c2->absorb ($_) for split //, $a;
+      my $s = unpack "H*", join "", map $c2->squeeze (1), 1 .. 0.5 * length $r;
+      print $s eq $r ? "" : "not ", "ok ", ++$n, " # AS2 $a => $s (= $r)\n";
+
+      my $rng = new Crypt::Spritz::PRNG $a;
+      $rng = unpack "H*", $rng->get (0.5 * length $r);
+      print $rng eq $r ? "" : "not ", "ok ", ++$n, " # R $a => $rng (= $r)\n";
+
+      my $h1 = new Crypt::Spritz::Hash;
+      $h1->add ($a);
+      $h1 = unpack "H*", substr $h1->finish (32), 0, 0.5 * length $h;
+      print $h eq $h1 ? "" : "not ", "ok ", ++$n, " # H $a => $h1 (= $h)\n";
+
+      my $mac1 = new Crypt::Spritz::MAC $a;
+      $mac1->add ("schmorp");
+      $mac1 = unpack "H*", substr $mac1->finish (13), -8;
+      print $m eq $mac1 ? "" : "not ", "ok ", ++$n, " # M $a => $mac1 (= $m)\n";
+
+      my $cx1 = new Crypt::Spritz::Cipher::XOR $a;
+      $cx1 = unpack "H*", $cx1->crypt ("12345678") ^ "12345678";
+      print $r eq $cx1 ? "" : "not ", "ok ", ++$n, " # CX1 $a => $cx1 (= $r)\n";
+
+      my $cx2 = "98765432";
+      Crypt::Spritz::Cipher::XOR->new ($a)->crypt_inplace ($cx2);
+      $cx2 = unpack "H*", $cx2 ^ "98765432";
+      print $r eq $cx2 ? "" : "not ", "ok ", ++$n, " # CX2 $a => $cx2 (= $r)\n";
+
+      my $ae = new Crypt::Spritz::AEAD::XOR $a;
+      my $ar = unpack "H*", $ae->crypt ("A2345678") ^ "A2345678";
+      print $r eq $ar ? "" : "not ", "ok ", ++$n, " # AE1 $a => $ar (= $r)\n";
+      $ae = unpack "H*", $ae->finish (8);
+      print $e eq $ae ? "" : "not ", "ok ", ++$n, " # AE2 $a => $ae (= $e)\n";
+   }
 }
 
-print "99 ok\n";
+print "ok 82\n";