]>
Commit | Line | Data |
---|---|---|
0e4f7002 MG |
1 | #!/usr/bin/perl |
2 | use strict; | |
3 | use warnings; | |
4 | ||
5 | use Test::More tests => 13; | |
6 | BEGIN { use_ok('Algorithm::BIT::XS') }; | |
7 | ||
8 | my $bit = Algorithm::BIT::XS->new(100); | |
9 | is $bit->query(5), 0; | |
10 | $bit->update(4, 2); | |
11 | $bit->update(5, 3); | |
12 | is $bit->query(3), 0; | |
13 | is $bit->query(4), 2; | |
14 | is $bit->query(5), 5; | |
15 | is $bit->query(6), 5; | |
16 | ||
17 | $bit->update(5, -3); | |
18 | is $bit->query(5), 2; | |
19 | ||
20 | $bit->update(17, 50); | |
21 | is $bit->query(25), 52; | |
22 | is $bit->get(25), 0; | |
23 | ||
24 | $bit->set(17, 30); | |
25 | is $bit->query(25), 32; | |
26 | is $bit->get(17), 30; | |
27 | ||
28 | $bit->clear; | |
29 | $bit->set(16,10); | |
30 | is $bit->query(15), 0; | |
31 | is $bit->query(16), 10; |