scaffold/tests/44-switch.c

   1 /* -*-comment-start: "//";comment-end:""-*-
   2  * Mes --- Maxwell Equations of Software
   3  * Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
   4  *
   5  * This file is part of Mes.
   6  *
   7  * Mes is free software; you can redistribute it and/or modify it
   8  * under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation; either version 3 of the License, or (at
  10  * your option) any later version.
  11  *
  12  * Mes is distributed in the hope that it will be useful, but
  13  * WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
  19  */
  20
  21 #include "30-test.i"
  22 #include <stdio.h>
  23
  24 enum type_t {TCHAR, TCLOSURE, TCONTINUATION, TFUNCTION, TKEYWORD, TMACRO, TNUMBER, TPAIR, TREF, TSPECIAL, TSTRING, TSYMBOL, TVALUES, TVECTOR, TBROKEN_HEART};
  25
  26 int
  27 swits (int c)
  28 {
  29   int x = -1;
  30
  31   switch (c)
  32     {
  33     case TCHAR: {goto next;}
  34     case 1: {goto next;}
  35     case 2: {goto next;}
  36     default: {goto next;}
  37     }
  38
  39   return 1;
  40  next:
  41   switch (c)
  42     {
  43     case 0:
  44       {
  45         x = 0;
  46         c = 34;
  47         break;
  48       }
  49     case 5:
  50     case 4:
  51     case 3:
  52     case 2:
  53     case -1:
  54     case 1:
  55       x = 1;
  56       break;
  57     default:
  58       x = 2;
  59       x = 2;
  60       break;
  61     }
  62   return x;
  63 }
  64
  65 int
  66 test ()
  67 {
  68   puts ("\n");
  69   puts ("t: switch 0\n");
  70   if (swits (0) != 0) return swits (0);
  71
  72   puts ("t: switch 1\n");
  73   if (swits (1) != 1) return 1;
  74
  75   puts ("t: switch -1\n");
  76   if (swits (-1) != 1) return 1;
  77
  78   puts ("t: switch -1\n");
  79   if (swits (-2) != 2) return 1;
  80
  81   return 0;
  82 }