File: 15-cache.t

package info (click to toggle)
libconfig-scoped-perl 0.12-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 752 kB
  • ctags: 73
  • sloc: perl: 10,347; makefile: 42
file content (17 lines) | stat: -rw-r--r-- 442 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
# vim: cindent ft=perl

use warnings;
use strict;
use Test::More tests => 5;
use File::Spec;

BEGIN { use_ok('Config::Scoped') }

my $cache = File::Spec->catfile( 't', 'files', 'cache-test.cfg' );
my ( $p, $cfg );
isa_ok( $p =
      Config::Scoped->new( file => $cache, warnings => { perm => 'off' } ),
    'Config::Scoped' );
ok( $cfg = $p->parse, 'parse' );
ok( $p->store_cache, 'dump' );
is_deeply( $p->retrieve_cache, $cfg, 'retrieve' );