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;
  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         obj = 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         obj = ucl_object_insert_key (obj, cur, "key2", 0, false);
  61         cur = ucl_object_fromstring_common ("  test string    \n", 0, 0);
  62         obj = ucl_object_insert_key (obj, cur, "key3", 0, false);
  63         /* Array of numbers */
  64         cur = ucl_object_fromint (10);
  65         ar = ucl_array_append (NULL, cur);
  66         cur = ucl_object_fromdouble (10.1);
  67         ar = ucl_array_append (ar, cur);
  68         cur = ucl_object_fromdouble (9.999);
  69         ar = ucl_array_prepend (ar, cur);
  70
  71         /* Removing from an array */
  72         cur = ucl_object_fromdouble (1.0);
  73         ar = ucl_array_append (ar, cur);
  74         cur = ucl_array_delete (ar, cur);
  75         assert (ucl_object_todouble (cur) == 1.0);
  76         ucl_object_unref (cur);
  77         cur = ucl_object_fromdouble (2.0);
  78         ar = ucl_array_append (ar, cur);
  79         cur = ucl_array_pop_last (ar);
  80         assert (ucl_object_todouble (cur) == 2.0);
  81         ucl_object_unref (cur);
  82         cur = ucl_object_fromdouble (3.0);
  83         ar = ucl_array_prepend (ar, cur);
  84         cur = ucl_array_pop_first (ar);
  85         assert (ucl_object_todouble (cur) == 3.0);
  86         ucl_object_unref (cur);
  87
  88         obj = ucl_object_insert_key (obj, ar, "key4", 0, false);
  89         cur = ucl_object_frombool (true);
  90         obj = ucl_object_insert_key (obj, cur, "key4", 0, false);
  91         /* Empty strings */
  92         cur = ucl_object_fromstring_common ("      ", 0, UCL_STRING_TRIM);
  93         obj = ucl_object_insert_key (obj, cur, "key5", 0, false);
  94         cur = ucl_object_fromstring_common ("", 0, UCL_STRING_ESCAPE);
  95         obj = ucl_object_insert_key (obj, cur, "key6", 0, false);
  96         cur = ucl_object_fromstring_common ("   \n", 0, UCL_STRING_ESCAPE);
  97         obj = ucl_object_insert_key (obj, cur, "key7", 0, false);
  98         /* Numbers and booleans */
  99         cur = ucl_object_fromstring_common ("1mb", 0, UCL_STRING_ESCAPE | UCL_STRING_PARSE);
 100         obj = ucl_object_insert_key (obj, cur, "key8", 0, false);
 101         cur = ucl_object_fromstring_common ("3.14", 0, UCL_STRING_PARSE);
 102         obj = ucl_object_insert_key (obj, cur, "key9", 0, false);
 103         cur = ucl_object_fromstring_common ("true", 0, UCL_STRING_PARSE);
 104         obj = ucl_object_insert_key (obj, cur, "key10", 0, false);
 105         cur = ucl_object_fromstring_common ("  off  ", 0, UCL_STRING_PARSE | UCL_STRING_TRIM);
 106         obj = ucl_object_insert_key (obj, cur, "key11", 0, false);
 107         cur = ucl_object_fromstring_common ("gslin@gslin.org", 0, UCL_STRING_PARSE_INT);
 108         obj = ucl_object_insert_key (obj, cur, "key12", 0, false);
 109         cur = ucl_object_fromstring_common ("#test", 0, UCL_STRING_PARSE_INT);
 110         obj = ucl_object_insert_key (obj, cur, "key13", 0, false);
 111         cur = ucl_object_frombool (true);
 112         obj = ucl_object_insert_key (obj, cur, "k=3", 0, false);
 113
 114
 115         emitted = ucl_object_emit (obj, UCL_EMIT_CONFIG);
 116
 117         fprintf (out, "%s\n", emitted);
 118         ucl_object_unref (obj);
 119
 120         if (emitted != NULL) {
 121                 free (emitted);
 122         }
 123         fclose (out);
 124
 125         return ret;
 126 }