[otrs-cvs] otrs/scripts/test/CPAN YAML.t,1.12,1.13

Comments:
Update of /home/cvs/otrs/scripts/test/CPAN
In directory lancelot:/tmp/cvs-serv11973/scripts/test/CPAN

Modified Files:
	YAML.t 
Log Message:
Improved Kernel::System::YAML to handle unicode well with all backends.
Added tests for both YAML::XS and YAML, respectively.

Author: mg

Index: YAML.t
===================================================================
RCS file: /home/cvs/otrs/scripts/test/CPAN/YAML.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -2 -u -d -r1.12 -r1.13
--- YAML.t	16 Jan 2013 07:41:25 -0000	1.12
+++ YAML.t	16 Jan 2013 09:02:28 -0000	1.13
@@ -66,13 +66,19 @@
 );
 
-for my $Test (@Tests) {
-    my $YAMLString = $Test->{YAMLString} || Kernel::System::YAML::Dump( $Test->{Data} );
-    my $YAMLData   = Kernel::System::YAML::Load( $YAMLString );
-
-    $Self->IsDeeply(
-        $YAMLData,
-        $Test->{Data},
-        $Test->{Name},
-    );
+for my $Engine (qw(YAML::XS YAML)) {
+    @YAML::Any::_TEST_ORDER = ($Engine);
+    
+    print YAML::Any::implementation();
+    
+    for my $Test (@Tests) {
+        my $YAMLString = $Test->{YAMLString} || Kernel::System::YAML::Dump( $Test->{Data} );
+        my $YAMLData   = Kernel::System::YAML::Load( $YAMLString );
+    
+        $Self->IsDeeply(
+            $YAMLData,
+            $Test->{Data},
+            "Engine $Engine - $Test->{Name}",
+        );
+    }
 }
 
---------------------------------------------------------------------
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