From: <mie...@us...> - 2007-12-15 23:06:38
|
Revision: 1566 http://oorexx.svn.sourceforge.net/oorexx/?rev=1566&view=rev Author: miesfeld Date: 2007-12-15 15:06:43 -0800 (Sat, 15 Dec 2007) Log Message: ----------- ooRexxUnit - back port commit 1474 from trunk to 3.2.0 ArtifactID: None Comment: Added the BITOR test group. Small cleanup in some others. Modified Paths: -------------- test/branches/test.3.2.0/ooRexx/base/BIF.testGroup test/branches/test.3.2.0/ooRexx/base/bif/ABS.testGroup test/branches/test.3.2.0/ooRexx/base/bif/B2X.testGroup test/branches/test.3.2.0/ooRexx/base/bif/BITAND.testGroup Added Paths: ----------- test/branches/test.3.2.0/ooRexx/base/bif/BITOR.testGroup Modified: test/branches/test.3.2.0/ooRexx/base/BIF.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/BIF.testGroup 2007-12-15 23:04:55 UTC (rev 1565) +++ test/branches/test.3.2.0/ooRexx/base/BIF.testGroup 2007-12-15 23:06:43 UTC (rev 1566) @@ -154,25 +154,6 @@ -- test the BIF, using examples from the documentation -::method "test_BITAND" - self~assertSame("subTest1", '12'x , BITAND('12'x) ) - self~assertSame("subTest2", '23'x , BITAND('73'x,'27'x) ) - self~assertSame("subTest3", '1155'x , BITAND('13'x,'5555'x) ) - self~assertSame("subTest4", '1154'x , BITAND('13'x,'5555'x,'74'x) ) - self~assertSame("subTest5", 'PQRS' , BITAND('pQrS', ,'DF'x) ) - - - -- test the BIF, using examples from the documentation -::method "test_BITOR" - self~assertSame("subTest1", '12'x , BITOR('12'x) ) - self~assertSame("subTest2", '35'x , BITOR('15'x,'24'x) ) - self~assertSame("subTest3", '3556'x , BITOR('15'x,'2456'x) ) - self~assertSame("subTest4", '35F6'x , BITOR('15'x,'2456'x,'F0'x) ) - self~assertSame("subTest5", '5D5D'x , BITOR('1111'x, ,'4D'x) ) - self~assertSame("subTest6", 'pqrs' , BITOR('pQrS', ,'20'x) ) - - - -- test the BIF, using examples from the documentation ::method "test_BITXOR" self~assertSame("subTest1", '12'x , BITXOR('12'x) ) self~assertSame("subTest2", '30'x , BITXOR('12'x,'22'x) ) Modified: test/branches/test.3.2.0/ooRexx/base/bif/ABS.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/ABS.testGroup 2007-12-15 23:04:55 UTC (rev 1565) +++ test/branches/test.3.2.0/ooRexx/base/bif/ABS.testGroup 2007-12-15 23:06:43 UTC (rev 1566) @@ -311,11 +311,3 @@ ::method "test_102" self~assertSame("subTest102", 0.307, ABS(' -0.307')) - - - - - - - - Modified: test/branches/test.3.2.0/ooRexx/base/bif/B2X.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/B2X.testGroup 2007-12-15 23:04:55 UTC (rev 1565) +++ test/branches/test.3.2.0/ooRexx/base/bif/B2X.testGroup 2007-12-15 23:06:43 UTC (rev 1566) @@ -119,7 +119,6 @@ return testGroupList - ::requires ooRexxUnit.cls -- load the ooRexxUnit classes ::class "B2X.testGroup" subclass TestCase public @@ -250,5 +249,3 @@ ::method "test_104" self~assertSame("subTest104", B2X('1 1111 0000'), '1F0') - - Modified: test/branches/test.3.2.0/ooRexx/base/bif/BITAND.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/BITAND.testGroup 2007-12-15 23:04:55 UTC (rev 1565) +++ test/branches/test.3.2.0/ooRexx/base/bif/BITAND.testGroup 2007-12-15 23:06:43 UTC (rev 1566) @@ -124,10 +124,6 @@ ::class "BITAND.testGroup" subclass TestCase public ---::method "test_1" --- self~expectSyntax(40.3) --- self~assertSame("subTest1", b2x(), '') - ::method "test_1" self~assertSame("subTest1", bitand(''), '') Copied: test/branches/test.3.2.0/ooRexx/base/bif/BITOR.testGroup (from rev 1474, test/trunk/ooRexx/base/bif/BITOR.testGroup) =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/BITOR.testGroup (rev 0) +++ test/branches/test.3.2.0/ooRexx/base/bif/BITOR.testGroup 2007-12-15 23:06:43 UTC (rev 1566) @@ -0,0 +1,561 @@ +#!/usr/bin/rexx +/* + name: String.testGroup + author: W. David Ashley + date: 2007-12-08 + version: 1.0.1 + +-- line commented lines are ignored, when building the directory of infos from this header + changed: 2007-12-08, ---wda, initial creation + + languageLevel: 6.02 + purpose: Test the BITOR function + remark: Initial test unit for demonstration purposes, needs to be completed. + + license: CPL 1.0 (Common Public License v1.0, see below) + link: + + category1: ooRexx + category2: Base + category3: BIF +*/ +/*----------------------------------------------------------------------------*/ +/* */ +/* Copyright (c) 2005-2008 Rexx Language Association. All rights reserved. */ +/* */ +/* This program and the accompanying materials are made available under */ +/* the terms of the Common Public License v1.0 which accompanies this */ +/* distribution. A copy is also available at the following address: */ +/* http://www.ibm.com/developerworks/oss/CPLv1.0.htm */ +/* */ +/* Redistribution and use in source and binary forms, with or */ +/* without modification, are permitted provided that the following */ +/* conditions are met: */ +/* */ +/* Redistributions of source code must retain the above copyright */ +/* notice, this list of conditions and the following disclaimer. */ +/* Redistributions in binary form must reproduce the above copyright */ +/* notice, this list of conditions and the following disclaimer in */ +/* the documentation and/or other materials provided with the distribution. */ +/* */ +/* Neither the name of Rexx Language Association nor the names */ +/* of its contributors may be used to endorse or promote products */ +/* derived from this software without specific prior written permission. */ +/* */ +/* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS */ +/* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT */ +/* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS */ +/* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT */ +/* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, */ +/* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED */ +/* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, */ +/* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY */ +/* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING */ +/* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS */ +/* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ +/* */ +/*----------------------------------------------------------------------------*/ + + + +------------------------------------------------------------------------------------------- +-- ===> adapt the "testGroupList" to your testCase classes; each element in the list is <=== +-- ===> an array object, the first element containing the testCase class object, the <=== +-- ===> second element is a list of test method names which are regarded to be <=== +-- ===> mandatory (if the list remains empty all test methods are mandatory) <=== + + /* list of array objects, each containing the testGroup class object and an + optional list of mandatory test case methods name */ + +mandatoryTestMethods=.list~new -- no mandatory tests for this testCase class +testGroupList=.list~of( .array~of(.BITOR.testGroup, mandatoryTestMethods) ) + + +------------------------------------------------------------------------------------------- +-- ===> the following code needs not to be individualized <=== + + -- read top comment, containing infos about this program +arrLines=.array~new +do i=1 to 150 until arrLines[i]="*/" + arrLines[i]=sourceline(i) +end + -- supply information for the testClass(es) in this file; the class attribute + -- "TestCaseInfo" (a directory object, index points to a queue) will store + -- the parsed infos +aTestGroupClass=testGroupList~at(testGroupList~first)[1] -- get first testClass + + -- will parse the array lines and store result in class object +call makeDirTestInfo aTestGroupClass, arrLines +tmpDir=aTestGroupClass~TestCaseInfo +parse source s -- op_sys invocationType fullPathToThisFile +tmpDir~setentry("test_Case-source", s) + + -- now add this directory to other testCase classes, if any left +do arr over testGroupList + if arr[1]=aTestGroupClass then iterate -- already handled + arr[1]~TestCaseInfo=tmpDir -- save info in class object +end + +-- if this file is CALLed or REQUIRED then define an entry "bRunTestLocally" in .local +-- and set it to .false; this way the independent local invocation of the tests is inhibited +if .local~hasentry("bRunTestsLocally")=.false then + .local~bRunTestsLocally=.true -- if this file is executed directly, then run tests for debugging + +if .bRunTestsLocally=.true then -- run ALL tests in this test unit +do + ts=.testSuite~new -- create a testSuite + do arr over testGroupList + -- create a testSuite for the given test case class, use all its testmethods + ts~addTest( .testSuite~new(arr[1])) + end + -- testResult=.testSuite~new(testGroupClass)~run + testResult=ts~run -- now run all the tests + + call simpleDumpTestResults testResult +end + + /* return list of array objects containing test case classes and + optionally list of mandatory test methods */ +return testGroupList + + + +::requires ooRexxUnit.cls -- load the ooRexxUnit classes + +::class "BITOR.testGroup" subclass TestCase public + +::method "test_1" + self~assertSame("subTest1", bitor(''), '') + +::method "test_2" + self~assertSame("subTest2", bitor('X'), 'X') + +::method "test_3" + self~assertSame("subTest3", bitor('C1'x), 'C1'x) + +::method "test_4" + self~assertSame("subTest4", bitor('abc'), 'abc') + +::method "test_5" + self~assertSame("subTest5", bitor('abc'x), 'abc'x) + +::method "test_6" + self~assertSame("subTest6", bitor('a bc de'x), '0ABCDE'x) + +::method "test_7" + v.30='1234567890abcdefghijklmnopqrst' + self~assertSame("subTest7", bitor(v.30), '1234567890abcdefghijklmnopqrst') + +::method "test_8" + v100000=Copies('abcd',25000) + self~assertSame("subTest8", bitor(v255.), v255.) + +::method "test_9" + v255.=copies('*',255) + v256=v255.||'<' + self~assertSame("subTest9", bitor(v256), v256) + +::method "test_10" + v100000=Copies('abcd',25000) + self~assertSame("subTest10", bitor(v100000), Copies('abcd',25000)) + +::method "test_11" + self~assertSame("subTest11", BITOR("1234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234"X),x2C(Copies('1234',61))) + +::method "test_12" + self~assertSame("subTest12", BITOR("1919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919"),Copies('19',125)) + +::method "test_13" + self~assertSame("subTest13", BITOR('an expression' '+'||'others'),'an expression +others') + +::method "test_14" + self~assertSame("subTest14", BITOR(17+4), '21') + +::method "test_15" + self~assertSame("subTest15", BITOR(12345/3), '4115') + +::method "test_16" + self~assertSame("subTest16", BITOR(1E-122/7), '1.42857143E-123') + +::method "test_17" + self~assertSame("subTest17", BITOR(SUBSTR('FFFFFF FF'X,3,1)),'FF'X) + +::method "test_18" + self~assertSame("subTest18", BITOR('echoed'),'echoed') + +::method "test_19" + self~assertSame("subTest19", BITOR(copies('one more Time', 2)),'one more Timeone more Time') + +::method "test_20" + self~assertSame("subTest20", BITOR(nv1), nv1) + +::method "test_21" + self~assertSame("subTest21", BITOR(nv2.,), nv2.) + +::method "test_22" + self~assertSame("subTest22", BITOR(nv2.3,), nv2.3) + +::method "test_23" + self~assertSame("subTest23", BITOR('', ''), '') + +::method "test_24" + self~assertSame("subTest24", BITOR('', 'a'), 'a') + +::method "test_25" + v.30='1234567890abcdefghijklmnopqrst' + self~assertSame("subTest25", BITOR('', v.30), '1234567890abcdefghijklmnopqrst') + +::method "test_26" + v100000=Copies('abcd',25000) + self~assertSame("subTest26", BITOR('', v100000), v100000) + +::method "test_27" + self~assertSame("subTest27", BITOR('X', 'f3 fe'x), 'FBFE'x) + +::method "test_28" + self~assertSame("subTest28", BITOR('C1'x, '.'), 'EF'x) + +::method "test_29" + self~assertSame("subTest29", BITOR('X', '1'), '79'x) + +::method "test_30" + self~assertSame("subTest30", BITOR('abc', 'cde'), 'cfg') + +::method "test_31" + self~assertSame("subTest31", BITOR('abc'x, 'abcd'x), 'ABFD'x) + +::method "test_32" + self~assertSame("subTest32", BITOR('a bc de'x, """"), '2ABCDE'x) + +::method "test_33" + v.30='1234567890abcdefghijklmnopqrst' + self~assertSame("subTest33", BITOR(v.30, '1'), '1234567890abcdefghijklmnopqrst') + +::method "test_34" + v255.=copies('*',255) + self~assertSame("subTest34", BITOR(v255., '55'x), bitor('*','55'x)||substr(v255.,2)) + +::method "test_35" + v255.=copies('*',255) + v256=v255.||'<' + self~assertSame("subTest35", BITOR(v256, ''), v256) + +::method "test_36" + v100000=Copies('abcd',25000) + n100000=Copies('00'X,100000) + self~assertSame("subTest36", BITOR(v100000, n100000), v100000) + +::method "test_37" + xffff='ffff'x + self~assertSame("subTest37", BITOR("1234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234"X,'ffff'X),xffff||x2C(Copies('1234',60))) + +::method "test_38" + z=Copies('19',125) + self~assertSame("subTest38", BITOR(z,"1919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919"),Copies('19',125)) + +::method "test_39" + self~assertSame("subTest39", BITOR('an expression' '+'||'others','other'||'expression' 'a'),'6F7E68657A757A7573777B7F6F6F6F6F7568657273'X) + +::method "test_40" + self~assertSame("subTest40", BITOR(17+4,99+0),'3B39'X) + +::method "test_41" + self~assertSame("subTest41", BITOR(12345/3,3/12345),'343F313530323433303133333636'X) + +::method "test_42" + self~assertSame("subTest42", BITOR(1E-122/7,1e+122/7),'1.42857143E/123') + +::method "test_43" + self~assertSame("subTest43", BITOR(SUBSTR('FFFFFF FF'X,3,1),delstr('4567',2,2)),'FF37'X) + +::method "test_44" + self~assertSame("subTest44", BITOR('echoed', ' c '),'65636B6F6564'X) + +::method "test_45" + self~assertSame("subTest45", BITOR(copies('one more Time',2),'c2'X),'EF'X||'ne more Timeone more Time') + +::method "test_46" + v100000=Copies('abcd',25000) + vr74a='67726F6D616F7774736B6765'x||COPIES('abcd',49997) + self~assertSame("subTest46", BITOR('from outside',copies(v100000,2)),vr74a) + +::method "test_47" + self~assertSame("subTest47", bitor('',33),'33') + +::method "test_48" + self~assertSame("subTest48", BITOR(copies('3'x,2),bitor(1,' ')),'3303'x) + +::method "test_49" + self~assertSame("subTest49", BITOR('2',nv2.),'7E56322E'x) + +::method "test_50" + self~assertSame("subTest50", BITOR('2',nv2.3),'7E56322E33'x) + +::method "test_51" + self~assertSame("subTest51", BITOR('1',nv1),'7F'X||'V1') + +::method "test_52" + self~assertSame("subTest52", BITOR('2',nv2.),'7E'X||'V2.') + +::method "test_53" + self~assertSame("subTest53", BITOR('3',nv2.3),'7F'X||'V2.3') + +::method "test_54" + self~assertSame("subTest54", BITOR(nv1,nv2.3),'NV3.3') + +::method "test_55" + self~assertSame("subTest55", BITOR(nv2,nv3),'NV3') + +::method "test_56" + self~assertSame("subTest55", BITOR('',,"A"),'') + +::method "test_57" + self~assertSame("subTest57", BITOR('X',,'00'X),'X') + +::method "test_58" + self~expectSyntax(40.23) + self~assertSame("subTest58", BITOR('C1'X,,'sp'),'X') + +::method "test_59" + v="0F"X + self~assertSame("subTest59", BITOR('abc',,v),'6F6F6F'X) + +::method "test_60" + v="0F"X + self~assertSame("subTest60", BITOR('abc'X,,v),'0FBF'X) + +::method "test_61" + self~assertSame("subTest61", BITOR("a bc de"X,,'' ''),'2ABCFE'X) + +::method "test_62" + v.30='1234567890abcdefghijklmnopqrst' + self~assertSame("subTest62", BITOR(v.30,,'1'),'1335577991qssuuwwyy'||'7b7b7d7d7f7f'x||'qqssu') + +::method "test_63" + v255.=copies('*',255) + self~assertSame("subTest63", BITOR(v255.,,'80'X),Copies('AA'X,255)) + +::method "test_64" + v255.=copies('*',255) + v256=v255.||'<' + self~assertSame("subTest64", BITOR(v256,,'2'),Copies('3A'X,255)||'3E'X) + +::method "test_65" + x7f="7f"X + v100000=Copies('abcd',25000) + self~assertSame("subTest65", BITOR(v100000,,x7f),Copies('7f'X,100000)) + +::method "test_66" + x08='08'X + self~assertSame("subTest66", BITOR("1234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234"X,,x08),x2C(Copies('1a3c',61))) + +::method "test_67" + x75='75'x + self~assertSame("subTest67", BITOR("1919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919",,x75),Copies('757D'X,125)) + +::method "test_68" + self~assertSame("subTest68", BITOR('an expression' '+'||'others',,1+4),'757F35757D75777577777D7F7F353F7F757D757777'X) + +::method "test_69" + self~assertSame("subTest69", BITOR(17+4,,12/3),'65') + +::method "test_70" + self~assertSame("subTest70", BITOR(12345/3,,10/2),'5555') + +::method "test_71" + self~assertSame("subTest71", BITOR(1E-122/7,,9+12-20),1'3F3533393537313533753D313333'X) + +::method "test_72" + self~assertSame("subTest72", BITOR(SUBSTR('FFFFFF FF'X,3,1),,'.'),'FF'X) + +::method "test_73" + self~assertSame("subTest73", BITOR('echoed',,1),'7573797F7575'X) + +::method "test_74" + self~assertSame("subTest74", BITOR(copies('one more Time',2),,3+'3'),'7F7E77367F7F767736767F7F777F7E77367F7F767736767f7f77'X) + +::method "test_75" + self~assertSame("subTest75", BITOR('',,'/'),'') + +::method "test_76" + self~assertSame("subTest76", BITOR(copies('3'x,2),,x2c(copies('a',2))),'ABAB'X) + +::method "test_77" + self~assertSame("subTest77", BITOR(nv2.,,'x'),'7E7E7A7E'x) + +::method "test_78" + self~assertSame("subTest78", BITOR(nv2.3,,'x'),'7E7E7A7E'x||'{') + +::method "test_79" + self~assertSame("subTest79", BITOR(nv1,,'x'),'7E7E79'x) + +::method "test_80" + self~assertSame("subTest80", BITOR('',nv2.,'x'),'7E7E7A7E'x) + +::method "test_81" + self~assertSame("subTest81", BITOR('',nv2.3,'x'),'7E7E7A7E'x||'{') + +::method "test_82" + self~expectSyntax(40.23) + self~assertSame("subTest82", BITOR(' ',,nv2.),' ') + +::method "test_83" + self~expectSyntax(40.23) + self~assertSame("subTest83", BITOR(' ',,nv2.3),' ') + +::method "test_84" + self~expectSyntax(40.23) + self~assertSame("subTest84", BITOR('v2.',,nv2.3),' ') + +::method "test_85" + self~expectSyntax(40.23) + self~assertSame("subTest85", BITOR('','',''),'') + +::method "test_86" + self~expectSyntax(40.23) + self~assertSame("subTest86", BITOR('','a',''),'') + +::method "test_87" + v100000=Copies('abcd',25000) + a100000a=Copies('7B7A7B7E'x,25000) + self~assertSame("subTest87", BITOR('',v100000, 'z'),a100000a) + +::method "test_88" + x23='23'X + self~assertSame("subTest88", BITOR('X','f3 fe'X,x23),'FBFF'X) + +::method "test_89" + self~assertSame("subTest89", BITOR('C1'X,'.',','),'EF'X) + +::method "test_90" + self~assertSame("subTest90", BITOR('X','1',13-6-1),'79'X) + +::method "test_91" + self~expectSyntax(40.23) + self~assertSame("subTest91", BITOR('abc','cde',-1e2-92),'79'X) + +::method "test_92" + self~expectSyntax(40.23) + self~assertSame("subTest92", BITOR('abc'X,'abcd'x,'1 11'x),'79'X) + +::method "test_93" + v.30='1234567890abcdefghijklmnopqrst' + self~assertSame("subTest93", BITOR(v.30,'1',3),'1337777'||'3b3b33737373777777777B7B7B7B7F7F7F7F7373737377'x) + +::method "test_94" + v255.=copies('*',255) + self~assertSame("subTest94", BITOR(v255.,'55'x,'*'),bitor('*','55'x)||substr(v255.,2)) + +::method "test_95" + v255.=copies('*',255) + v256=v255.||'<' + self~assertSame("subTest95", BITOR(v256,'','1'),copies('3B'x,255)'3D'x) + +::method "test_96" + xff="ff"X + v100000=Copies('abcd',25000) + n100000=Copies('00'X,100000) + self~assertSame("subTest96", BITOR(v100000,n100000,xff),v100000) + +::method "test_97" + self~assertSame("subTest97", BITOR("1234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234"X,'0000'X,'1'),'1234'x||x2C(Copies('3335',60))) + +::method "test_98" + z=Copies('19',125) + x0000='0000'x + self~assertSame("subTest98", BITOR(z,"1919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919191919",RIGHT(x0000,1)),Copies('19',125)) + +::method "test_99" + self~assertSame("subTest99", BITOR(17+4,99+0,1+1),'3B39'X) + +::method "test_100" + self~assertSame("subTest100", BITOR(12345/3,3/12345,8/2),'343f313534363437343537373636'X) + +::method "test_101" + self~expectSyntax(40.23) + self~assertSame("subTest101", BITOR(1E-122/7,1e+122/7,2/89),'') + +::method "test_102" + xfe="fe"X + self~assertSame("subTest102", BITOR(SUBSTR('FFFFFF FF'X,3,1),delstr('4567',2,2),xfe),'FFFF'X) + +::method "test_103" + self~assertSame("subTest103", BITOR('echoed',' c ',a),'eckoee') + +::method "test_104" + self~assertSame("subTest104", BITOR(copies('one more Time',2),'c2'X,';'),'EF7F7F3B7F7F7B7F3B7F7B7F7F7F7F7F3B7F7F7B7F3B7F7B7F7F'X) + +::method "test_105" + v100000=Copies('abcd',25000) + vr102a='67726F6D616F7774736B6765'x||COPIES('7F7E7F7E'X,49997) + self~assertSame("subTest105", BITOR('from outside',copies(v100000,2),'~'),vr102a) + +::method "test_106" + self~assertSame("subTest106", BITOR(''||'',33,"@"),'ss') + +::method "test_107" + self~assertSame("subTest107", BITOR(copies('3'x,2),bitor(1,' '),"Z"),'335B'X) + +::method "test_108" + self~expectSyntax(40.23) + self~assertSame("subTest108", BITOR('1','1',nv1),'1') + +::method "test_109" + self~expectSyntax(40.23) + self~assertSame("subTest109", BITOR('3','111',nv2.3),'311') + +::method "test_110" + self~expectSyntax(40.23) + self~assertSame("subTest110", BITOR(nv1,mv2,mv2.3),'311') + +::method "test_111" + self~assertSame("subTest111", BITOR(u,u,u),u) + +::method "test_112" + self~expectSyntax(40.23) + self~assertSame("subTest112", BITOR(nv1,nv1,nv1),nv1) + +::method "test_113" + self~expectSyntax(40.23) + self~assertSame("subTest113", BITOR(nv2.,nv2.,nv2.),nv2.) + +::method "test_114" + self~expectSyntax(40.23) + self~assertSame("subTest114", BITOR(nv2.3,nv2.3,nv2.3),nv2.3) + +::method "test_115" + self~expectSyntax(40.23) + self~assertSame("subTest115", BITOR('C1'X,,'sp'),'C1'x) + +::method "test_116" + self~expectSyntax(40.23) + self~assertSame("subTest116", BITOR('','',''),'') + +::method "test_117" + self~expectSyntax(40.23) + self~assertSame("subTest117", BITOR('','a',''),'a') + +::method "test_118" + self~expectSyntax(40.23) + self~assertSame("subTest118", BITOR('abc'X,'abcd'x,'1 11'x),'abc'x) + +-- rexxref documentation tests + +::method "test_201" + self~assertSame("subTest201", "12"x, bitor('12'x)) + +::method "test_202" + self~assertSame("subTest202", "35"x, bitor('15'x,'24'x)) + +::method "test_203" + self~assertSame("subTest203", "3556"x, bitor('15'x,'2456'x)) + +::method "test_204" + self~assertSame("subTest204", "35F6"x, bitor('15'x,'2456'x, 'F0'x)) + +::method "test_205" + self~assertSame("subTest205", "5D11"x, bitor('1111'x,'4D'x)) + +::method "test_206" + self~assertSame("subTest206", "pqrs", bitor('pQrS', ,'20'x)) + This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |