[Instantobjects-cvscommit] SF.net SVN: instantobjects:[786] trunk/Tests

[<car...@us...>]

Revision: 786
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=786&view=rev
Author:   carlobar
Date:     2008-09-02 13:59:05 +0000 (Tue, 02 Sep 2008)

Log Message:
-----------
Updated Test suite:
fixed bug for compiling (added path and correct location for InstantDefines.inc

Modified Paths:
--------------
    trunk/Tests/TestIO.cfg
    trunk/Tests/TestIO.dof
    trunk/Tests/TestIO.dpr
    trunk/Tests/TestIO.mdr
    trunk/Tests/ubmock/src/testdecorator.pas

Property Changed:
----------------
    trunk/Tests/
    trunk/Tests/ubmock/src/


Property changes on: trunk/Tests
___________________________________________________________________
Modified: svn:ignore
   - __history
*.dcu
*.local
*.exe
*.identcache

   + __history
*.dcu
*.local
*.exe
*.identcache
*.~dpr
*.dsk


Modified: trunk/Tests/TestIO.cfg
===================================================================
--- trunk/Tests/TestIO.cfg	2008-09-02 13:57:34 UTC (rev 785)
+++ trunk/Tests/TestIO.cfg	2008-09-02 13:59:05 UTC (rev 786)
@@ -31,12 +31,12 @@
 -M
 -$M16384,1048576
 -K$00400000
--LE"C:\Documents and Settings\nandod\Documenti\Borland Studio Projects\Bpl"
--LN"C:\Documents and Settings\nandod\Documenti\Borland Studio Projects\Bpl"
--U"..\Source\Core;.\ubmock\src"
--O"..\Source\Core;.\ubmock\src"
--I"..\Source\Core;.\ubmock\src"
--R"..\Source\Core;.\ubmock\src"
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-U"..\Source\core;.\ubmock\src"
+-O"..\Source\core;.\ubmock\src"
+-I"..\Source\core;.\ubmock\src"
+-R"..\Source\core;.\ubmock\src"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Modified: trunk/Tests/TestIO.dof
===================================================================
--- trunk/Tests/TestIO.dof	2008-09-02 13:57:34 UTC (rev 785)
+++ trunk/Tests/TestIO.dof	2008-09-02 13:59:05 UTC (rev 786)
@@ -94,7 +94,7 @@
 UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=..\core
+SearchPath=..\Source\core;.\ubmock\src
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;adortl;vclactnband;vclshlctrls;CS30Logging70;Rz30Ctls70;Rz30DBCtls70;ip4000v7;Rave60VCL;Rave60CLX;madBasic_;madDisAsm_;CLXIB;ibxpress;VCLIB;IOCore;IOIBX
 Conditionals=
 DebugSourceDirs=..\core

Modified: trunk/Tests/TestIO.dpr
===================================================================
--- trunk/Tests/TestIO.dpr	2008-09-02 13:57:34 UTC (rev 785)
+++ trunk/Tests/TestIO.dpr	2008-09-02 13:59:05 UTC (rev 786)
@@ -1,6 +1,6 @@
 program TestIO;
 
-{$I '..\InstantDefines.inc'}
+{$I '..\Source\InstantDefines.inc'}
 
 {$IFDEF FPC}
 {$mode objfpc}{$H+}


Property changes on: trunk/Tests/ubmock/src
___________________________________________________________________
Modified: svn:ignore
   - *.rst
*.dcu

   + *.rst
*.dcu
*.~pas


Modified: trunk/Tests/ubmock/src/testdecorator.pas
===================================================================
--- trunk/Tests/ubmock/src/testdecorator.pas	2008-09-02 13:57:34 UTC (rev 785)
+++ trunk/Tests/ubmock/src/testdecorator.pas	2008-09-02 13:59:05 UTC (rev 786)
@@ -28,9 +28,10 @@
   TTestDecorator = class(TAssert)
   private
     FTest: TTest;
+  protected
+    procedure SetTestSuiteName(const aName: string); override;
     function GetTestName: string; override;
     function GetTestSuiteName: string; override;
-    procedure SetTestSuiteName(const aName: string); override;
   public
     function CountTestCases: integer; override;
     constructor Create(aTest: TTest); reintroduce; overload;