Diff of /test/trunk/ooRexx/base/bif/STRIP.testGroup [r8282] .. [r8283] Maximize Restore

  Switch to side-by-side view

--- a/test/trunk/ooRexx/base/bif/STRIP.testGroup
+++ b/test/trunk/ooRexx/base/bif/STRIP.testGroup
@@ -1,7 +1,7 @@
 #!/usr/bin/rexx
 /*
-  SVN Revision: $Rev: 3371 $
-  Change Date:  $Date: 2008-09-21 04:33:29 +0000 (Sun, 21 Sep 2008) $
+  SVN Revision: $Rev: 8283 $
+  Change Date:  $Date: 2012-08-27 10:49:47 +0000 (Mon, 27 Aug 2012) $
 */
 /*----------------------------------------------------------------------------*/
 /*                                                                            */
@@ -72,15 +72,13 @@
     self~assertSame(' @@aaa@@ ', strip('@ @@aaa@@ @',,'@'))
 
 ::method 'test004'
-    self~expectSyntax(93.922)
-    xre = strip('@ @@aaa@@ @',,'')
+    self~assertSame('@ @@aaa@@ @', strip('@ @@aaa@@ @',,''))
 
 ::method 'test005'
     self~assertSame('aaa', strip('@@@aaa@@@',,'@'))
 
 ::method 'test006'
-    self~expectSyntax(93.922)
-    xre = strip('@@@aaa@@@',,'@@')
+    self~assertSame('aaa', strip('@@@aaa@@@',,'@@'))
 
 ::method 'test007'
     self~assertSame('aaa@@@', strip('@@@aaa@@@','L','@'))
@@ -113,8 +111,7 @@
     self~assertSame('aaa', strip(' aaa ','B',' '))
 
 ::method 'test017'
-    self~expectSyntax(93.922)
-    xre = strip(' aaa ','B','  ')
+    self~assertSame('aaa', strip(' aaa ','B','  '))
 
 ::method 'test018'
     self~expectSyntax(93.915)
@@ -160,8 +157,7 @@
     self~assertSame('     '||.v256, strip('     '||.v256||'     ',tbl))
 
 ::method 'test032'
-    self~expectSyntax(93.922)
-    xre = strip('no.v1',,no.v2)
+    self~assertSame('1', strip('NO.V1',,no.v2))
 
 ::method 'test033'
     self~assertSame('0', strip(202+202,,'4'))
@@ -318,10 +314,6 @@
     self~expectSyntax(93.915)
     xre = strip(.s,nov.2)
 
-::method 'test075'
-    self~expectSyntax(93.922)
-    xre = strip(.s,'b',nov3)
-
 ::method 'test076'
     self~expectSyntax(93.915)
     xre = strip(nov1,nov2,nov3)
@@ -343,8 +335,7 @@
     self~assertSame('12.7', strip(12.70000,,+00))
 
 ::method 'test082'
-    self~expectSyntax(93.922)
-    xre = strip(12.70000,,00)
+    self~assertSame('12.7', strip(12.70000,,00))
 
 ::method 'test083'
     self~assertSame('6', strip(12*5,,0))
@@ -442,3 +433,14 @@
     self~assertSame('', STRIP(''    ))
     self~assertSame('', STRIP('    '))
 
+::method testMultiChar
+  self~assertSame("a-+b", strip("+-+-a-+b-+-+",,"-+"))
+  self~assertSame("a-+b", strip("+-+-a-+b-+-+",'B',"-+"))
+  self~assertSame("a-+b-+-+", strip("+-+-a-+b-+-+",'L',"-+"))
+  self~assertSame("+-+-a-+b", strip("+-+-a-+b-+-+",'T',"-+"))
+  self~assertSame("abc", strip("abc",,""))
+  self~assertSame("", strip("+-+--+-+-+",,"-+"))
+  self~assertSame("abc", strip('0001'x||"abc"||'0100'x,,'0001'x))
+
+
+