[Koha-bugs] [Bug 9921] Make it possible to force 001 = biblionumber

[bugzilla-daemon at bugs.koha-community.org]

http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=9921

M. Tompsett <mtompset at hotmail.com> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |mtompset at hotmail.com

--- Comment #48 from M. Tompsett <mtompset at hotmail.com> ---
Koha::Sequence will be added as part of bug 10454. This may be useful in this
context for incrementing something automatically.

Here's a preliminary sample test suite for it, and the output.
--- BEGIN ---
#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 15;

BEGIN {
        use_ok('Koha::Sequence' , 'check to use Koha::Sequence');
}

my $seq = Koha::Sequence->new('blah');
ok ( defined($seq) , 'created sequence called blah');
my $rv = $seq->reset_everything;
ok ( $rv , 'triggered reset of everything' );

$seq = Koha::Sequence->new('id1');
ok ( defined($seq) , 'created sequence called id1');

$rv = $seq->del_sequence;
ok ( $rv , 'deleted sequence called id1');

my $seq1 = Koha::Sequence->new('cardnumber_katipo');
my $seq2 = Koha::Sequence->new('cardnumber_none');
ok ( $seq1->is_sequence, 'Confirmed cardnumber_katipo sequence' );
ok ( $seq2->is_sequence, 'Confirmed cardnumber_none sequence' );

my $value;
ok ( $value = $seq1->get_next_value, "Value $value" );
ok ( $value = $seq1->get_next_value, "Value $value" );
ok ( $value = $seq2->get_next_value, "Value $value" );
ok ( $value = $seq2->get_next_value, "Value $value" );

$seq = Koha::Sequence->new('blah');
ok ( defined($seq) , 'created sequence called blah');
$rv = $seq->reset_everything;
ok ( $rv , 'triggered reset of everything' );

ok ( $value = $seq1->get_next_value, "Value $value" );
ok ( $value = $seq2->get_next_value, "Value $value" );
--- END ---

t$ prove -v Sequence.t
Sequence.t ..
1..15
ok 1 - use Koha::Sequence;
ok 2 - created sequence called blah
ok 3 - triggered reset of everything
ok 4 - created sequence called id1
ok 5 - deleted sequence called id1
ok 6 - Confirmed cardnumber_katipo sequence
ok 7 - Confirmed cardnumber_none sequence
ok 8 - Value 1000000
ok 9 - Value 1000001
ok 10 - Value 162
ok 11 - Value 163
ok 12 - created sequence called blah
ok 13 - triggered reset of everything
ok 14 - Value 1000000
ok 15 - Value 162
ok
All tests successful.
Files=1, Tests=15,  1 wallclock secs ( 0.02 usr  0.00 sys +  0.10 cusr  0.00
csys =  0.12 CPU)
Result: PASS

the reset_everything rebuilds the cardnumber_katipo and cardnumber_none
sequences.

-- 
You are receiving this mail because:
You are watching all bug changes.