[otrs-cvs] CVS: otrs/scripts/test XML.t,1.6,1.7

[cvs-log at otrs.org]

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

Modified Files:
	XML.t 
Log Message:
added XMLHashList()

Index: XML.t
===================================================================
RCS file: /home/cvs/otrs/scripts/test/XML.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** XML.t	29 Sep 2006 14:22:47 -0000	1.6
--- XML.t	4 Oct 2006 16:57:16 -0000	1.7
***************
*** 131,142 ****
  );
  
! my $XMLHashDelete = $Self->{XMLObject}->XMLHashDelete(
      Type => 'SomeType',
-     Key => '123',
  );
  $Self->True(
!     $XMLHashDelete,
!     'XMLHashDelete()',
  );
  
  1;
--- 131,153 ----
  );
  
! 
! my @Keys = $Self->{XMLObject}->XMLHashList(
      Type => 'SomeType',
  );
  $Self->True(
!     ($Keys[0] == 123),
!     'XMLHashList() ([0] == 123)',
  );
  
+ foreach my $Key (@Keys) {
+     my $XMLHashDelete = $Self->{XMLObject}->XMLHashDelete(
+         Type => 'SomeType',
+         Key => $Key,
+     );
+     $Self->True(
+         $XMLHashDelete,
+         "XMLHashDelete() (Key $Key)",
+     );
+ }
+ 
  1;