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
35
36
37
38
39
40
41
42
|
use Test::More import => ['!pass'];
use strict;
use warnings;
use Dancer ':syntax';
use Dancer::ModuleLoader;
plan tests => 9;
my $struct = {eris => 23};
SKIP: {
skip 'YAML is needed to run this test', 3
unless Dancer::ModuleLoader->load('YAML');
ok my $test = to_yaml($struct), 'to yaml';
ok my $final_struct = from_yaml($test), 'from yaml';
is_deeply $final_struct, $struct, 'from => to works';
}
SKIP: {
skip 'JSON is needed to run this test', 3
unless Dancer::ModuleLoader->load('JSON');
ok my $test = to_json($struct), 'to json';
ok my $final_struct = from_json($test), 'from json';
is_deeply $final_struct, $struct, 'from => to works';
}
SKIP: {
skip 'XML::Simple is needed to run this test', 3
unless Dancer::ModuleLoader->load('XML::Simple');
skip 'XML::Parser or XML::SAX are needed to run this test', 3
unless Dancer::ModuleLoader->load('XML::Parser') or
Dancer::ModuleLoader->load('XML::SAX');
ok my $test = to_xml($struct), 'to xml';
ok my $final_struct = from_xml($test), 'from xml';
is_deeply $final_struct, $struct, 'from => to works';
}
|
