~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~

TOMOYO Linux Cross Reference
Linux/tools/perf/tests/demangle-ocaml-test.c

Version: ~ [ linux-6.1-rc7 ] ~ [ linux-6.0.10 ] ~ [ linux-5.19.17 ] ~ [ linux-5.18.19 ] ~ [ linux-5.17.15 ] ~ [ linux-5.16.20 ] ~ [ linux-5.15.80 ] ~ [ linux-5.14.21 ] ~ [ linux-5.13.19 ] ~ [ linux-5.12.19 ] ~ [ linux-5.11.22 ] ~ [ linux-5.10.156 ] ~ [ linux-5.9.16 ] ~ [ linux-5.8.18 ] ~ [ linux-5.7.19 ] ~ [ linux-5.6.19 ] ~ [ linux-5.5.19 ] ~ [ linux-5.4.225 ] ~ [ linux-5.3.18 ] ~ [ linux-5.2.21 ] ~ [ linux-5.1.21 ] ~ [ linux-5.0.21 ] ~ [ linux-4.20.17 ] ~ [ linux-4.19.267 ] ~ [ linux-4.18.20 ] ~ [ linux-4.17.19 ] ~ [ linux-4.16.18 ] ~ [ linux-4.15.18 ] ~ [ linux-4.14.300 ] ~ [ linux-4.13.16 ] ~ [ linux-4.12.14 ] ~ [ linux-4.11.12 ] ~ [ linux-4.10.17 ] ~ [ linux-4.9.334 ] ~ [ linux-4.8.17 ] ~ [ linux-4.7.10 ] ~ [ linux-4.6.7 ] ~ [ linux-4.5.7 ] ~ [ linux-4.4.302 ] ~ [ linux-4.3.6 ] ~ [ linux-4.2.8 ] ~ [ linux-4.1.52 ] ~ [ linux-4.0.9 ] ~ [ linux-3.10.108 ] ~ [ linux-2.6.32.71 ] ~ [ linux-2.6.0 ] ~ [ linux-2.4.37.11 ] ~ [ unix-v6-master ] ~ [ ccs-tools-1.8.9 ] ~ [ policy-sample ] ~
Architecture: ~ [ i386 ] ~ [ alpha ] ~ [ m68k ] ~ [ mips ] ~ [ ppc ] ~ [ sparc ] ~ [ sparc64 ] ~

  1 // SPDX-License-Identifier: GPL-2.0
  2 #include <string.h>
  3 #include <stdlib.h>
  4 #include <stdio.h>
  5 #include "tests.h"
  6 #include "session.h"
  7 #include "debug.h"
  8 #include "demangle-ocaml.h"
  9 
 10 static int test__demangle_ocaml(struct test_suite *test __maybe_unused, int subtest __maybe_unused)
 11 {
 12         int ret = TEST_OK;
 13         char *buf = NULL;
 14         size_t i;
 15 
 16         struct {
 17                 const char *mangled, *demangled;
 18         } test_cases[] = {
 19                 { "main",
 20                   NULL },
 21                 { "camlStdlib__array__map_154",
 22                   "Stdlib.array.map_154" },
 23                 { "camlStdlib__anon_fn$5bstdlib$2eml$3a334$2c0$2d$2d54$5d_1453",
 24                   "Stdlib.anon_fn[stdlib.ml:334,0--54]_1453" },
 25                 { "camlStdlib__bytes__$2b$2b_2205",
 26                   "Stdlib.bytes.++_2205" },
 27         };
 28 
 29         for (i = 0; i < ARRAY_SIZE(test_cases); i++) {
 30                 buf = ocaml_demangle_sym(test_cases[i].mangled);
 31                 if ((buf == NULL && test_cases[i].demangled != NULL)
 32                                 || (buf != NULL && test_cases[i].demangled == NULL)
 33                                 || (buf != NULL && strcmp(buf, test_cases[i].demangled))) {
 34                         pr_debug("FAILED: %s: %s != %s\n", test_cases[i].mangled,
 35                                  buf == NULL ? "(null)" : buf,
 36                                  test_cases[i].demangled == NULL ? "(null)" : test_cases[i].demangled);
 37                         ret = TEST_FAIL;
 38                 }
 39                 free(buf);
 40         }
 41 
 42         return ret;
 43 }
 44 
 45 DEFINE_SUITE("Demangle OCaml", demangle_ocaml);
 46 

~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~

kernel.org | git.kernel.org | LWN.net | Project Home | Wiki (Japanese) | Wiki (English) | SVN repository | Mail admin

Linux® is a registered trademark of Linus Torvalds in the United States and other countries.
TOMOYO® is a registered trademark of NTT DATA CORPORATION.

osdn.jp