From: <pra...@us...> - 2008-01-14 18:15:04
|
Revision: 2214 http://oorexx.svn.sourceforge.net/oorexx/?rev=2214&view=rev Author: pragmatic_lee Date: 2008-01-14 10:15:09 -0800 (Mon, 14 Jan 2008) Log Message: ----------- add SysDriveInfo.testGroup - update SysBootDrive.testGroup, SysCurPos.testGroup, SysSystemDirecory.testGroup Modified Paths: -------------- test/branches/test.3.2.0/ooRexx/base/rexxutil/windows/SysBootDrive.testGroup test/branches/test.3.2.0/ooRexx/base/rexxutil/windows/SysCurPos.testGroup test/branches/test.3.2.0/ooRexx/base/rexxutil/windows/SysSystemDirecory.testGroup Added Paths: ----------- test/branches/test.3.2.0/ooRexx/base/rexxutil/windows/SysDriveInfo.testGroup Modified: test/branches/test.3.2.0/ooRexx/base/rexxutil/windows/SysBootDrive.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/rexxutil/windows/SysBootDrive.testGroup 2008-01-14 18:02:19 UTC (rev 2213) +++ test/branches/test.3.2.0/ooRexx/base/rexxutil/windows/SysBootDrive.testGroup 2008-01-14 18:15:09 UTC (rev 2214) @@ -15,9 +15,9 @@ link: category1: ooRexx - category2: extensions - category3: ole - category4: special folders + category2: base + category3: rexxutil + category4: windows */ /*----------------------------------------------------------------------------*/ @@ -76,3 +76,7 @@ ::method 'testBootDrive' self~assertNotNull(SysBootDrive()) +::method 'testBootDrive2' + self~expectSyntax(40.1) + rv = SysBootDrive('c:') + Modified: test/branches/test.3.2.0/ooRexx/base/rexxutil/windows/SysCurPos.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/rexxutil/windows/SysCurPos.testGroup 2008-01-14 18:02:19 UTC (rev 2213) +++ test/branches/test.3.2.0/ooRexx/base/rexxutil/windows/SysCurPos.testGroup 2008-01-14 18:15:09 UTC (rev 2214) @@ -15,9 +15,9 @@ link: category1: ooRexx - category2: extensions - category3: ole - category4: special folders + category2: base + category3: rexxutil + category4: windows */ /*----------------------------------------------------------------------------*/ @@ -78,3 +78,7 @@ self~assertTrue(row >= 0) self~assertTrue(col >= 0) +::method 'testCurPos2' + self~expectSyntax(40.1) + rv = SysCurPos(-1,-1) + Added: test/branches/test.3.2.0/ooRexx/base/rexxutil/windows/SysDriveInfo.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/rexxutil/windows/SysDriveInfo.testGroup (rev 0) +++ test/branches/test.3.2.0/ooRexx/base/rexxutil/windows/SysDriveInfo.testGroup 2008-01-14 18:15:09 UTC (rev 2214) @@ -0,0 +1,82 @@ +#!/usr/bin/rexx +/* + name: SysDriveInfo.testGroup + author: Lee Peedin + date: 2008-01-14 + version: 1.0.0 + changed: + + languageLevel: 6.0 + purpose: Test SysDriveInfo() + remark: + + + license: CPL 1.0 (Common Public License v1.0, see below) + link: + + category1: ooRexx + category2: base + category3: rexxutil + category4: windows + +*/ +/*----------------------------------------------------------------------------*/ +/* */ +/* Copyright (c) 2007 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. */ +/* */ +/*----------------------------------------------------------------------------*/ + + parse source . . fileSpec; + + group = .TestGroup~new(fileSpec) + group~add(.SysDriveInfo.testGroup) + group~restrictOS("WINDOWS") + + if group~isAutomatedTest then return group + + testResult = group~suite~execute~~print + +return testResult +-- End of entry point. + +::requires 'ooTest.frm' +::class 'SysDriveInfo.testgroup' subclass ooTestCase public + +::method 'testDriveInfoWords' + self~assertTrue(SysDriveInfo('c:')~words >= 3) + +::method 'testDriveInfoSyntax' + self~expectSyntax(40.1) + rv = SysDriveInfo() + Modified: test/branches/test.3.2.0/ooRexx/base/rexxutil/windows/SysSystemDirecory.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/rexxutil/windows/SysSystemDirecory.testGroup 2008-01-14 18:02:19 UTC (rev 2213) +++ test/branches/test.3.2.0/ooRexx/base/rexxutil/windows/SysSystemDirecory.testGroup 2008-01-14 18:15:09 UTC (rev 2214) @@ -15,9 +15,9 @@ link: category1: ooRexx - category2: extensions - category3: ole - category4: special folders + category2: base + category3: rexxutil + category4: windows */ /*----------------------------------------------------------------------------*/ @@ -80,4 +80,8 @@ objFolderItem = objFolder~self self~assertSame(sysSystemDirectory(),objFolderItem~path) +::method 'testSystem32A' + self~expectSyntax(40.1) + rv = SysSystemDirectory('c:') + This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |