devspec.en_US/project/recutils/torture/rec-sex/rec-sex-destroy.c

   1 /* -*- mode: C -*-
   2  *
   3  *       File:         rec-sex-destroy.c
   4  *       Date:         Mon Nov 15 15:06:48 2010
   5  *
   6  *       GNU recutils - rec_sex_destroy unit tests.
   7  *
   8  */
   9
  10 /* Copyright (C) 2010-2015 Jose E. Marchesi */
  11
  12 /* This program is free software: you can redistribute it and/or modify
  13  * it under the terms of the GNU General Public License as published by
  14  * the Free Software Foundation, either version 3 of the License, or
  15  * (at your option) any later version.
  16  *
  17  * This program is distributed in the hope that it will be useful,
  18  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  19  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20  * GNU General Public License for more details.
  21  *
  22  * You should have received a copy of the GNU General Public License
  23  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  24  */
  25
  26 #include <config.h>
  27 #include <string.h>
  28 #include <check.h>
  29
  30 #include <rec.h>
  31
  32 /*-
  33  * Test: rec_sex_destroy_nominal
  34  * Unit: rec_sex_destroy
  35  * Description:
  36  * + Destroy selection expressions.
  37  */
  38 START_TEST(rec_sex_destroy_nominal)
  39 {
  40   rec_sex_t sex;
  41
  42   sex = rec_sex_new (true);
  43   fail_if (sex == NULL);
  44   rec_sex_destroy (sex);
  45
  46   sex = rec_sex_new (false);
  47   fail_if (sex == NULL);
  48   rec_sex_destroy (sex);
  49 }
  50 END_TEST
  51
  52 /*
  53  * Test case creation function
  54  */
  55 TCase *
  56 test_rec_sex_destroy (void)
  57 {
  58   TCase *tc = tcase_create ("rec_sex_destroy");
  59   tcase_add_test (tc, rec_sex_destroy_nominal);
  60
  61   return tc;
  62 }
  63
  64 /* End of rec-sex-destroy.c */