File Coverage

File:t/07-config-tiny.t
Coverage:100.0%

linestmtbrancondsubpodtimecode
1#!/usr/bin/env perl
2
3
1
1
1
1
2837
1
24
use strict;
4
1
1
1
1
3
1
31
use warnings;
5
1
1
1
1
348
76359
6
use Test::More;
6
1
1
1
1
497
923
94
use FindBin         qw/$Bin/;
7
1
1
1
1
314
1
66
use Util::H2O::More qw/o2h2o ini2h2o h2o2ini/;
8
1
1
1
1
279
1134
31
use Config::Tiny    qw//;
9
1
1
1
1
586
14173
68201
use File::Temp      qw/tempfile/;
10
11
1
133
my $c = o2h2o( Config::Tiny->read(qq{$Bin/test.ini}) );
12
13
1
299
is $c->section1->var1, q{foo}, q{o2h2p handles Config::Tiny object as expected};
14
15
1
293
my $c2 = ini2h2o qq{$Bin/test.ini};
16
17
1
285
like $c2, qr/^Util::H2O/, q{ini2h2o returns Util::H2O object};
18
19
1
198
is $c2->section1->var1, q{foo}, q{ini2h2o read .ini file and returns object with accessors, as expected};
20
21
1
200
$c2->section1->var1(q{oof});
22
23
1
9
is $c2->section1->var1, q{oof}, q{object with setter works, as expected};
24
25
1
200
my ( $fh, $filename ) = tempfile( SUFFIX => '.ini' );
26
27
1
358
h2o2ini $c2, qq{$filename};
28
29
1
224
ok -e $filename, qq{$filename exists, so was written by h2o2ini};
30
31
1
220
my $c3 = ini2h2o qq{$filename};
32
33
1
251
is $c3->section1->var1, $c2->section1->var1, q{File written by h2o2ini stored expected configuration state};
34
35
1
203
done_testing;