File: 00utils.t

package info (click to toggle)
libtm-perl 1.53-1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 2,780 kB
  • ctags: 594
  • sloc: perl: 34,611; sh: 377; makefile: 50
file content (34 lines) | stat: -rw-r--r-- 535 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
use strict;
use warnings;

# change 'tests => 1' to 'tests => last_test_to_print';
use Test::More qw(no_plan);

use Data::Dumper;
$Data::Dumper::Indent = 1;

sub _chomp {
    my $s = shift;
    chomp $s;
    return $s;
}


#== TESTS =====================================================================

require_ok ('TM::Utils');

{
    my $t = {
	aaa => 111,
	bbb => 222,
	ccc => {
	    ddd => 444,
	    eee => 555
	    },
	fff => 666
    };

    my $d = TM::Utils::xmlify_hash ($t);
    ok (TM::Utils::is_xml ($d), 'tree is XML');
}