--- Crypt-Spritz/t/01_spritz.t	2015/01/10 07:48:30	1.5
+++ Crypt-Spritz/t/01_spritz.t	2015/01/10 09:14:53	1.6
@@ -1,4 +1,4 @@
-BEGIN { $| = 1; print "1..82\n"; }
+BEGIN { $| = 1; print "1..100\n"; }
 
 use Crypt::Spritz;
 
@@ -39,6 +39,12 @@
       $mac1 = unpack "H*", substr $mac1->finish (13), -8;
       print $m eq $mac1 ? "" : "not ", "ok ", ++$n, " # M $a => $mac1 (= $m)\n";
 
+      my $ci = new Crypt::Spritz::Cipher $a;
+      my $ci1 = $ci->encrypt ($m);
+      my $ci = new Crypt::Spritz::Cipher $a;
+      $ci1 = $ci->decrypt ($ci1);
+      print $m eq $ci1 ? "" : "not ", "ok ", ++$n, " # CI1 $a => $ci1 (= $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";
@@ -48,6 +54,12 @@
       $cx2 = unpack "H*", $cx2 ^ "98765432";
       print $r eq $cx2 ? "" : "not ", "ok ", ++$n, " # CX2 $a => $cx2 (= $r)\n";
 
+      my $ae = new Crypt::Spritz::AEAD $a; $ae->nonce (45); $ae->associated_data (67);
+      my $ar1 = $ae->encrypt ($m);
+      my $ae = new Crypt::Spritz::AEAD $a; $ae->nonce (45); $ae->associated_data (67);
+      $ar1 = $ae->decrypt ($ar1);
+      print $m eq $ar1 ? "" : "not ", "ok ", ++$n, " # AR1 $a => $ar1 (= $m)\n";
+
       my $ae = new Crypt::Spritz::AEAD::XOR $a;
       $ae->nonce (12);
       $ae->associated_data (34);
@@ -58,5 +70,5 @@
    }
 }
 
-print "ok 82\n";
+print "ok 100\n";