Initial community commit

Src/external_dependencies/openmpt-trunk/include/genie/tests/test_string.lua

@@ -0,0 +1,73 @@
+--
+-- tests/test_string.lua
+-- Automated test suite for the new string functions.
+-- Copyright (c) 2008 Jason Perkins and the Premake project
+--
+
+
+	T.string = { }
+
+
+--
+-- string.endswith() tests
+--
+
+	function T.string.endswith_ReturnsTrue_OnMatch()
+		test.istrue(string.endswith("Abcdef", "def"))
+	end
+
+	function T.string.endswith_ReturnsFalse_OnMismatch()
+		test.isfalse(string.endswith("Abcedf", "efg"))
+	end
+	
+	function T.string.endswith_ReturnsFalse_OnLongerNeedle()
+		test.isfalse(string.endswith("Abc", "Abcdef"))
+	end
+	
+	function T.string.endswith_ReturnsFalse_OnNilHaystack()
+		test.isfalse(string.endswith(nil, "ghi"))
+	end
+
+	function T.string.endswith_ReturnsFalse_OnNilNeedle()
+		test.isfalse(string.endswith("Abc", nil))
+	end
+	
+	function T.string.endswith_ReturnsTrue_OnExactMatch()
+		test.istrue(string.endswith("/", "/"))
+	end
+
+
+
+--
+-- string.explode() tests
+--
+
+	function T.string.explode_ReturnsParts_OnValidCall()
+		test.isequal({"aaa","bbb","ccc"}, string.explode("aaa/bbb/ccc", "/", true))
+	end
+
+
+
+--
+-- string.startswith() tests
+--
+
+	function T.string.startswith_OnMatch()
+		test.istrue(string.startswith("Abcdef", "Abc"))
+	end
+
+	function T.string.startswith_OnMismatch()
+		test.isfalse(string.startswith("Abcdef", "ghi"))
+	end
+
+	function T.string.startswith_OnLongerNeedle()
+		test.isfalse(string.startswith("Abc", "Abcdef"))
+	end
+
+	function T.string.startswith_OnEmptyHaystack()
+		test.isfalse(string.startswith("", "Abc"))
+	end
+
+	function T.string.startswith_OnEmptyNeedle()
+		test.istrue(string.startswith("Abcdef", ""))
+	end