1 files changed, 93 insertions, 0 deletions
diff --git a/src/pal/tests/palsuite/c_runtime/__iscsym/test1/__iscsym.c b/src/pal/tests/palsuite/c_runtime/__iscsym/test1/__iscsym.c
new file mode 100644
index 0000000000..9c8f1d0f25
--- /dev/null
+++ b/src/pal/tests/palsuite/c_runtime/__iscsym/test1/__iscsym.c
@@ -0,0 +1,93 @@
+// Licensed to the .NET Foundation under one or more agreements.
+// The .NET Foundation licenses this file to you under the MIT license.
+// See the LICENSE file in the project root for more information.
+
+/*=============================================================
+**
+** Source: __iscsym.c
+**
+** Purpose: Positive test the __iscsym API.
+**          Call __iscsym to letter, digit and underscore
+**
+**
+**============================================================*/
+#include <palsuite.h>
+
+int __cdecl main(int argc, char *argv[])
+{
+    int err;
+    int index;
+    char non_letter_set[]=
+        {'~','`','!','@','#','$','%','^','&','*','(',')',')',
+            '-','+','=','|','\\',';',':','"','\'','<','>',
+            ',','.','?','/','\0'};
+    char errBuffer[200];
+
+    /*Initialize the PAL environment*/
+    err = PAL_Initialize(argc, argv);
+    if(0 != err)
+    {
+        return FAIL;
+    }
+  
+    /*To check if the parameter passed in is a character*/
+    for(index = 'a'; index <= 'z'; index++)
+    {
+        err = __iscsym(index);
+        if(0 == err)
+        {
+            Fail("\n__iscsym failed to recognize  a "
+                    "lower-case letter:%c!\n", index);
+        }
+    }
+    
+    /*To check if the parameter passed in is a character*/
+    for(index = 'A'; index <= 'Z'; index++)
+    {
+        err = __iscsym(index);
+        if(0 == err)
+        {
+            Fail("\n__iscsym failed to recognize an "
+                    "upper-case letter: %c!\n", index);
+        }
+    }
+
+    /*To check if the parameter passed in is a digit*/
+    for(index = '0'; index <= '9'; index++)
+    {
+        err = __iscsym(index);
+        if(0 == err)
+        {
+            Fail("\n__iscsym failed to recognize a digit %c!\n",
+                        index);
+        }
+    }
+
+    /*To check if the parameter passed in is a underscore*/
+    err = __iscsym('_');
+    if(0 == err)
+    {
+        Fail("\n__iscsym failed to recognize an underscore!\n");
+    }
+
+    memset(errBuffer, 0, 200);
+
+    for(index = 0; non_letter_set[index]; index++)
+    {
+        err = __iscsym(non_letter_set[index]);
+        if(0 != err)
+        {
+            strncat(errBuffer, &non_letter_set[index], 1);
+            strcat(errBuffer, ", ");
+        }
+    }
+
+    if(strlen(errBuffer) > 0)
+    {
+        Fail("\n__iscsym failed to identify the characters '%s' "
+             "as not letters, digits "
+             "or underscores\n", errBuffer);
+    }
+    PAL_Terminate();
+    return PASS;
+}