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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
#-*- perl -*-
#
# Copyright (C) 2001,2003,2006 Ken'ichi Fukamachi
# All rights reserved. This program is free software; you can
# redistribute it and/or modify it under the same terms as Perl itself.
#
# $FML: add.pl,v 1.2 2003/07/21 03:43:56 fukachan Exp $
#
use strict;
use Carp;
use vars qw(@stack);
my $debug = 0;
my $file = "/tmp/passwd";
my $map = "file:$file";
my $addr = $ENV{'USER'};
### MAIN ###
use FML::Test::Utils;
my $tool = new FML::Test::Utils;
$tool->set_title( "file rewrite (add|delete)" );
unlink $file if -f $file;
system "touch $file";
# option
my $array = [ 's=skip', 'm=matome', 'r=relayserver', '# comment' ];
use IO::Adapter;
my $obj = new IO::Adapter $map;
_add( $obj, 'rudo' );
_add( $obj, $addr );
_add( $obj, 'kenken' );
_delete( $obj, $addr );
_add( $obj, $addr , [ crypt($addr, $$) ] );
_delete( $obj, $addr );
_add( $obj, $addr , $array );
exit 0;
sub _add
{
my ($obj, $addr, $array) = @_;
$obj->add( $addr, $array );
if ( $obj->error() ) { $tool->error( $obj->error() );}
if (defined $array && @$array) {
push(@stack, "$addr @$array");
}
else {
push(@stack, $addr);
}
diff($obj);
}
sub _delete
{
my ($obj, $addr, $array) = @_;
$obj->delete( $addr, $array );
if ( $obj->error() ) { $tool->error( $obj->error() );}
my (@r) = ();
STACK:
for my $s (@stack) {
my ($x) = split(/\s+/, $s);
if ($x eq $addr) { next STACK;}
push(@r, $s);
}
@stack = @r;
diff($obj);
}
sub diff
{
my ($obj) = @_;
my (@content) = ();
$obj->close();
$obj->open();
while (my $buf = $obj->get_key_values_as_array_ref()) {
push(@content, "@$buf");
}
$obj->close();
compare(\@stack, \@content);
}
sub compare
{
my ($a, $b) = @_;
print "? ($#$a != $#$b)\n" if $debug;
if ($#$a != $#$b) {
croak("number of array differs (@$a != @$b)\n");
}
for (my $i = 0; $i <= $#$a; $i++) {
print "? ($a->[ $i ] ne $b->[ $i ])\n" if $debug;
if ($a->[ $i ] ne $b->[ $i ]) {
croak("differ ($a->[ $i ] ne $b->[ $i ])\n");
}
}
print "\n" if $debug;
}
|
