script/t/db-fs-swmeta09.t

#!/usr/bin/perl
use strict;
use warnings;
use Test;
use FindBin q($Bin);
BEGIN {plan tests => 5}
use SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09;
use SuikaWiki::DB::Util::Error;

my $dir = $Bin.'/db.tmp';
mkdir $dir or die "$0: $dir: $!" unless -d $dir;

my $db = new SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09
           directory => $dir;

unshift @{$db->{event}->{error}}, sub {
  my ($self, $event) = @_;
  unless ({qw/fatal 1 stop 1 warn 1/}->{$event->{error}->{-def}->{level}}) {
    warn "DEBUG: ". $event->{error}->stringify;
  }
} if $^W;

$db->set (test => ['Key'] => 'Value');
ok $db->get (test => ['Key']), 'Value';

ok $db->get (other => ['Key']), undef;
ok $db->get (test => ['other']), undef;

$db->set (test => ['Key', 'Subkey'] => 'SubValue');
ok $db->get (test => ['Key', 'Subkey']), 'SubValue';

$db->close;

my $file = $db->{directory}.$db->{prefix}.$db->__encode_base16 ('test')
          .$db->{suffix};
undef $db;

ok -e $file, 1, 'Database is written on disk';
unlink $file or warn "$0: $file: $!";
1	#!/usr/bin/perl
2	use strict;
3	use warnings;
4	use Test;
5	use FindBin q($Bin);
6	BEGIN {plan tests => 5}
7	use SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09;
8	use SuikaWiki::DB::Util::Error;
9
10	my $dir = $Bin.'/db.tmp';
11	mkdir $dir or die "$0: $dir: $!" unless -d $dir;
12
13	my $db = new SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09
14	directory => $dir;
15
16	unshift @{$db->{event}->{error}}, sub {
17	my ($self, $event) = @_;
18	unless ({qw/fatal 1 stop 1 warn 1/}->{$event->{error}->{-def}->{level}}) {
19	warn "DEBUG: ". $event->{error}->stringify;
20	}
21	} if $^W;
22
23	$db->set (test => ['Key'] => 'Value');
24	ok $db->get (test => ['Key']), 'Value';
25
26	ok $db->get (other => ['Key']), undef;
27	ok $db->get (test => ['other']), undef;
28
29	$db->set (test => ['Key', 'Subkey'] => 'SubValue');
30	ok $db->get (test => ['Key', 'Subkey']), 'SubValue';
31
32	$db->close;
33
34	my $file = $db->{directory}.$db->{prefix}.$db->__encode_base16 ('test')
35	.$db->{suffix};
36	undef $db;
37
38	ok -e $file, 1, 'Database is written on disk';
39	unlink $file or warn "$0: $file: $!";