From: <bi...@us...> - 2008-09-15 14:32:31
|
Revision: 3319 http://oorexx.svn.sourceforge.net/oorexx/?rev=3319&view=rev Author: bigrixx Date: 2008-09-15 14:32:32 +0000 (Mon, 15 Sep 2008) Log Message: ----------- Add more tests Modified Paths: -------------- test/trunk/external/API/orxfunction.cpp test/trunk/external/API/orxmethod.cpp test/trunk/ooRexx/API/oo/FUNCTION.testGroup test/trunk/ooRexx/API/oo/FUNCTIONPackage.cls test/trunk/ooRexx/API/oo/METHOD.testGroup test/trunk/ooRexx/API/oo/METHODPackage.cls Modified: test/trunk/external/API/orxfunction.cpp =================================================================== --- test/trunk/external/API/orxfunction.cpp 2008-09-15 13:38:57 UTC (rev 3318) +++ test/trunk/external/API/orxfunction.cpp 2008-09-15 14:32:32 UTC (rev 3319) @@ -373,16 +373,25 @@ return arg1; } -RexxRoutine0(RexxArrayObject, TestGetArguments) +RexxRoutine1(RexxArrayObject, TestGetArguments, + ARGLIST, arg1) // unused dummy argument that allows this to be invoked with variable args. { return context->GetArguments(); } -RexxRoutine1(RexxObjectPtr, +RexxRoutine2(RexxObjectPtr, TestGetArgument, - size_t, index) + size_t, index, + ARGLIST, arg1) // unused dummy argument that allows this to be invoked with variable args. { - return context->GetArgument(index); + RexxObjectPtr result = context->GetArgument(index); + if (result == NULLOBJECT) + { + // distinguishes between existing/non-existing argments + context->RaiseException1(Rexx_Error_Invalid_argument_user_defined, context->NewStringFromAsciiz("Conversion error")); + return NULLOBJECT; + } + return result; } RexxRoutine0(CSTRING, Modified: test/trunk/external/API/orxmethod.cpp =================================================================== --- test/trunk/external/API/orxmethod.cpp 2008-09-15 13:38:57 UTC (rev 3318) +++ test/trunk/external/API/orxmethod.cpp 2008-09-15 14:32:32 UTC (rev 3319) @@ -605,16 +605,25 @@ return context->ValueToObject(&value); } -RexxMethod0(RexxArrayObject, TestGetArguments) +RexxMethod1(RexxArrayObject, TestGetArguments, + ARGLIST, arg1) // unused dummy argument that allows this to be invoked with variable args. { return context->GetArguments(); } -RexxMethod1(RexxObjectPtr, +RexxMethod2(RexxObjectPtr, TestGetArgument, - size_t, index) + size_t, index, + ARGLIST, arg1) // unused dummy argument that allows this to be invoked with variable args. { - return context->GetArgument(index); + RexxObjectPtr result = context->GetArgument(index); + if (result == NULLOBJECT) + { + // distinguishes between existing/non-existing argments + context->RaiseException1(Rexx_Error_Invalid_argument_user_defined, context->NewStringFromAsciiz("Conversion error")); + return NULLOBJECT; + } + return result; } RexxMethod0(CSTRING, Modified: test/trunk/ooRexx/API/oo/FUNCTION.testGroup =================================================================== --- test/trunk/ooRexx/API/oo/FUNCTION.testGroup 2008-09-15 13:38:57 UTC (rev 3318) +++ test/trunk/ooRexx/API/oo/FUNCTION.testGroup 2008-09-15 14:32:32 UTC (rev 3319) @@ -134,96 +134,96 @@ -- The following error tests the macros for 0-10 arguments ::method 'test011' self~expectSyntax('88.922') - TestZeroIntArgs(1) + x = TestZeroIntArgs(1) ::method 'test012' self~expectSyntax('88.922') - TestOneIntArg(1,1) + x = TestOneIntArg(1,1) ::method 'test013' self~expectSyntax('88.922') - TestTwoIntArgs(1,1,1) + x = TestTwoIntArgs(1,1,1) ::method 'test014' self~expectSyntax('88.922') - TestThreeIntArgs(1,1,1,1) + x = TestThreeIntArgs(1,1,1,1) ::method 'test015' self~expectSyntax('88.922') - TestFourIntArgs(1,1,1,1,1) + x = TestFourIntArgs(1,1,1,1,1) ::method 'test016' self~expectSyntax('88.922') - TestFiveIntArgs(1,1,1,1,1,1) + x = TestFiveIntArgs(1,1,1,1,1,1) ::method 'test017' self~expectSyntax('88.922') - TestSixIntArgs(1,1,1,1,1,1,1) + x = TestSixIntArgs(1,1,1,1,1,1,1) ::method 'test018' self~expectSyntax('88.922') - TestSevenIntArgs(1,1,1,1,1,1,1,1) + x = TestSevenIntArgs(1,1,1,1,1,1,1,1) ::method 'test019' self~expectSyntax('88.922') - TestEightIntArgs(1,1,1,1,1,1,1,1,1) + x = TestEightIntArgs(1,1,1,1,1,1,1,1,1) ::method 'test020' self~expectSyntax('88.922') - TestNineIntArgs(1,1,1,1,1,1,1,1,1,1) + x = TestNineIntArgs(1,1,1,1,1,1,1,1,1,1) ::method 'test021' self~expectSyntax('88.922') - TestTenIntArgs(1,1,1,1,1,1,1,1,1,1,1) + x = TestTenIntArgs(1,1,1,1,1,1,1,1,1,1,1) -- The following error tests the macros for 0-10 arguments ::method 'test022' self~expectSyntax('88.901') - TestOneIntArg() + x = TestOneIntArg() ::method 'test023' self~expectSyntax('88.901') - TestTwoIntArgs(1) + x = TestTwoIntArgs(1) ::method 'test023a' self~expectSyntax('88.901') - TestTwoIntArgs(,1) + x = TestTwoIntArgs(,1) ::method 'test024' self~expectSyntax('88.901') - TestThreeIntArgs(1,1) + x = TestThreeIntArgs(1,1) ::method 'test024a' self~expectSyntax('88.901') - TestThreeIntArgs(1,,1) + x = TestThreeIntArgs(1,,1) ::method 'test025' self~expectSyntax('88.901') - self~assertSame(4, TestFourIntArgs(1,1,1)) + x = TestFourIntArgs(1,1,1) ::method 'test026' self~expectSyntax('88.901') - TestFiveIntArgs(1,1,1,1) + x = TestFiveIntArgs(1,1,1,1) ::method 'test027' self~expectSyntax('88.901') - TestSixIntArgs(1,1,1,1,1) + x = TestSixIntArgs(1,1,1,1,1) ::method 'test028' self~expectSyntax('88.901') - TestSevenIntArgs(1,1,1,1,1,1) + x = TestSevenIntArgs(1,1,1,1,1,1) ::method 'test029' self~expectSyntax('88.901') - TestEightIntArgs(1,1,1,1,1,1,1) + x = TestEightIntArgs(1,1,1,1,1,1,1) ::method 'test030' self~expectSyntax('88.901') - TestNineIntArgs(1,1,1,1,1,1,1,1) + x = TestNineIntArgs(1,1,1,1,1,1,1,1) ::method 'test031' self~expectSyntax('88.901') - TestTenIntArgs(1,1,1,1,1,1,1,1,1) + x = TestTenIntArgs(1,1,1,1,1,1,1,1,1) -- test int ::method 'testint01' @@ -688,3 +688,103 @@ self~expectSyntax('88.900') TestObjectToValue(.nil, .TypeConstants~StemType) +::method 'testName01' + self~assertSame('TESTNAMEARG', TestNameArg()); + self~assertSame('TESTNAMEARG2', TestNameArg2()); -- same native method, different name + +::method 'testName02' + self~assertSame('TESTGETROUTINENAME', TestGetRoutineName()); + self~assertSame('TESTGETROUTINENAME2', TestGetRoutineName2()); -- same native method, different name + +::method 'testArglist01' + args = TestArglistArg() + self~assertSame(0, args~items) + self~assertSame(0, args~size) + args = TestArglistArg(1, 2) + self~assertSame(2, args~items) + self~assertSame(2, args~size) + self~assertSame(1, args[1]) + self~assertSame(2, args[2]) + args = TestArglistArg(1,,2) + self~assertSame(2, args~items) + self~assertSame(3, args~size) + self~assertSame(1, args[1]) + self~assertSame(.nil, args[2]) + self~assertSame(2, args[3]) + + args = TestArglistArg(,2) + self~assertSame(1, args~items) + self~assertSame(2, args~size) + self~assertSame(.nil, args[1]) + self~assertSame(2, args[2]) + + args = TestArglistArg(,) + self~assertSame(0, args~items) + self~assertSame(0, args~size) + self~assertSame(.nil, args[1]) + self~assertSame(.nil, args[2]) + + args = TestArglistArg(1,) + self~assertSame(1, args~items) + self~assertSame(1, args~size) + self~assertSame(1, args[1]) + self~assertSame(.nil, args[2]) + +::method 'testGetArguments01' + args = TestGetArguments() + self~assertSame(0, args~items) + self~assertSame(0, args~size) + args = TestGetArguments(1, 2) + self~assertSame(2, args~items) + self~assertSame(2, args~size) + self~assertSame(1, args[1]) + self~assertSame(2, args[2]) + args = TestGetArguments(1,,2) + self~assertSame(2, args~items) + self~assertSame(3, args~size) + self~assertSame(1, args[1]) + self~assertSame(.nil, args[2]) + self~assertSame(2, args[3]) + + args = TestGetArguments(,2) + self~assertSame(1, args~items) + self~assertSame(2, args~size) + self~assertSame(.nil, args[1]) + self~assertSame(2, args[2]) + + args = TestGetArguments(,) + self~assertSame(0, args~items) + self~assertSame(0, args~size) + self~assertSame(.nil, args[1]) + self~assertSame(.nil, args[2]) + + args = TestGetArguments(1,) + self~assertSame(1, args~items) + self~assertSame(1, args~size) + self~assertSame(1, args[1]) + self~assertSame(.nil, args[2]) + + args = TestGetArguments(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20) + self~assertSame(20, args~items) + self~assertSame(20, args~size) + self~assertSame(20, args[20]) + +::method 'testGetArgument01' + arg = TestGetArgument(1) + self~assertSame(1, arg) + arg = TestGetArgument(2, 'abc') + self~assertSame('abc', arg) + arg = TestGetArgument(3,,'abc') + self~assertSame('abc', arg) + +::method 'testGetArgument02' + self~expectSyntax('88.900') + arg = TestGetArgument(2) + +::method 'testGetArgument03' + self~expectSyntax('88.900') + arg = TestGetArgument(2,,'abc') + +::method 'testGetArgument04' + self~expectSyntax('88.900') + arg = TestGetArgument(100,,'abc') Modified: test/trunk/ooRexx/API/oo/FUNCTIONPackage.cls =================================================================== --- test/trunk/ooRexx/API/oo/FUNCTIONPackage.cls 2008-09-15 13:38:57 UTC (rev 3318) +++ test/trunk/ooRexx/API/oo/FUNCTIONPackage.cls 2008-09-15 14:32:32 UTC (rev 3319) @@ -37,44 +37,51 @@ -- These are the real external functions we are testing -::routine TestZeroIntArgs EXTERNAL "LIBRARY orxfunction TestZeroIntArgs" -::routine TestOneIntArg EXTERNAL "LIBRARY orxfunction TestOneIntArg" -::routine TestTwoIntArgs EXTERNAL "LIBRARY orxfunction TestTwoIntArgs" -::routine TestThreeIntArgs EXTERNAL "LIBRARY orxfunction TestThreeIntArgs" -::routine TestFourIntArgs EXTERNAL "LIBRARY orxfunction TestFourIntArgs" -::routine TestFiveIntArgs EXTERNAL "LIBRARY orxfunction TestFiveIntArgs" -::routine TestSixIntArgs EXTERNAL "LIBRARY orxfunction TestSixIntArgs" -::routine TestSevenIntArgs EXTERNAL "LIBRARY orxfunction TestSevenIntArgs" -::routine TestEightIntArgs EXTERNAL "LIBRARY orxfunction TestEightIntArgs" -::routine TestNineIntArgs EXTERNAL "LIBRARY orxfunction TestNineIntArgs" -::routine TestTenIntArgs EXTERNAL "LIBRARY orxfunction TestTenIntArgs" -::routine TestIntArg EXTERNAL "LIBRARY orxfunction TestIntArg" -::routine TestInt32Arg EXTERNAL "LIBRARY orxfunction TestInt32Arg" -::routine TestUint32Arg EXTERNAL "LIBRARY orxfunction TestUint32Arg" -::routine TestInt8Arg EXTERNAL "LIBRARY orxfunction TestInt8Arg" -::routine TestUint8Arg EXTERNAL "LIBRARY orxfunction TestUint8Arg" -::routine TestInt16Arg EXTERNAL "LIBRARY orxfunction TestInt16Arg" -::routine TestUint16Arg EXTERNAL "LIBRARY orxfunction TestUint16Arg" -::routine TestInt64Arg EXTERNAL "LIBRARY orxfunction TestInt64Arg" -::routine TestUint64Arg EXTERNAL "LIBRARY orxfunction TestUint64Arg" -::routine TestIntPtrArg EXTERNAL "LIBRARY orxfunction TestIntPtrArg" -::routine TestUintPtrArg EXTERNAL "LIBRARY orxfunction TestUintPtrArg" -::routine TestWholeNumberArg EXTERNAL "LIBRARY orxfunction TestWholeNumberArg" -::routine TestStringSizeArg EXTERNAL "LIBRARY orxfunction TestStringSizeArg" -::routine TestSizeArg EXTERNAL "LIBRARY orxfunction TestSizeArg" -::routine TestSSizeArg EXTERNAL "LIBRARY orxfunction TestSSizeArg" -::routine TestLogicalArg EXTERNAL "LIBRARY orxfunction TestLogicalArg" -::routine TestFloatArg EXTERNAL "LIBRARY orxfunction TestFloatArg" -::routine TestDoubleArg EXTERNAL "LIBRARY orxfunction TestDoubleArg" -::routine TestCstringArg EXTERNAL "LIBRARY orxfunction TestCstringArg" -::routine TestPointerValue EXTERNAL "LIBRARY orxfunction TestPointerValue" -::routine TestPointerArg EXTERNAL "LIBRARY orxfunction TestPointerArg" -::routine TestNullPointerValue EXTERNAL "LIBRARY orxfunction TestNullPointerValue" -::routine TestPointerStringValue EXTERNAL "LIBRARY orxfunction TestPointerStringValue" -::routine TestPointerStringArg EXTERNAL "LIBRARY orxfunction TestPointerStringArg" -::routine TestNullPointerStringValue EXTERNAL "LIBRARY orxfunction TestNullPointerStringValue" -::routine TestStemArg EXTERNAL "LIBRARY orxfunction TestStemArg" -::routine TestObjectToValue EXTERNAL "LIBRARY orxfunction TestObjectToValue" +::routine TestZeroIntArgs PUBLIC EXTERNAL "LIBRARY orxfunction TestZeroIntArgs" +::routine TestOneIntArg PUBLIC EXTERNAL "LIBRARY orxfunction TestOneIntArg" +::routine TestTwoIntArgs PUBLIC EXTERNAL "LIBRARY orxfunction TestTwoIntArgs" +::routine TestThreeIntArgs PUBLIC EXTERNAL "LIBRARY orxfunction TestThreeIntArgs" +::routine TestFourIntArgs PUBLIC EXTERNAL "LIBRARY orxfunction TestFourIntArgs" +::routine TestFiveIntArgs PUBLIC EXTERNAL "LIBRARY orxfunction TestFiveIntArgs" +::routine TestSixIntArgs PUBLIC EXTERNAL "LIBRARY orxfunction TestSixIntArgs" +::routine TestSevenIntArgs PUBLIC EXTERNAL "LIBRARY orxfunction TestSevenIntArgs" +::routine TestEightIntArgs PUBLIC EXTERNAL "LIBRARY orxfunction TestEightIntArgs" +::routine TestNineIntArgs PUBLIC EXTERNAL "LIBRARY orxfunction TestNineIntArgs" +::routine TestTenIntArgs PUBLIC EXTERNAL "LIBRARY orxfunction TestTenIntArgs" +::routine TestIntArg PUBLIC EXTERNAL "LIBRARY orxfunction TestIntArg" +::routine TestInt32Arg PUBLIC EXTERNAL "LIBRARY orxfunction TestInt32Arg" +::routine TestUint32Arg PUBLIC EXTERNAL "LIBRARY orxfunction TestUint32Arg" +::routine TestInt8Arg PUBLIC EXTERNAL "LIBRARY orxfunction TestInt8Arg" +::routine TestUint8Arg PUBLIC EXTERNAL "LIBRARY orxfunction TestUint8Arg" +::routine TestInt16Arg PUBLIC EXTERNAL "LIBRARY orxfunction TestInt16Arg" +::routine TestUint16Arg PUBLIC EXTERNAL "LIBRARY orxfunction TestUint16Arg" +::routine TestInt64Arg PUBLIC EXTERNAL "LIBRARY orxfunction TestInt64Arg" +::routine TestUint64Arg PUBLIC EXTERNAL "LIBRARY orxfunction TestUint64Arg" +::routine TestIntPtrArg PUBLIC EXTERNAL "LIBRARY orxfunction TestIntPtrArg" +::routine TestUintPtrArg PUBLIC EXTERNAL "LIBRARY orxfunction TestUintPtrArg" +::routine TestWholeNumberArg PUBLIC EXTERNAL "LIBRARY orxfunction TestWholeNumberArg" +::routine TestStringSizeArg PUBLIC EXTERNAL "LIBRARY orxfunction TestStringSizeArg" +::routine TestSizeArg PUBLIC EXTERNAL "LIBRARY orxfunction TestSizeArg" +::routine TestSSizeArg PUBLIC EXTERNAL "LIBRARY orxfunction TestSSizeArg" +::routine TestLogicalArg PUBLIC EXTERNAL "LIBRARY orxfunction TestLogicalArg" +::routine TestFloatArg PUBLIC EXTERNAL "LIBRARY orxfunction TestFloatArg" +::routine TestDoubleArg PUBLIC EXTERNAL "LIBRARY orxfunction TestDoubleArg" +::routine TestCstringArg PUBLIC EXTERNAL "LIBRARY orxfunction TestCstringArg" +::routine TestPointerValue PUBLIC EXTERNAL "LIBRARY orxfunction TestPointerValue" +::routine TestPointerArg PUBLIC EXTERNAL "LIBRARY orxfunction TestPointerArg" +::routine TestNullPointerValue PUBLIC EXTERNAL "LIBRARY orxfunction TestNullPointerValue" +::routine TestPointerStringValue PUBLIC EXTERNAL "LIBRARY orxfunction TestPointerStringValue" +::routine TestPointerStringArg PUBLIC EXTERNAL "LIBRARY orxfunction TestPointerStringArg" +::routine TestNullPointerStringValue PUBLIC EXTERNAL "LIBRARY orxfunction TestNullPointerStringValue" +::routine TestStemArg PUBLIC EXTERNAL "LIBRARY orxfunction TestStemArg" +::routine TestObjectToValue PUBLIC EXTERNAL "LIBRARY orxfunction TestObjectToValue" +::routine TestArglistArg PUBLIC EXTERNAL "LIBRARY orxfunction TestArglistArg" +::routine TestNameArg PUBLIC EXTERNAL "LIBRARY orxfunction TestNameArg" +::routine TestNameArg2 PUBLIC EXTERNAL "LIBRARY orxfunction TestNameArg" -- extra definition for name testing +::routine TestGetRoutineName PUBLIC EXTERNAL "LIBRARY orxfunction TestGetRoutineName" +::routine TestGetRoutineName2 PUBLIC EXTERNAL "LIBRARY orxfunction TestGetRoutineName" -- extra definition for name testing +::routine TestGetArguments PUBLIC EXTERNAL "LIBRARY orxfunction TestGetArguments" +::routine TestGetArgument PUBLIC EXTERNAL "LIBRARY orxfunction TestGetArgument" ::class TypeConstants PUBLIC ::constant ObjectType 11 Modified: test/trunk/ooRexx/API/oo/METHOD.testGroup =================================================================== --- test/trunk/ooRexx/API/oo/METHOD.testGroup 2008-09-15 13:38:57 UTC (rev 3318) +++ test/trunk/ooRexx/API/oo/METHOD.testGroup 2008-09-15 14:32:32 UTC (rev 3319) @@ -764,4 +764,135 @@ self~expectSyntax('93.969') tester~TestStemArg(.nil) +::method 'testSuper01' + tester = .METHODtester~new + self~assertSame(.Object, tester~testSuperArg); +::method 'testSuper02' + tester = .METHODtester~new + self~assertSame(.Object, tester~testGetSuper); + +::method 'testScope01' + tester = .METHODtester~new + self~assertSame(.MethodTester, tester~testScopeArg); + +::method 'testScope02' + tester = .METHODtester~new + self~assertSame(.MethodTester, tester~testGetScope); + +::method 'testOSelf01' + tester = .METHODtester~new + self~assertSame(tester, tester~testOSelfArg); + +::method 'testOSelf02' + tester = .METHODtester~new + self~assertSame(tester, tester~testGetSelf); + +::method 'testName01' + tester = .METHODtester~new + self~assertSame('TESTNAMEARG', tester~testNameArg); + self~assertSame('TESTNAMEARG2', tester~testNameArg2); -- same native method, different name + +::method 'testName02' + tester = .METHODtester~new + self~assertSame('TESTGETMESSAGENAME', tester~testGetMessageName); + self~assertSame('TESTGETMESSAGENAME2', tester~testGetMessageName2); -- same native method, different name + +::method 'testArglist01' + tester = .METHODtester~new + args = tester~TestArglistArg + self~assertSame(0, args~items) + self~assertSame(0, args~size) + args = tester~TestArglistArg(1, 2) + self~assertSame(2, args~items) + self~assertSame(2, args~size) + self~assertSame(1, args[1]) + self~assertSame(2, args[2]) + args = tester~TestArglistArg(1,,2) + self~assertSame(2, args~items) + self~assertSame(3, args~size) + self~assertSame(1, args[1]) + self~assertSame(.nil, args[2]) + self~assertSame(2, args[3]) + + args = tester~TestArglistArg(,2) + self~assertSame(1, args~items) + self~assertSame(2, args~size) + self~assertSame(.nil, args[1]) + self~assertSame(2, args[2]) + + args = tester~TestArglistArg(,) + self~assertSame(0, args~items) + self~assertSame(0, args~size) + self~assertSame(.nil, args[1]) + self~assertSame(.nil, args[2]) + + args = tester~TestArglistArg(1,) + self~assertSame(1, args~items) + self~assertSame(1, args~size) + self~assertSame(1, args[1]) + self~assertSame(.nil, args[2]) + +::method 'testGetArguments01' + tester = .METHODtester~new + args = tester~TestGetArguments + self~assertSame(0, args~items) + self~assertSame(0, args~size) + args = tester~TestGetArguments(1, 2) + self~assertSame(2, args~items) + self~assertSame(2, args~size) + self~assertSame(1, args[1]) + self~assertSame(2, args[2]) + args = tester~TestGetArguments(1,,2) + self~assertSame(2, args~items) + self~assertSame(3, args~size) + self~assertSame(1, args[1]) + self~assertSame(.nil, args[2]) + self~assertSame(2, args[3]) + + args = tester~TestGetArguments(,2) + self~assertSame(1, args~items) + self~assertSame(2, args~size) + self~assertSame(.nil, args[1]) + self~assertSame(2, args[2]) + + args = tester~TestGetArguments(,) + self~assertSame(0, args~items) + self~assertSame(0, args~size) + self~assertSame(.nil, args[1]) + self~assertSame(.nil, args[2]) + + args = tester~TestGetArguments(1,) + self~assertSame(1, args~items) + self~assertSame(1, args~size) + self~assertSame(1, args[1]) + self~assertSame(.nil, args[2]) + + args = tester~TestGetArguments(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20) + self~assertSame(20, args~items) + self~assertSame(20, args~size) + self~assertSame(20, args[20]) + +::method 'testGetArgument01' + tester = .METHODtester~new + arg = tester~TestGetArgument(1) + self~assertSame(1, arg) + arg = tester~TestGetArgument(2, 'abc') + self~assertSame('abc', arg) + arg = tester~TestGetArgument(3,,'abc') + self~assertSame('abc', arg) + +::method 'testGetArgument02' + self~expectSyntax('88.900') + tester = .METHODtester~new + arg = tester~TestGetArgument(2) + +::method 'testGetArgument03' + self~expectSyntax('88.900') + tester = .METHODtester~new + arg = tester~TestGetArgument(2,,'abc') + +::method 'testGetArgument04' + self~expectSyntax('88.900') + tester = .METHODtester~new + arg = tester~TestGetArgument(100,,'abc') Modified: test/trunk/ooRexx/API/oo/METHODPackage.cls =================================================================== --- test/trunk/ooRexx/API/oo/METHODPackage.cls 2008-09-15 13:38:57 UTC (rev 3318) +++ test/trunk/ooRexx/API/oo/METHODPackage.cls 2008-09-15 14:32:32 UTC (rev 3319) @@ -81,4 +81,16 @@ ::method TestOSelfArg EXTERNAL "LIBRARY orxmethod TestOSelfArg" ::method TestArglistArg EXTERNAL "LIBRARY orxmethod TestArglistArg" ::method TestNameArg EXTERNAL "LIBRARY orxmethod TestNameArg" +::method TestNameArg2 EXTERNAL "LIBRARY orxmethod TestNameArg" -- extra definition for name testing +::method TestGetSuper EXTERNAL "LIBRARY orxmethod TestGetSuper" +::method TestGetScope EXTERNAL "LIBRARY orxmethod TestGetScope" +::method TestGetSelf EXTERNAL "LIBRARY orxmethod TestGetSelf" +::method TestGetMessageName EXTERNAL "LIBRARY orxmethod TestGetMessageName" +::method TestGetMessageName2 EXTERNAL "LIBRARY orxmethod TestGetMessageName" -- extra definition for name testing +::method TestGetArguments EXTERNAL "LIBRARY orxmethod TestGetArguments" +::method TestGetArgument EXTERNAL "LIBRARY orxmethod TestGetArgument" +::method TestForwardMessage EXTERNAL "LIBRARY orxmethod TestForwardMessage" +::method TestGetObjectVariable EXTERNAL "LIBRARY orxmethod TestGetObjectVariable" +::method TestSetObjectVariable EXTERNAL "LIBRARY orxmethod TestSetObjectVariable" +::method TestDropObjectVariable EXTERNAL "LIBRARY orxmethod TestDropObjectVariable" This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |