1 files changed, 49 insertions, 0 deletions
diff --git a/test/Unit/index.cpp b/test/Unit/index.cpp
new file mode 100644
index 0000000..ed5107b
--- /dev/null
+++ b/test/Unit/index.cpp
@@ -0,0 +1,49 @@
+//===-- index.cpp - Test libflang_index_char* -----------------------------===//
+//
+// The LLVM Compiler Infrastructure
+//
+// This file is dual licensed under the MIT and the University of Illinois Open
+// Source Licenses. See LICENSE.TXT for details.
+//
+//===----------------------------------------------------------------------===//
+
+#include <assert.h>
+#include <string.h>
+#include <iostream>
+#include "Strings/Character.h"
+
+static bool testIndex(const char *str, const char *substr, size_t expected, bool back = false) {
+  auto x = libflang_index_char1(str, strlen(str), substr, strlen(substr),
+                                back? 1:0);
+  if(x != expected)
+    std::cout << "Error in libflang_index - expected " << expected
+              << ", got " << x << std::endl;
+  return x != expected;
+}
+
+int main() {
+  if(testIndex("FORTRAN","R",3))
+    return 1;
+  if(testIndex("FORTRAN","R",5,true))
+    return 1;
+  if(testIndex("hello","ell",2))
+    return 1;
+  if(testIndex("hello","ell",2,true))
+    return 1;
+  if(testIndex("hello","world",0))
+    return 1;
+  if(testIndex("hello","world",0,true))
+    return 1;
+  if(testIndex("A","a",0))
+    return 1;
+  if(testIndex("hell","hello",0))
+    return 1;
+  if(testIndex("hell","hello",0,true))
+    return 1;
+  if(testIndex("hello","",1))
+    return 1;
+  if(testIndex("hello","",6,true))
+    return 1;
+  return 0;
+}
+