[otrs-cvs] otrs/scripts/test/GenericInterface WebserviceConfig.t, 1.10, 1.11

Comments:
Update of /home/cvs/otrs/scripts/test/GenericInterface
In directory lancelot:/tmp/cvs-serv8521/scripts/test/GenericInterface

Modified Files:
	WebserviceConfig.t 
Log Message:
Fixed problems with YAML parsing long lines. Added new module dependency YAML::XS.

Author: mg

Index: WebserviceConfig.t
===================================================================
RCS file: /home/cvs/otrs/scripts/test/GenericInterface/WebserviceConfig.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -2 -u -d -r1.10 -r1.11
--- WebserviceConfig.t	20 Nov 2012 16:09:03 -0000	1.10
+++ WebserviceConfig.t	15 Jan 2013 17:43:27 -0000	1.11
@@ -1,5 +1,5 @@
 # --
 # WebserviceConfig.t - WebserviceConfig tests
-# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2013 OTRS AG, http://otrs.org/
 # --
 # $Id$
@@ -16,5 +16,5 @@
 use Kernel::System::GenericInterface::Webservice;
 
-use YAML;
+use Kernel::System::YAML;
 
 my $Home = $Self->{ConfigObject}->Get('Home');
@@ -222,8 +222,9 @@
         Location => $Test->{FileAdd},
     );
-    my $OriginalContent = eval { YAML::Load( ${$Content} ) };
-    my $ResultContent   = eval { YAML::Load($WebserviceConfigResult) };
-    $OriginalContent = YAML::Dump($OriginalContent);
-    $ResultContent   = YAML::Dump($ResultContent);
+
+    my $OriginalContent = eval { Kernel::System::YAML::Load( ${$Content} ) };
+    my $ResultContent   = eval { Kernel::System::YAML::Load($WebserviceConfigResult) };
+    $OriginalContent = Kernel::System::YAML::Dump($OriginalContent);
+    $ResultContent   = Kernel::System::YAML::Dump($ResultContent);
     $Self->Is(
         $OriginalContent,
@@ -267,8 +268,8 @@
         Location => $Test->{FileUpdate},
     );
-    $OriginalContent = eval { YAML::Load( ${$Content} ) };
-    $ResultContent   = eval { YAML::Load($WebserviceConfigResult) };
-    $OriginalContent = YAML::Dump($OriginalContent);
-    $ResultContent   = YAML::Dump($ResultContent);
+    $OriginalContent = eval { Kernel::System::YAML::Load( ${$Content} ) };
+    $ResultContent   = eval { Kernel::System::YAML::Load($WebserviceConfigResult) };
+    $OriginalContent = Kernel::System::YAML::Dump($OriginalContent);
+    $ResultContent   = Kernel::System::YAML::Dump($ResultContent);
     $Self->Is(
         $OriginalContent,
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log