[otrs-cvs] CVS: otrs/scripts/test CSV.t,1.4,1.5

[cvs-log at otrs.org]

Update of /home/cvs/otrs/scripts/test
In directory lancelot:/tmp/cvs-serv18878/scripts/test

Modified Files:
	CSV.t 
Log Message:
improved the cvs functionallity

Index: CSV.t
===================================================================
RCS file: /home/cvs/otrs/scripts/test/CSV.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** CSV.t	17 Oct 2006 10:03:40 -0000	1.4
--- CSV.t	11 Jan 2007 10:54:08 -0000	1.5
***************
*** 1,5 ****
  # --
  # CSV.t - CSV tests
! # Copyright (C) 2001-2006 OTRS GmbH, http://otrs.org/
  # --
  # $Id$
--- 1,5 ----
  # --
  # CSV.t - CSV tests
! # Copyright (C) 2001-2007 OTRS GmbH, http://otrs.org/
  # --
  # $Id$
***************
*** 44,48 ****
      ($Array->[0][0] eq 'field1' && $Array->[0][2] eq 'field3' &&
       $Array->[1][1] eq '3' && $#{$Array} eq 1 && $#{$Array->[1]} eq 2),
!     'CSV2Array()',
  );
  
--- 44,48 ----
      ($Array->[0][0] eq 'field1' && $Array->[0][2] eq 'field3' &&
       $Array->[1][1] eq '3' && $#{$Array} eq 1 && $#{$Array->[1]} eq 2),
!     'CSV2Array() - with quote "',
  );
  
***************
*** 50,54 ****
      String => 'field1;field2;field3;'."\n".'2;3;4;'."\n",
      Separator => ';',
!     Quote => '"',
  );
  
--- 50,54 ----
      String => 'field1;field2;field3;'."\n".'2;3;4;'."\n",
      Separator => ';',
!     Quote => '',
  );
  
***************
*** 56,60 ****
      ($Array->[0][0] eq 'field1' && $Array->[0][2] eq 'field3' &&
       $Array->[1][1] eq '3' && $#{$Array} eq 1 && $#{$Array->[1]} eq 2),
!     'CSV2Array()',
  );
  
--- 56,75 ----
      ($Array->[0][0] eq 'field1' && $Array->[0][2] eq 'field3' &&
       $Array->[1][1] eq '3' && $#{$Array} eq 1 && $#{$Array->[1]} eq 2),
!     'CSV2Array() without quote "',
! );
! 
! # Working with CSVString with \n
! my $String = '"field1";"field2";"field3";'."\n".'"a'."\n" .'b";"FirstLine'."\n" .'SecondLine";"4";'."\n";
! $Self->{LogObject}->Dumper($String);
! $Array = $Self->{CSVObject}->CSV2Array(
!     String => $String,
!     Separator => ';',
!     Quote => '"',
! );
! $Self->{LogObject}->Dumper($Array);
! $Self->True(
!     ($Array->[0][0] eq 'field1' && $Array->[0][2] eq 'field3' &&
!      $Array->[1][0] eq "a\nb" && $#{$Array} eq 1 && $#{$Array->[1]} eq 2),
!     'CSV2Array() - with included \n',
  );