-- Copyright (C) 2012 The Meme Factory, Inc., http://www.meme.com/
--
--    This file is part of Gombe-MI.
--
--    Gombe-MI is free software; you can redistribute it and/or modify
--    it under the terms of the GNU General Public License as published by
--    the Free Software Foundation; either version 3 of the License, or
--    (at your option) any later version.
--
--    This program is distributed in the hope that it will be useful,
--    but WITHOUT ANY WARRANTY; without even the implied warranty of
--    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
--    GNU General Public License for more details.
--
--    You should have received a copy of the GNU General Public License
--    along with Gombe-MI.  If not, see <http://www.gnu.org/licenses/>.
--
-- Test to ensure the mother is female.  Really, this tests the
-- deferred nature of the biography_data triggers.
--
-- All data appearing in this work are fictitious. Any resemblance to
-- actual data, living or archived, is purely coincidental.
--
-- Karl O. Pinc <kop@meme.com>
--

-- Mother must be female.

select '';
select 'Expecting:
ERROR:  Error on commit after insert or update of BIOGRAPHY_DATA
DETAIL:  Key (AnimID) = (KD2): Value (MomID) = (DAD): The mother must be female';

insert into biography_data (
    animid
  , animname
  , birthgroup
  , bgcertainty
  , sex
  , momid
  , firstborn
  , birthdate
  , bdmin
  , bdmax
  , bddist
  , entrydate
  , entrytype
  , departdate
  , departdateerror
  , departtype)
 values(
   'KD2'
 , 'Another offspring'
 , 'K'
 , 'C'
 , 'M'
 , 'DAD'
 , 'Y'
 , '1965-01-01'
 , '1965-01-01'
 , '1965-01-01'
 , 'R'
 , '1965-01-01'
 , 'B'
 , '2010-01-01'
 , 0
 , 'D');
select '';