#----------------------- TEST AcceptShare -------------------------------------#

# test accepting a wrong key

my $testkey= 'keyisgone9';

my $acctest="delete from virtualshelfshares where invitekey=?";

$dbh->do($acctest,undef,($testkey)); #just be sure it does not exist

$acctest="select shelfnumber from virtualshelves";

my ($accshelf)= $dbh->selectrow_array($acctest);

is(AcceptShare($accshelf,$testkey,$borrowers[0]),undef,'Did not accept invalid key');

# test accepting a good key

if( AddShare($accshelf,$testkey) && $borrowers[0] ) {

    is(AcceptShare($accshelf, $testkey, $borrowers[0]),1,'Accepted share');

}

else { #cannot accept if addshared failed somehow

    ok(1, 'Skipped second AcceptShare test');

}

#----------------------- TEST IsSharedList ------------------------------------#

for my $i (0..9) {

    my $sql="select count(*) from virtualshelfshares where shelfnumber=? and borrowernumber is not null";

    my $sh=$shelves[$i]->{number};

    my ($n)=$dbh->selectrow_array($sql,undef,($sh));

    is(IsSharedList($sh),$n? 1: '', "Checked IsSharedList for shelf $sh");

}