[otrs-cvs] otrs/scripts/test/CPAN YAML.t,NONE,1.1

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

Added Files:
	YAML.t 
Log Message:
Added new test for YAML. Deactivated failing test case for now.

Author: mg

--- NEW FILE: YAML.t ---
# --
# Valid.t - valid module tests
# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
# --
# $Id: YAML.t,v 1.1 2013/01/08 12:22:41 mg Exp $
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (AGPL). If you
# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
# --

use strict;
use warnings;
use vars (qw($Self));
use utf8;

use YAML;

my @Tests = (
    {
        Name => 'Simple string',
        Data => 'Teststring <tag> äß@ø',
    },
#    {
#        Name => 'Very long string',
#        Data => 'a ' x 40_000,
#    },
);

for my $Test (@Tests) {
    my $YAMLString = YAML::Dump( $Test->{Data} );
    my $YAMLData   = YAML::Load( $YAMLString );
    
    $Self->IsDeeply(
        $Test->{Data},
        $YAMLData,
        $Test->{Name},
    );
}

1;

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