1 files changed, 42 insertions, 0 deletions
diff --git a/src/pal/tests/palsuite/locale_info/GetACP/test1/test1.cpp b/src/pal/tests/palsuite/locale_info/GetACP/test1/test1.cpp
new file mode 100644
index 0000000000..8ea078ee69
--- /dev/null
+++ b/src/pal/tests/palsuite/locale_info/GetACP/test1/test1.cpp
@@ -0,0 +1,42 @@
+// 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:  test1.c
+**
+** Purpose: Tests that GetACP returns the expected default code page.
+**
+**
+**==========================================================================*/
+
+
+#include <palsuite.h>
+
+/* 
+ * NOTE: We only support code page 65001 (UTF-8).
+ */
+
+#define EXPECTED_CP     65001
+
+int __cdecl main(int argc, char *argv[])
+{
+    int ret;
+
+    if (PAL_Initialize(argc, argv))
+    {
+        return FAIL;
+    }
+
+    ret = GetACP();
+    if (ret != EXPECTED_CP)
+    {
+        Fail("ERROR: got incorrect result for current ANSI code page!\n"
+            "Expected %d, got %d\n", EXPECTED_CP, ret);
+    }
+    
+    PAL_Terminate();
+    return PASS;
+}
+