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
|
use Test::More;
use strict;
SKIP: {
eval "use JSON";
skip "JSON isn't available" if ($@);
use_ok('Devscripts::JSONCache');
my %c;
ok(tie(%c, 'Devscripts::JSONCache', 'test.json'), 'No file');
$c{a} = 1;
untie %c;
ok(-r 'test.json', 'Cache created');
ok(tie(%c, 'Devscripts::JSONCache', 'test.json'), 'Reuse file');
ok($c{a} == 1, 'Value saved');
untie %c;
unlink 'test.json';
my %c2;
eval { tie(%c2, 'Devscripts::JSONCache', 'zzz/test.json') };
ok($@, "Build refused if write isn't possible");
}
done_testing();
|
