← Back to branch summary

~ubuntu-branches/ubuntu/precise/libdata-entropy-perl/precise

« back to all changes in this revision

Viewing changes to t/rs_cryptcounter.t

  • Committer: Bazaar Package Importer
  • Author(s): Jotam Jr. Trejo
  • Date: 2011-05-08 16:44:11 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20110508164411-te8qgrv79zsowhwa
Tags: 0.007-1
* New upstream release
* debian/rules: refresh, use tiny dh7 now
* debian/copyright: refresh according to DEP 5 revision 135, also
  update Ivan Kohler email
* debian/control: drop useless versioned perl dependency
* Switch to source format 3.0 (quilt)
* debian/control: bump Standards Version to 3.9.2
* debian/control: add libtest-pod-perl, libtest-pod-coverage-perl and
  libhttp-lite-perl to B-D-I, needed by some tests
* debian/control: remove libwww-perl from dependencies, upstream use
  HTTP::Lite instead of LWP now
* Add myself to Uploaders and Copyright
* Bump DH compat level to 8

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/rs_cryptcounter.t
 
1
use warnings;
 
2
use strict;
 
3
 
1
4
use Test::More tests => 58;
2
5
 
3
6
use Crypt::Rijndael;
12
15
                ->new(Crypt::Rijndael->new("\0" x 32));
13
16
ok $ctr;
14
17
 
 
18
my $d;
15
19
is $ctr->tell, 0;
16
20
is $ctr->getc, "\xdc";
17
21
is $ctr->getc, "\x95";
31
35
is $d, "\xb6\x3d\x8d";
32
36
is $ctr->tell, 41;
33
37
is $ctr->getc, "\x60";
34
 
$pos = $ctr->getpos;
 
38
my $pos = $ctr->getpos;
35
39
is $ctr->seek(207, SEEK_SET), 1;
36
40
is $ctr->getc, "\xd2";
37
41
is $ctr->getc, "\x0f";
70
74
ok $ctr->opened;
71
75
ok !$ctr->eof;
72
76
is $ctr->getc, "\xa5";
 
77
 
 
78
1;