guile18/test-suite/standalone/test-list.c

   1 /* test-list.c - exercise libguile/list.c functions */
   2
   3 /* Copyright (C) 2006, 2008 Free Software Foundation, Inc.
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2.1 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this library; if not, write to the Free Software
  17  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  18  */
  19
  20 #ifndef HAVE_CONFIG_H
  21 # include <config.h>
  22 #endif
  23
  24 #include <libguile.h>
  25
  26 #include <stdio.h>
  27 #include <assert.h>
  28 #include <string.h>
  29
  30 /* pretty trivial, but ensure this entrypoint exists, since it was
  31    documented in Guile 1.6 and earlier */
  32 static void
  33 test_scm_list (void)
  34 {
  35   {
  36     if (! scm_is_eq (SCM_EOL, scm_list (SCM_EOL)))
  37       {
  38         fprintf (stderr, "fail: scm_list SCM_EOL\n");
  39         exit (1);
  40       }
  41   }
  42
  43   {
  44     SCM lst = scm_list_2 (scm_from_int (1), scm_from_int (2));
  45     if (! scm_is_true (scm_equal_p (lst, scm_list (lst))))
  46       {
  47         fprintf (stderr, "fail: scm_list '(1 2)\n");
  48         exit (1);
  49       }
  50   }
  51 }
  52
  53 static void
  54 tests (void *data, int argc, char **argv)
  55 {
  56   test_scm_list ();
  57 }
  58
  59 int
  60 main (int argc, char *argv[])
  61 {
  62   scm_boot_guile (argc, argv, tests, NULL);
  63   return 0;
  64 }