http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=9921
M. Tompsett <mtomp...@hotmail.com> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |mtomp...@hotmail.com
--- Comment #48 from M. Tompsett <mtomp...@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.
_______________________________________________
Koha-bugs mailing list
Koha-bugs@lists.koha-community.org
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-bugs
website : http://www.koha-community.org/
git : http://git.koha-community.org/
bugs : http://bugs.koha-community.org/
