Merge branch 'stable-2.0'
[bpt/guile.git] / test-suite / standalone / test-scm-values.c
CommitLineData
1ceeca0a
MW
1/* Copyright (C) 2012 Free Software Foundation, Inc.
2 *
3 * This library is free software; you can redistribute it and/or
4 * modify it under the terms of the GNU Lesser General Public License
5 * as published by the Free Software Foundation; either version 3 of
6 * the License, or (at your option) any later version.
7 *
8 * This library is distributed in the hope that it will be useful, but
9 * WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 * Lesser General Public License for more details.
12 *
13 * You should have received a copy of the GNU Lesser General Public
14 * License along with this library; if not, write to the Free Software
15 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
16 * 02110-1301 USA
17 */
18
19#ifdef HAVE_CONFIG_H
20# include <config.h>
21#endif
22
23#include <assert.h>
24#include <libguile.h>
25#include <stdlib.h>
26#include <string.h>
27
28static void
29test_scm_c_value_ref_on_multiple_values ()
30{
31 SCM values = scm_values (scm_list_3 (scm_from_latin1_string ("foo"),
32 scm_from_latin1_string ("bar"),
33 scm_from_latin1_string ("baz")));
34
35 char *foo = scm_to_latin1_string (scm_c_value_ref (values, 0));
36 char *bar = scm_to_latin1_string (scm_c_value_ref (values, 1));
37 char *baz = scm_to_latin1_string (scm_c_value_ref (values, 2));
38
39 assert (strcmp (foo, "foo") == 0);
40 assert (strcmp (bar, "bar") == 0);
41 assert (strcmp (baz, "baz") == 0);
42
43 free (foo);
44 free (bar);
45 free (baz);
46}
47
48static void
49test_scm_c_value_ref_on_a_single_value ()
50{
51 SCM value = scm_from_latin1_string ("foo");
52 char *foo = scm_to_latin1_string (scm_c_value_ref (value, 0));
53 assert (strcmp (foo, "foo") == 0);
54 free (foo);
55}
56
57static void
58tests (void *data, int argc, char **argv)
59{
60 test_scm_c_value_ref_on_multiple_values ();
61 test_scm_c_value_ref_on_a_single_value ();
62}
63
64int
65main (int argc, char *argv[])
66{
67 scm_boot_guile (argc, argv, tests, NULL);
68 return 0;
69}