Menu
▾
▴
[Oorexx-svn] SF.net SVN: oorexx: [2043] test/trunk/ooRexx/base/class/String/ caselessAbbrev.testGroup
|
From: <mie...@us...> - 2008-01-03 06:12:37
|
Revision: 2043
http://oorexx.svn.sourceforge.net/oorexx/?rev=2043&view=rev
Author: miesfeld
Date: 2008-01-02 22:12:43 -0800 (Wed, 02 Jan 2008)
Log Message:
-----------
ooRexxUnit - forward port commit 2021 from 3.2.0 branch to trunk.
updated caselessAbbrev.testGroup
Modified Paths:
--------------
test/trunk/ooRexx/base/class/String/caselessAbbrev.testGroup
Modified: test/trunk/ooRexx/base/class/String/caselessAbbrev.testGroup
===================================================================
--- test/trunk/ooRexx/base/class/String/caselessAbbrev.testGroup 2008-01-03 06:11:40 UTC (rev 2042)
+++ test/trunk/ooRexx/base/class/String/caselessAbbrev.testGroup 2008-01-03 06:12:43 UTC (rev 2043)
@@ -132,5 +132,488 @@
self~assertTrue( "subTest5", "PRINT"~caselessABBREV("") )
self~assertFalse( "subTest6", "PRINT"~caselessABBREV("", 1) )
+::method "test_1"
+ self~assertSame("subTest1", .true, ''~caselessAbbrev(''))
+::method "test_2"
+ self~assertSame("subTest2", .false, ''~caselessAbbrev('a'))
+::method "test_3"
+ self~assertSame("subTest3", .true, 'a'~caselessAbbrev(''))
+
+::method "test_4"
+ self~assertSame("subTest4", .true, 'a'~caselessAbbrev('a'))
+
+::method "test_5"
+ self~assertSame("subTest5", .false, 'a'~caselessAbbrev('b'))
+
+::method "test_6"
+ s="XRANGE"('00'x,'FF'x)
+ Do i=0 To 256
+ s30="SUBSTR"(s,1,30)
+ t="SUBSTR"(s,1,i)
+ self~assertSame("subTest6-"i, .true, s~caselessAbbrev(t))
+ r="ABBREV"(s30,t)
+ If i<=30 Then
+ self~assertSame("subTest6-"i, .true, s30~caselessAbbrev(t))
+ Else /* longer string is never abbrev of shorter */
+ self~assertSame("subTest6-"i, .false, s30~caselessAbbrev(t))
+ End
+
+::method "test_8"
+ li=10000
+ s='abcdefghijklmnopqrstuvwxyz1234567890 '
+ slong="COPIES"(s,li)
+ tlong="COPIES"(s,li-1)
+ self~assertSame("subTest8", .true, slong~caselessAbbrev(slong))
+
+::method "test_9"
+ li=10000
+ slong="COPIES"(s,li)
+ tlong="COPIES"(s,li-1)
+ self~assertSame("subTest9", .true, slong~caselessAbbrev(tlong))
+
+::method "test_10"
+ li=10000
+ tlong=tlong||'x'
+ tlong="COPIES"(s,li-1)
+ self~assertSame("subTest10", .false, slong~caselessAbbrev('00'x))
+
+::method "test_11"
+ self~assertSame("subTest11", .false, slong~caselessAbbrev(tlong))
+
+::method "test_12"
+ self~assertSame("subTest12", .true, ''~caselessAbbrev('', 0))
+
+::method "test_13"
+ self~assertSame("subTest13", .false, ''~caselessAbbrev('', 1))
+
+::method "test_14"
+ self~assertSame("subTest14", .false, ''~caselessAbbrev('a', 1))
+
+::method "test_15"
+ self~assertSame("subTest15", .false, 'a'~caselessAbbrev('', 1))
+
+::method "test_16"
+ self~assertSame("subTest16", .true, 'a'~caselessAbbrev('a', 0))
+
+::method "test_17"
+ self~assertSame("subTest17", .true, 'a'~caselessAbbrev('a', 1))
+
+::method "test_18"
+ self~assertSame("subTest18", .false, 'a'~caselessAbbrev('a', 2))
+
+::method "test_19"
+ self~assertSame("subTest19", .false, 'a'~caselessAbbrev('b', 1))
+
+::method "test_20"
+ s="XRANGE"('00'x,'FF'x)
+ Do i=0 To 256
+ s30="SUBSTR"(s,1,30)
+ t="SUBSTR"(s,1,i)
+ i1="MAX"(i-1,0)
+ i2=i+1
+ self~assertSame("subTest20-"i'-1', .true, s~caselessAbbrev(t, i1))
+ self~assertSame("subTest20-"i'-2', .true, s~caselessAbbrev(t, i))
+ self~assertSame("subTest20-"i'-3', .false, s~caselessAbbrev(t, i2))
+ If 15<=i & i<=30 Then
+ self~assertSame("subTest20-"i'-4', .true, s30~caselessAbbrev(t, 15))
+ Else
+ self~assertSame("subTest20-"i'-4', .false, s30~caselessAbbrev(t, 15))
+ End
+
+::method "test_21"
+ li=10000
+ s='abcdefghijklmnopqrstuvwxyz1234567890 '
+ slong="COPIES"(s,li)
+ tlong="COPIES"(s,li-1)
+ self~assertSame("subTest21", .true, slong~caselessAbbrev(slong, 30*li))
+
+::method "test_23"
+ li=10000
+ ll=2**29-1
+ s='abcdefghijklmnopqrstuvwxyz1234567890 '
+ slong="COPIES"(s,li)
+ self~assertSame("subTest22", .false, slong~caselessAbbrev(slong, ll))
+
+::method "test_24"
+ li=10000
+ s='abcdefghijklmnopqrstuvwxyz1234567890 '
+ slong="COPIES"(s,li)
+ tlong="COPIES"(s,li-1)
+ self~assertSame("subTest24", .true, slong~caselessAbbrev(tlong, (li-1)*length(s)))
+
+::method "test_25"
+ li=10000
+ s='abcdefghijklmnopqrstuvwxyz1234567890 '
+ slong="COPIES"(s,li)
+ tlong="COPIES"(s,li-1)
+ tlong=tlong||'x'
+ self~assertSame("subTest25", .false, slong~caselessAbbrev('00'x, 1))
+
+::method "test_26"
+ li=10000
+ s='abcdefghijklmnopqrstuvwxyz1234567890 '
+ slong="COPIES"(s,li)
+ tlong="COPIES"(s,li-1)
+ tlong=tlong||'x'
+ self~assertSame("subTest26", .false, slong~caselessAbbrev(tlong, 0000100))
+
+::method "test_27"
+ inform='Walter Pachl'
+ info='Wal'
+ self~assertSame("subTest27", .true, inform~caselessAbbrev(info, 3))
+
+::method "test_28"
+ inform='Walter Pachl'
+ info='Wal'
+ self~assertSame("subTest28", .false, inform~caselessAbbrev(info, 004))
+
+::method "test_29"
+ inform='Walter Pachl'
+ info='Wal'
+ self~assertSame("subTest29", .true, inform~caselessAbbrev(info, 2E0))
+
+::method "test_30"
+ inform='Walter Pachl'
+ info='Wal'
+ self~assertSame("subTest30", .false, inform~caselessAbbrev(info, 02E+00000002))
+
+::method "test_31"
+ inform='Walter Pachl'
+ info='Wal'
+ self~assertSame("subTest31", .true, inform~caselessAbbrev(info, ' 3 '))
+
+::method "test_32"
+ inform='Walter Pachl'
+ info='Wal'
+ self~assertSame("subTest32", .true, inform~caselessAbbrev(info, '20202B2033'x))
+
+::method "test_35"
+ inform='Walter Pachl'
+ info='Wal'
+ a=3
+ self~assertSame("subTest35", .true, inform~caselessAbbrev(info, a))
+
+::method "test_36"
+ inform='Walter Pachl'
+ info='Wal'
+ a=3
+ self~assertSame("subTest36", .true, inform~caselessAbbrev(info, a-1))
+
+::method "test_42"
+ inform='Walter Pachl'
+ info='Wal'
+ do i=0 to 255
+ x="D2C"(i)
+ info=x||x||x
+ self~assertSame("subTest42"i'-1', .true, info~caselessAbbrev(x))
+ If "ABBREV"(info,' ') Then
+ self~assertSame("subTest42"i'-2', .true, info~caselessAbbrev(' '))
+ End
+
+::method "test_43"
+ self~assertSame("subTest43", .true, '1.000003'~caselessAbbrev(1.000, 5))
+
+::method "test_44"
+ self~assertSame("subTest44", .true, '12345678'x~caselessAbbrev('123456'x, 2))
+
+::method "test_45"
+ n='translator'
+ self~assertSame("subTest45", .true, n~caselessAbbrev('tr', 2))
+
+::method "test_46"
+ n=17+4
+ self~assertSame("subTest46", .true, n~caselessAbbrev(+.2e1, 1))
+
+::method "test_47"
+ self~assertSame("subTest47", .true, novalue~caselessAbbrev('NOV'))
+
+::method "test_48"
+ self~assertSame("subTest48", .true, 'NOVALUE'~caselessAbbrev(nov))
+
+::method "test_49"
+ self~expectSyntax(93.905)
+ self~assertSame("subTest49", .false, 'NOVALUE'~caselessAbbrev('NOV', novalue))
+
+::method "test_50"
+ self~assertSame("subTest50", .true, novalue~caselessAbbrev('NOV'))
+
+::method "test_51"
+ self~assertSame("subTest51", .true, ''~caselessAbbrev(''))
+
+::method "test_52"
+ self~assertSame("subTest52", .true, 'a'~caselessAbbrev(''))
+
+::method "test_53"
+ self~assertSame("subTest53", .true, v30~caselessAbbrev(''))
+
+::method "test_54"
+ self~assertSame("subTest54", .true, v250~caselessAbbrev(''))
+
+::method "test_55"
+ v255="XRANGE"('00'x,'FF'x)
+ self~assertSame("subTest55", .true, v255~caselessAbbrev(''))
+
+::method "test_56"
+ v10000 ="COPIES"('123456789Z',1000)
+ self~assertSame("subTest56", .true, v10000~caselessAbbrev(''))
+
+::method "test_57"
+ self~assertSame("subTest57", .true, (12+4)~caselessAbbrev(''))
+
+::method "test_58"
+ self~assertSame("subTest58", .false, ''~caselessAbbrev('X'))
+
+::method "test_59"
+ self~assertSame("subTest59", .true, 'a'~caselessAbbrev('a'))
+
+::method "test_60"
+ v30 ='abcdefghijklmnopqrstuvwxyz1234'
+ self~assertSame("subTest60", .true, v30~caselessAbbrev('abc'))
+
+::method "test_61"
+ v250='"'||"XRANGE"('00'x,'7E'x)||'""'||"XRANGE"('80'x,'F9'x)||'"'
+ self~assertSame("subTest61", .false, v250~caselessAbbrev('0001'x))
+
+::method "test_62"
+ v255="XRANGE"('00'x,'FF'x)
+ self~assertSame("subTest62", .true, v255~caselessAbbrev('0001'x))
+
+::method "test_63"
+ v10000 ="COPIES"('123456789Z',1000)
+ v9999 ="LEFT"(v10000,9999)
+ self~assertSame("subTest63", .true, v10000~caselessAbbrev(v9999))
+
+::method "test_64"
+ self~assertSame("subTest64", .true, (12+4)~caselessAbbrev('1'))
+
+::method "test_65"
+ self~assertSame("subTest65", .false, 'a'~caselessAbbrev('b'))
+
+::method "test_66"
+ v30 ='abcdefghijklmnopqrstuvwxyz1234'
+ self~assertSame("subTest66", .false, v30~caselessAbbrev('acb'))
+
+::method "test_67"
+ v250='"'||"XRANGE"('00'x,'7E'x)||'""'||"XRANGE"('80'x,'F9'x)||'"'
+ self~assertSame("subTest67", .false, v250~caselessAbbrev('0102'x))
+
+::method "test_68"
+ v255="XRANGE"('00'x,'FF'x)
+ self~assertSame("subTest68", .false, v255~caselessAbbrev('fffe'x))
+
+::method "test_69"
+ v10000 ="COPIES"('123456789Z',1000)
+ v9998 ="RIGHT"(v10000,9998)
+ self~assertSame("subTest69", .false, v10000~caselessAbbrev(v9998))
+
+::method "test_70"
+ self~assertSame("subTest70", .false, (12+4)~caselessAbbrev('2'))
+
+::method "test_71"
+ self~assertSame("subTest71", .false, 'aa'~caselessAbbrev('bb'))
+
+::method "test_72"
+ v30 ='abcdefghijklmnopqrstuvwxyz1234'
+ self~assertSame("subTest72", .true, v30~caselessAbbrev(v30))
+
+::method "test_73"
+ v250='"'||"XRANGE"('00'x,'7E'x)||'""'||"XRANGE"('80'x,'F9'x)||'"'
+ self~assertSame("subTest73", .true, v250~caselessAbbrev(v250))
+
+::method "test_74"
+ v255="XRANGE"('00'x,'FF'x)
+ self~assertSame("subTest74", .true, v255~caselessAbbrev(v255))
+
+::method "test_75"
+ v10000 ="COPIES"('123456789Z',1000)
+ self~assertSame("subTest75", .true, v10000~caselessAbbrev(v10000))
+
+::method "test_76"
+ self~assertSame("subTest76", .true, (12+4)~caselessAbbrev('16'))
+
+::method "test_77"
+ self~assertSame("subTest77", .false, 'aa'~caselessAbbrev('aaa'))
+
+::method "test_78"
+ v30 ='abcdefghijklmnopqrstuvwxyz1234'
+ self~assertSame("subTest78", .false, v30~caselessAbbrev(v30||'5'))
+
+::method "test_79"
+ v250='"'||"XRANGE"('00'x,'7E'x)||'""'||"XRANGE"('80'x,'F9'x)||'"'
+ self~assertSame("subTest79", .false, v250~caselessAbbrev(v250||'.'))
+
+::method "test_80"
+ v255="XRANGE"('00'x,'FF'x)
+ v10000 ="COPIES"('123456789Z',1000)
+ self~assertSame("subTest80", .false, v255~caselessAbbrev(v10000))
+
+::method "test_81"
+ v10000 ="COPIES"('123456789Z',1000)
+ v10001.=v10000.||'*'
+ self~assertSame("subTest81", .false, v10000~caselessAbbrev(v10001))
+
+::method "test_82"
+ self~assertSame("subTest82", .false, (12+4)~caselessAbbrev('16 '))
+
+::method "test_83"
+ self~assertSame("subTest83", .false, (12+4)~caselessAbbrev('4+11+1'))
+
+::method "test_84"
+ self~assertSame("subTest84", .true, 'aa'~caselessAbbrev('a', 0))
+
+::method "test_85"
+ v30 ='abcdefghijklmnopqrstuvwxyz1234'
+ self~assertSame("subTest85", .true, v30~caselessAbbrev('abc', 0))
+
+::method "test_86"
+ v250='"'||"XRANGE"('00'x,'7E'x)||'""'||"XRANGE"('80'x,'F9'x)||'"'
+ self~assertSame("subTest86", .false, v250~caselessAbbrev('0001'x, 0))
+
+::method "test_87"
+ v255="XRANGE"('00'x,'FF'x)
+ self~assertSame("subTest87", .true, v255~caselessAbbrev('0001'x, 0))
+
+::method "test_88"
+ v10000 ="COPIES"('123456789Z',1000)
+ v9999 ="LEFT"(v10000,9999)
+ self~assertSame("subTest88", .true, v10000~caselessAbbrev(v9999, 0))
+
+::method "test_89"
+ self~assertSame("subTest89", .true, (12+4)~caselessAbbrev('1', 0))
+
+::method "test_90"
+ self~assertSame("subTest90", .true, 'aba'~caselessAbbrev('ab', 1))
+
+::method "test_91"
+ v30 ='abcdefghijklmnopqrstuvwxyz1234'
+ self~assertSame("subTest91", .true, v30~caselessAbbrev('abc', 2))
+
+::method "test_92"
+ v250='"'||"XRANGE"('00'x,'7E'x)||'""'||"XRANGE"('80'x,'F9'x)||'"'
+ self~assertSame("subTest92", .false, v250~caselessAbbrev('0001'x, 1))
+
+::method "test_93"
+ v255="XRANGE"('00'x,'FF'x)
+ self~assertSame("subTest93", .true, v255~caselessAbbrev('000102'x, 2))
+
+::method "test_94"
+ v10000 ="COPIES"('123456789Z',1000)
+ v9999 ="LEFT"(v10000,9999)
+ self~assertSame("subTest94", .true, v10000~caselessAbbrev(v9999, 9998))
+
+::method "test_95"
+ self~assertSame("subTest95", .true, (123+4)~caselessAbbrev('12', 1))
+
+::method "test_96"
+ self~assertSame("subTest96", .true, 'aba'~caselessAbbrev('ab', 2))
+
+::method "test_97"
+ v30 ='abcdefghijklmnopqrstuvwxyz1234'
+ self~assertSame("subTest97", .true, v30~caselessAbbrev('abc', 3))
+
+::method "test_98"
+ v250='"'||"XRANGE"('00'x,'7E'x)||'""'||"XRANGE"('80'x,'F9'x)||'"'
+ self~assertSame("subTest98", .false, v250~caselessAbbrev('0001'x, 2))
+
+::method "test_99"
+ v255="XRANGE"('00'x,'FF'x)
+ self~assertSame("subTest99", .true, v255~caselessAbbrev('000102'x, 03))
+
+::method "test_100"
+ v10000 ="COPIES"('123456789Z',1000)
+ v9999 ="LEFT"(v10000,9999)
+ self~assertSame("subTest100", .true, v10000~caselessAbbrev(v9999, 9999))
+
+::method "test_101"
+ self~assertSame("subTest101", .true, (123+4)~caselessAbbrev('12', 2))
+
+::method "test_102"
+ self~assertSame("subTest102", .false, 'aba'~caselessAbbrev('ab', 4))
+
+::method "test_103"
+ v30 ='abcdefghijklmnopqrstuvwxyz1234'
+ self~assertSame("subTest103", .false, v30~caselessAbbrev('abc', 4))
+
+::method "test_104"
+ v250='"'||"XRANGE"('00'x,'7E'x)||'""'||"XRANGE"('80'x,'F9'x)||'"'
+ self~assertSame("subTest104", .false, v250~caselessAbbrev('0001'x, 3))
+
+::method "test_105"
+ v255="XRANGE"('00'x,'FF'x)
+ self~assertSame("subTest105", .false, v255~caselessAbbrev('000102'x, 4))
+
+::method "test_106"
+ v10000 ="COPIES"('123456789Z',1000)
+ v9999 ="LEFT"(v10000,9999)
+ self~assertSame("subTest106", .false, v10000~caselessAbbrev(v9999, 10000))
+
+::method "test_107"
+ self~assertSame("subTest107", .false, (123+4)~caselessAbbrev('12', 4))
+
+::method "test_108"
+ self~assertSame("subTest108", .true, 1.00000000000003~caselessAbbrev(1.00))
+
+::method "test_109"
+ self~assertSame("subTest109", .true, 1.00000000000003~caselessAbbrev(1.00, 1.00))
+
+::method "test_110"
+ self~assertSame("subTest110", .true, ' 1.2E+99999999999999 '~caselessAbbrev(' 1.2E+99', 3))
+
+::method "test_111"
+ self~assertSame("subTest111", .true, noval~caselessAbbrev(n))
+
+::method "test_112"
+ self~expectSyntax(93.905)
+ self~assertSame("subTest112", .false, noval~caselessAbbrev(1, n))
+
+::method "test_113"
+ self~assertSame("subTest113", .true, n~caselessAbbrev(n))
+
+::method "test_114"
+ self~assertSame("subTest114", .false, 'N.NN'~caselessAbbrev(n, 3))
+
+::method "test_115"
+ self~expectSyntax(93.905)
+ self~assertSame("subTest115", .false, 'NNNN'~caselessAbbrev('N', n))
+
+::method "test_116"
+ three=3
+ self~assertSame("subTest116", .false, 'NNNN'~caselessAbbrev('N', three))
+
+::method "test_117"
+ self~assertSame("subTest117", .true, noval.1~caselessAbbrev(n))
+
+::method "test_118"
+ self~assertSame("subTest118", .true, 'NNNN'~caselessAbbrev(n))
+
+::method "test_119"
+ self~assertSame("subTest119", .true, 'N.NN'~caselessAbbrev(n))
+
+::method "test_120"
+ self~assertSame("subTest120", .false, 'N.3N'~caselessAbbrev(n, 3))
+
+::method "test_121"
+ Numeric Digits 1
+ self~assertSame("subTest121", .false, '12345678900987654321'~caselessAbbrev('1234567890012', 12))
+
+::method "test_122"
+ Numeric Digits 1
+ self~assertSame("subTest122", .true, '12345678900987654321'~caselessAbbrev('12345678900', +12))
+
+::method "test_123"
+ Numeric Digits 1
+ self~assertSame("subTest123", .false, '12345678900987654321'~caselessAbbrev('1234567890012', 1e1))
+
+::method "test_124"
+ Numeric Digits 1
+ self~assertSame("subTest124", .false, '12345678900987654321'~caselessAbbrev('1234567890012', +0.01e2))
+
+::method "test_125"
+ self~expectSyntax(93.905)
+ self~assertSame("subTest125", .false, '12345678900987654321'~caselessAbbrev('1234567890012', +0.01e1))
+
+
+
+
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|