#----------------------- TEST AddShare ----------------------------------------#

#first count the number of shares in the table; keep in mind that AddShare may

#delete some expired records while housekeeping

my $sql_sharecount="select count(*) from virtualshelfshares where DATEDIFF(sharedate, NOW())>0";

my $cnt1=$dbh->selectrow_array($sql_sharecount);

#try to add a share without shelfnumber: should fail

AddShare(0, 'abcdefghij');

my $cnt2=$dbh->selectrow_array($sql_sharecount);

ok($cnt1 == $cnt2, "Did not add an invalid share record");

#add another share: should be okay

#AddShare assumes that you tested if category==private (so we could actually

#be doing something illegal here :)

my $n=$shelves[0]->{number};

if($n<0) {

    ok(1, 'Skip AddShare for shelf -1');

}

else {

    AddShare($n, 'abcdefghij');

    my $cnt3=$dbh->selectrow_array($sql_sharecount);

    ok(1+$cnt2 == $cnt3, "Added one new share record with invitekey");

}