Index: tests/natools-s_expressions-conditionals-strings-tests.adb
==================================================================
--- tests/natools-s_expressions-conditionals-strings-tests.adb
+++ tests/natools-s_expressions-conditionals-strings-tests.adb
@@ -1,7 +1,7 @@
 ------------------------------------------------------------------------------
--- Copyright (c) 2015, Natacha Porté                                        --
+-- Copyright (c) 2015-2017, Natacha Porté                                   --
 --                                                                          --
 -- Permission to use, copy, modify, and distribute this software for any    --
 -- purpose with or without fee is hereby granted, provided that the above   --
 -- copyright notice and this permission notice appear in all copies.        --
 --                                                                          --
@@ -114,10 +114,11 @@
          procedure Check (Value : in String; Expected : in Boolean := True);
 
          Image : constant String := "Expression 1";
          Exp : constant Caches.Reference := Test_Tools.To_S_Expression
            ("(or is-empty (starts-with Hi)"
+            & "(is BY) (case-insensitive (is HELLO))"
             & "(and (contains 1:.) (contains-any-of 1:! 1:?))"
             & "(case-insensitive (or (contains aLiCe)"
             & " (case-sensitive (contains Bob))))"
             & "(not is-ascii))");
 
@@ -134,10 +135,14 @@
          Check ("Hello. My name is John?");
          Check ("Alice and Bob");
          Check ("BOBBY!", False);
          Check ("AlicE and Malory");
          Check ("©");
+         Check ("BY");
+         Check ("By", False);
+         Check ("Hello");
+         Check ("Hell", False);
       end;
    exception
       when Error : others => Test.Report_Exception (Error);
    end Basic_Usage;