test-suite/standalone/test-mb-regexp

   1 #!/bin/sh
   2 exec guile -q -s "$0" "$@"
   3 !#
   4 ;;; test-mb-regexp --- A multibyte regexp test
   5 ;;;
   6 ;;; Copyright (C) 2010, 2011 Free Software Foundation, Inc.
   7 ;;;
   8 ;;; This library is free software; you can redistribute it and/or
   9 ;;; modify it under the terms of the GNU Lesser General Public
  10 ;;; License as published by the Free Software Foundation; either
  11 ;;; version 3 of the License, or (at your option) any later version.
  12 ;;;
  13 ;;; This library is distributed in the hope that it will be useful,
  14 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16 ;;; Lesser General Public License for more details.
  17 ;;;
  18 ;;; You should have received a copy of the GNU Lesser General Public
  19 ;;; License along with this library; if not, write to the Free Software
  20 ;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  21
  22 ;; This test depends on not setting the locale -- that multibyte strings
  23 ;; don't trigger the abort in regexp.c:fixup_multibyte_match.
  24
  25 (use-modules (ice-9 regex))
  26
  27 (exit (if (equal?
  28            (match:substring
  29             (regexp-exec
  30              (make-regexp "(.)(.)(.)")
  31              (string (integer->char 200) #\x (integer->char 202)))
  32             2)
  33            "x")
  34           0
  35           1))
  36
  37 ;; Local Variables:
  38 ;; mode: scheme
  39 ;; End: