[otrs-cvs] otrs/scripts/test/CPAN YAML.t,1.3,1.4

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

Modified Files:
	YAML.t 
Log Message:
Extended tests.

Author: mg

Index: YAML.t
===================================================================
RCS file: /home/cvs/otrs/scripts/test/CPAN/YAML.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -2 -u -d -r1.3 -r1.4
--- YAML.t	8 Jan 2013 12:40:36 -0000	1.3
+++ YAML.t	8 Jan 2013 13:02:43 -0000	1.4
@@ -20,16 +20,27 @@
     {
         Name => 'Simple string',
-        Data => 'Teststring <tag> äß@ø',
+        Data => 'Teststring <tag> äß@ø " \\" \' \'\'',
     },
 #    {
-#        Name => 'Very long string', # see https://bugzilla.redhat.com/show_bug.cgi?id=192400
+#        Name => 'Very long string', # see https://bugzilla.redhat.com/show_bug.cgi?id=19240_0000
 #        Data => 'a ' x 40_000,
 #    },
+#    {
+#        Name => 'Very long string, double quoted', # see https://bugzilla.redhat.com/show_bug.cgi?id=19240_0000
+#        Data => 'a ' x 40_000,
+#        YAMLString => '--- "' . ('a ' x 40_000) . "\"\n"  
+#    },
+#    {
+#        Name => 'Very long string, single quoted', # see https://bugzilla.redhat.com/show_bug.cgi?id=19240_0000
+#        Data => 'a ' x 40_000,
+#        YAMLString => '--- \'' . ('a ' x 40_000) . "'\n"  
+#    },
 );
 
 for my $Test (@Tests) {
-    my $YAMLString = YAML::Dump( $Test->{Data} );
+    my $YAMLString = $Test->{YAMLString} || YAML::Dump( $Test->{Data} );
     my $YAMLData   = YAML::Load( $YAMLString );
     
+    
     $Self->IsDeeply(
         $Test->{Data},

---------------------------------------------------------------------
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