[otrs-cvs] CVS: otrs/Kernel/System PID.pm, 1.4, 1.5 UnitTest.pm, 1.5, 1.6

[cvs-log at otrs.org]

Update of /home/cvs/otrs/Kernel/System
In directory lancelot:/tmp/cvs-serv27019/Kernel/System

Modified Files:
	PID.pm UnitTest.pm 
Log Message:
improved style of syntax

Index: PID.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/PID.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** PID.pm	29 Aug 2006 17:30:36 -0000	1.4
--- PID.pm	14 Dec 2006 12:12:12 -0000	1.5
***************
*** 36,57 ****
  create a object
  
!   use Kernel::Config;
!   use Kernel::System::Log;
!   use Kernel::System::DB;
!   use Kernel::System::PID;
! 
!   my $ConfigObject = Kernel::Config->new();
!   my $LogObject    = Kernel::System::Log->new(
!       ConfigObject => $ConfigObject,
!   );
!   my $DBObject = Kernel::System::DB->new(
!       ConfigObject => $ConfigObject,
!       LogObject => $LogObject,
!   );
!   my $PIDObject = Kernel::System::PID->new(
!       LogObject => $LogObject,
!       ConfigObject => $ConfigObject,
!       DBObject => $DBObject,
!   );
  
  =cut
--- 36,57 ----
  create a object
  
!     use Kernel::Config;
!     use Kernel::System::Log;
!     use Kernel::System::DB;
!     use Kernel::System::PID;
! 
!     my $ConfigObject = Kernel::Config->new();
!     my $LogObject    = Kernel::System::Log->new(
!         ConfigObject => $ConfigObject,
!     );
!     my $DBObject = Kernel::System::DB->new(
!         ConfigObject => $ConfigObject,
!         LogObject => $LogObject,
!     );
!     my $PIDObject = Kernel::System::PID->new(
!         LogObject => $LogObject,
!         ConfigObject => $ConfigObject,
!         DBObject => $DBObject,
!     );
  
  =cut
***************
*** 218,221 ****
--- 218,223 ----
  1;
  
+ =back
+ 
  =head1 TERMS AND CONDITIONS
  

Index: UnitTest.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/UnitTest.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** UnitTest.pm	29 Aug 2006 17:30:36 -0000	1.5
--- UnitTest.pm	14 Dec 2006 12:12:12 -0000	1.6
***************
*** 36,62 ****
  create test object
  
!   use Kernel::Config;
!   use Kernel::System::Log;
!   use Kernel::System::DB;
!   use Kernel::System::Test;
! 
!   my $ConfigObject = Kernel::Config->new();
!   my $LogObject    = Kernel::System::Log->new(
!       ConfigObject => $ConfigObject,
!   );
!   my $TimeObject = Kernel::System::Time->new(
!       ConfigObject => $ConfigObject,
!   );
!   my $DBObject = Kernel::System::DB->new(
!       ConfigObject => $ConfigObject,
!       LogObject    => $LogObject,
!       TimeObject   => $TimeObject,
!   );
!   my $UnitTestObject = Kernel::System::UnitTest->new(
!       ConfigObject => $ConfigObject,
!       LogObject    => $LogObject,
!       DBObject     => $DBObject,
!       TimeObject   => $TimeObject,
!   );
  
  =cut
--- 36,69 ----
  create test object
  
!     use Kernel::Config;
!     use Kernel::System::Log;
!     use Kernel::System::Main;
!     use Kernel::System::DB;
!     use Kernel::System::Test;
! 
!     my $ConfigObject = Kernel::Config->new();
!     my $LogObject    = Kernel::System::Log->new(
!         ConfigObject => $ConfigObject,
!     );
!     my $MainObject   = Kernel::System::Main->new(
!         LogObject    => $LogObject,
!         ConfigObject => $ConfigObject,
!     );
!     my $TimeObject = Kernel::System::Time->new(
!         ConfigObject => $ConfigObject,
!     );
!     my $DBObject = Kernel::System::DB->new(
!         ConfigObject => $ConfigObject,
!         LogObject    => $LogObject,
!         MainObject   => $MainObject,
!         TimeObject   => $TimeObject,
!     );
!     my $UnitTestObject = Kernel::System::UnitTest->new(
!         ConfigObject => $ConfigObject,
!         LogObject    => $LogObject,
!         MainObject   => $MainObject,
!         DBObject     => $DBObject,
!         TimeObject   => $TimeObject,
!     );
  
  =cut
***************
*** 158,162 ****
      }
  
- 
      return 1;
  }
--- 165,168 ----
***************
*** 166,172 ****
  A true test.
  
!      $Self->True(1, 'Test Name');
  
!      $Self->True($A eq $B, 'Test Name');
  
  =cut
--- 172,178 ----
  A true test.
  
!     $UnitTestObject->True(1, 'Test Name');
  
!     $UnitTestObject->True($A eq $B, 'Test Name');
  
  =cut
***************
*** 190,196 ****
  A false test.
  
!      $Self->False(0, 'Test Name');
  
!      $Self->False($A ne $B, 'Test Name');
  
  =cut
--- 196,202 ----
  A false test.
  
!     $UnitTestObject->False(0, 'Test Name');
  
!     $UnitTestObject->False($A ne $B, 'Test Name');
  
  =cut
***************
*** 214,218 ****
  A Is $A (is) eq $B (should be) test.
  
!      $Self->Is($A, $B, 'Test Name');
  
  =cut
--- 220,224 ----
  A Is $A (is) eq $B (should be) test.
  
!     $UnitTestObject->Is($A, $B, 'Test Name');
  
  =cut
***************
*** 237,241 ****
  A Is $A (is) nq $B (should not be) test.
  
!      $Self->IsNot($A, $B, 'Test Name');
  
  =cut
--- 243,247 ----
  A Is $A (is) nq $B (should not be) test.
  
!     $UnitTestObject->IsNot($A, $B, 'Test Name');
  
  =cut
***************
*** 354,362 ****
      else {
      }
! 
  }
  
  1;
  
  =head1 TERMS AND CONDITIONS
  
--- 360,370 ----
      else {
      }
!     return;
  }
  
  1;
  
+ =back
+ 
  =head1 TERMS AND CONDITIONS