00revs.t #2

#!/usr/local/bin/perl -w

=head1 NAME

00revs.t - testing of VCP::Revs

=cut

use strict ;

use Carp ;
use Test ;
use VCP::Rev;
use VCP::Revs;

## TODO: Add lots of tests to 00revs.t

my $rs ;

my $foo = VCP::Rev->new( name => "foo", rev_id => 0 );

my @tests = (
sub { $rs = VCP::Revs->new ; ok( ref $rs, "VCP::Revs" ) },

sub { ok 0+$rs->get, 0 },

sub {
   $rs->add( VCP::Rev->new( name => "foo", rev_id => 1 ) );
   ok 0+$rs->get, 1;
},

sub {
   ok $rs->get_last_added( $foo )->rev_id, 1;
},

sub {
   eval { $rs->add( VCP::Rev->new( name => "foo", rev_id => 1 ) ) };
   $@ =~ /twice/ ? ok $@, $@ : ok $@, "exception containing /twice/";
},

sub {
   ok $rs->get_last_added( $foo )->rev_id, 1;
},

sub {
   $rs->add( VCP::Rev->new( name => "foo", rev_id => 2 ) );
   ok 0+$rs->get, 2;
},

sub {
   ok $rs->get_last_added( $foo )->rev_id, 2;
},

) ;

plan tests => scalar( @tests ) ;

$_->() for @tests ;