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         FILE *out;
  34         unsigned char *emitted;
  35         const char *fname_out = NULL;
  36         int ret = 0;
  37
  38         switch (argc) {
  39         case 2:
  40                 fname_out = argv[1];
  41                 break;
  42         }
  43
  44
  45         if (fname_out != NULL) {
  46                 out = fopen (fname_out, "w");
  47                 if (out == NULL) {
  48                         exit (-errno);
  49                 }
  50         }
  51         else {
  52                 out = stdout;
  53         }
  54
  55         obj = ucl_object_typed_new (UCL_OBJECT);
  56         /* Create some strings */
  57         cur = ucl_object_fromstring_common ("  test string    ", 0, UCL_STRING_TRIM);
  58         ucl_object_insert_key (obj, cur, "key1", 0, false);
  59         cur = ucl_object_fromstring_common ("  test \nstring\n    ", 0, UCL_STRING_TRIM | UCL_STRING_ESCAPE);
  60         ucl_object_insert_key (obj, cur, "key2", 0, false);
  61         cur = ucl_object_fromstring_common ("  test string    \n", 0, 0);
  62         ucl_object_insert_key (obj, cur, "key3", 0, false);
  63         /* Array of numbers */
  64         ar = ucl_object_typed_new (UCL_ARRAY);
  65         cur = ucl_object_fromint (10);
  66         ucl_array_append (ar, cur);
  67         cur = ucl_object_fromdouble (10.1);
  68         ucl_array_append (ar, cur);
  69         cur = ucl_object_fromdouble (9.999);
  70         ucl_array_prepend (ar, cur);
  71
  72         /* Removing from an array */
  73         cur = ucl_object_fromdouble (1.0);
  74         ucl_array_append (ar, cur);
  75         cur = ucl_array_delete (ar, cur);
  76         assert (ucl_object_todouble (cur) == 1.0);
  77         ucl_object_unref (cur);
  78         cur = ucl_object_fromdouble (2.0);
  79         ucl_array_append (ar, cur);
  80         cur = ucl_array_pop_last (ar);
  81         assert (ucl_object_todouble (cur) == 2.0);
  82         ucl_object_unref (cur);
  83         cur = ucl_object_fromdouble (3.0);
  84         ucl_array_prepend (ar, cur);
  85         cur = ucl_array_pop_first (ar);
  86         assert (ucl_object_todouble (cur) == 3.0);
  87         ucl_object_unref (cur);
  88
  89         ucl_object_insert_key (obj, ar, "key4", 0, false);
  90         cur = ucl_object_frombool (true);
  91         /* Ref object to test refcounts */
  92         ref = ucl_object_ref (cur);
  93         ucl_object_insert_key (obj, cur, "key4", 0, false);
  94         /* Empty strings */
  95         cur = ucl_object_fromstring_common ("      ", 0, UCL_STRING_TRIM);
  96         ucl_object_insert_key (obj, cur, "key5", 0, false);
  97         cur = ucl_object_fromstring_common ("", 0, UCL_STRING_ESCAPE);
  98         ucl_object_insert_key (obj, cur, "key6", 0, false);
  99         cur = ucl_object_fromstring_common ("   \n", 0, UCL_STRING_ESCAPE);
 100         ucl_object_insert_key (obj, cur, "key7", 0, false);
 101         /* Numbers and booleans */
 102         cur = ucl_object_fromstring_common ("1mb", 0, UCL_STRING_ESCAPE | UCL_STRING_PARSE);
 103         ucl_object_insert_key (obj, cur, "key8", 0, false);
 104         cur = ucl_object_fromstring_common ("3.14", 0, UCL_STRING_PARSE);
 105         ucl_object_insert_key (obj, cur, "key9", 0, false);
 106         cur = ucl_object_fromstring_common ("true", 0, UCL_STRING_PARSE);
 107         ucl_object_insert_key (obj, cur, "key10", 0, false);
 108         cur = ucl_object_fromstring_common ("  off  ", 0, UCL_STRING_PARSE | UCL_STRING_TRIM);
 109         ucl_object_insert_key (obj, cur, "key11", 0, false);
 110         cur = ucl_object_fromstring_common ("gslin@gslin.org", 0, UCL_STRING_PARSE_INT);
 111         ucl_object_insert_key (obj, cur, "key12", 0, false);
 112         cur = ucl_object_fromstring_common ("#test", 0, UCL_STRING_PARSE_INT);
 113         ucl_object_insert_key (obj, cur, "key13", 0, false);
 114         cur = ucl_object_frombool (true);
 115         ucl_object_insert_key (obj, cur, "k=3", 0, false);
 116
 117         emitted = ucl_object_emit (obj, UCL_EMIT_CONFIG);
 118
 119         fprintf (out, "%s\n", emitted);
 120         ucl_object_unref (obj);
 121
 122         if (emitted != NULL) {
 123                 free (emitted);
 124         }
 125         fclose (out);
 126
 127         /* Ref should still be accessible */
 128         ref->value.iv = 100500;
 129         ucl_object_unref (ref);
 130
 131         return ret;
 132 }