contrib/libucl/tests/test_generate.c

   1 /* Copyright (c) 2013, Vsevolod Stakhov
   2  * All rights reserved.
   3  *
   4  * Redistribution and use in source and binary forms, with or without
   5  * modification, are permitted provided that the following conditions are met:
   6  *       * Redistributions of source code must retain the above copyright
   7  *         notice, this list of conditions and the following disclaimer.
   8  *       * Redistributions in binary form must reproduce the above copyright
   9  *         notice, this list of conditions and the following disclaimer in the
  10  *         documentation and/or other materials provided with the distribution.
  11  *
  12  * THIS SOFTWARE IS PROVIDED ''AS IS'' AND ANY
  13  * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  14  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  15  * DISCLAIMED. IN NO EVENT SHALL AUTHOR BE LIABLE FOR ANY
  16  * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  17  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  18  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
  19  * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  20  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
  21  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  22  */
  23
  24 #include <stdio.h>
  25 #include <errno.h>
  26 #include <assert.h>
  27 #include "ucl.h"
  28
  29 int
  30 main (int argc, char **argv)
  31 {
  32         ucl_object_t *obj, *cur, *ar, *ref;
  33         const ucl_object_t *found;
  34         FILE *out;
  35         unsigned char *emitted;
  36         const char *fname_out = NULL;
  37         int ret = 0;
  38
  39         switch (argc) {
  40         case 2:
  41                 fname_out = argv[1];
  42                 break;
  43         }
  44
  45
  46         if (fname_out != NULL) {
  47                 out = fopen (fname_out, "w");
  48                 if (out == NULL) {
  49                         exit (-errno);
  50                 }
  51         }
  52         else {
  53                 out = stdout;
  54         }
  55
  56         obj = ucl_object_typed_new (UCL_OBJECT);
  57         /* Create some strings */
  58         cur = ucl_object_fromstring_common ("  test string    ", 0, UCL_STRING_TRIM);
  59         ucl_object_insert_key (obj, cur, "key1", 0, false);
  60         cur = ucl_object_fromstring_common ("  test \nstring\n    ", 0, UCL_STRING_TRIM | UCL_STRING_ESCAPE);
  61         ucl_object_insert_key (obj, cur, "key2", 0, false);
  62         cur = ucl_object_fromstring_common ("  test string    \n", 0, 0);
  63         ucl_object_insert_key (obj, cur, "key3", 0, false);
  64         /* Array of numbers */
  65         ar = ucl_object_typed_new (UCL_ARRAY);
  66         cur = ucl_object_fromint (10);
  67         ucl_array_append (ar, cur);
  68         cur = ucl_object_fromdouble (10.1);
  69         ucl_array_append (ar, cur);
  70         cur = ucl_object_fromdouble (9.999);
  71         ucl_array_prepend (ar, cur);
  72
  73         /* Removing from an array */
  74         cur = ucl_object_fromdouble (1.0);
  75         ucl_array_append (ar, cur);
  76         cur = ucl_array_delete (ar, cur);
  77         assert (ucl_object_todouble (cur) == 1.0);
  78         ucl_object_unref (cur);
  79         cur = ucl_object_fromdouble (2.0);
  80         ucl_array_append (ar, cur);
  81         cur = ucl_array_pop_last (ar);
  82         assert (ucl_object_todouble (cur) == 2.0);
  83         ucl_object_unref (cur);
  84         cur = ucl_object_fromdouble (3.0);
  85         ucl_array_prepend (ar, cur);
  86         cur = ucl_array_pop_first (ar);
  87         assert (ucl_object_todouble (cur) == 3.0);
  88         ucl_object_unref (cur);
  89
  90         ucl_object_insert_key (obj, ar, "key4", 0, false);
  91         cur = ucl_object_frombool (true);
  92         /* Ref object to test refcounts */
  93         ref = ucl_object_ref (cur);
  94         ucl_object_insert_key (obj, cur, "key4", 0, false);
  95         /* Empty strings */
  96         cur = ucl_object_fromstring_common ("      ", 0, UCL_STRING_TRIM);
  97         ucl_object_insert_key (obj, cur, "key5", 0, false);
  98         cur = ucl_object_fromstring_common ("", 0, UCL_STRING_ESCAPE);
  99         ucl_object_insert_key (obj, cur, "key6", 0, false);
 100         cur = ucl_object_fromstring_common ("   \n", 0, UCL_STRING_ESCAPE);
 101         ucl_object_insert_key (obj, cur, "key7", 0, false);
 102         /* Numbers and booleans */
 103         cur = ucl_object_fromstring_common ("1mb", 0, UCL_STRING_ESCAPE | UCL_STRING_PARSE);
 104         ucl_object_insert_key (obj, cur, "key8", 0, false);
 105         cur = ucl_object_fromstring_common ("3.14", 0, UCL_STRING_PARSE);
 106         ucl_object_insert_key (obj, cur, "key9", 0, false);
 107         cur = ucl_object_fromstring_common ("true", 0, UCL_STRING_PARSE);
 108         ucl_object_insert_key (obj, cur, "key10", 0, false);
 109         cur = ucl_object_fromstring_common ("  off  ", 0, UCL_STRING_PARSE | UCL_STRING_TRIM);
 110         ucl_object_insert_key (obj, cur, "key11", 0, false);
 111         cur = ucl_object_fromstring_common ("gslin@gslin.org", 0, UCL_STRING_PARSE_INT);
 112         ucl_object_insert_key (obj, cur, "key12", 0, false);
 113         cur = ucl_object_fromstring_common ("#test", 0, UCL_STRING_PARSE_INT);
 114         ucl_object_insert_key (obj, cur, "key13", 0, false);
 115         cur = ucl_object_frombool (true);
 116         ucl_object_insert_key (obj, cur, "k=3", 0, false);
 117
 118         /* Try to find using path */
 119         /* Should exist */
 120         found = ucl_lookup_path (obj, "key4.1");
 121         assert (found != NULL && ucl_object_toint (found) == 10);
 122         /* . should be ignored */
 123         found = ucl_lookup_path (obj, ".key4.1");
 124         assert (found != NULL && ucl_object_toint (found) == 10);
 125         /* moar dots... */
 126         found = ucl_lookup_path (obj, ".key4........1...");
 127         assert (found != NULL && ucl_object_toint (found) == 10);
 128         /* No such index */
 129         found = ucl_lookup_path (obj, ".key4.3");
 130         assert (found == NULL);
 131         /* No such key */
 132         found = ucl_lookup_path (obj, "key9..key1");
 133         assert (found == NULL);
 134
 135         emitted = ucl_object_emit (obj, UCL_EMIT_CONFIG);
 136
 137         fprintf (out, "%s\n", emitted);
 138         ucl_object_unref (obj);
 139
 140         if (emitted != NULL) {
 141                 free (emitted);
 142         }
 143         fclose (out);
 144
 145         /* Ref should still be accessible */
 146         ref->value.iv = 100500;
 147         ucl_object_unref (ref);
 148
 149         return ret;
 150 }