From d1d3480cd36ea66d68c5d8e6afada3be577a0c46 Mon Sep 17 00:00:00 2001
From: cxl <cxl@f0d560ea-af0d-0410-9eb7-867de7ffcac7>
Date: Fri, 21 Mar 2014 13:11:55 +0000
Subject: [PATCH] .upptst

git-svn-id: svn://ultimatepp.org/upp/trunk@7068 f0d560ea-af0d-0410-9eb7-867de7ffcac7
---
 upptst/SplitJoin/SplitJoin.cpp   | 26 ++++++++++++++++++++++++++
 upptst/SplitJoin/SplitJoin.upp   |  9 +++++++++
 upptst/SplitJoin/init            |  4 ++++
 upptst/StringFind/StringFind.cpp |  6 ++++++
 4 files changed, 45 insertions(+)
 create mode 100644 upptst/SplitJoin/SplitJoin.cpp
 create mode 100644 upptst/SplitJoin/SplitJoin.upp
 create mode 100644 upptst/SplitJoin/init

diff --git a/upptst/SplitJoin/SplitJoin.cpp b/upptst/SplitJoin/SplitJoin.cpp
new file mode 100644
index 000000000..85dfd94da
--- /dev/null
+++ b/upptst/SplitJoin/SplitJoin.cpp
@@ -0,0 +1,26 @@
+#include <Core/Core.h>
+
+using namespace Upp;
+
+CONSOLE_APP_MAIN
+{
+	StdLogSetup(LOG_COUT|LOG_FILE);
+	
+	Vector<String> h = Split("alfa,beta,,gamma", ',', false);
+//	DUMP(Join(h, ","));
+//	DUMP(Join(h, ",", true));
+	
+	String a, b, c;
+	
+	SplitTo("one", ',', a, b, c);
+	
+	DUMP(SplitTo("one", ',', a, b, c));
+	DUMP(SplitTo("one,two,,three", ',', a, b, c));
+	DUMP(MakeTuple(a, b, c));
+	DUMP(SplitTo("one,two,,three", ',', false, a, b, c));
+	DUMP(MakeTuple(a, b, c));
+	DUMP(SplitTo("one,two,,three", ",", a, b, c));
+	DUMP(MakeTuple(a, b, c));
+	DUMP(SplitTo("one,two,,three", ",", false, a, b, c));
+	DUMP(MakeTuple(a, b, c));
+}
diff --git a/upptst/SplitJoin/SplitJoin.upp b/upptst/SplitJoin/SplitJoin.upp
new file mode 100644
index 000000000..670361e0b
--- /dev/null
+++ b/upptst/SplitJoin/SplitJoin.upp
@@ -0,0 +1,9 @@
+uses
+	Core;
+
+file
+	SplitJoin.cpp;
+
+mainconfig
+	"" = "SSE2";
+
diff --git a/upptst/SplitJoin/init b/upptst/SplitJoin/init
new file mode 100644
index 000000000..269a315ed
--- /dev/null
+++ b/upptst/SplitJoin/init
@@ -0,0 +1,4 @@
+#ifndef _SplitJoin_icpp_init_stub
+#define _SplitJoin_icpp_init_stub
+#include "Core/init"
+#endif
diff --git a/upptst/StringFind/StringFind.cpp b/upptst/StringFind/StringFind.cpp
index c8cfa4b7d..289c17e25 100644
--- a/upptst/StringFind/StringFind.cpp
+++ b/upptst/StringFind/StringFind.cpp
@@ -13,6 +13,12 @@ void Check(T haystack, T needle, int pos)
 		DUMP(haystack.Find(needle));
 		NEVER();
 	}
+	if(haystack.ReverseFind(needle) != pos) {
+		DUMP(haystack);
+		DUMP(needle);
+		DUMP(haystack.ReverseFind(needle));
+		NEVER();
+	}
 }
 
 template <class T>