--- a/tests/PPAbstractParserTest.st	Mon Apr 13 14:19:55 2015 +0100
+++ b/tests/PPAbstractParserTest.st	Mon Apr 13 22:00:44 2015 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:goodies/petitparser/tests' }"
 
+"{ NameSpace: Smalltalk }"
+
 TestCase subclass:#PPAbstractParserTest
 	instanceVariableNames:''
 	classVariableNames:''
@@ -51,6 +53,12 @@
 	^ result
 !
 
+assert: string1 includesSubstring: string2
+	"Support portability by using ANSI search method"
+
+	self assert: (string1 notEmpty and: [string2 notEmpty and: [0 < (string1 indexOfSubCollection: string2 startingAt: 1)]])
+!
+
 assert: aParser parse: aCollection
 	^ self assert: aParser parse: aCollection to: nil end: aCollection size 
 !