#
# File::Data tests
# <C> Richard Foley RFI 2001 richard.foley@rfi.net
# $Id: test.t,v 1.4 2002/01/15 09:13:46 richard Exp $ 
# 

use lib '/home/richard';
use Data::Dumper;
use File::Data;
use Test;
use strict;
plan(
	'tests' => 12,
);
my $i_test = 0;
my $i_errs = 0;

$File::Data::FATAL=0;
$File::Data::REFERENCE=0;

my $ro = './t/read.txt';
my $rw = './t/write.txt';
my $rx = './t/extra.txt';
my $ur = './t/unreal.txt';

# CREATE
# =============================================================================
$i_test++; # 1
$i_errs = 0;

my $o_rw = File::Data->new($rw);
$i_errs++ unless ref($o_rw);
print "[$i_test] read-write file($rw) => o_rw($o_rw)\n" if $i_errs;

my $o_ro = File::Data->new($ro, 'ro');
$i_errs++ unless ref($o_ro);
print "[$i_test] read-only file($ro) => o_ro($o_ro)\n" if $i_errs;

my $o_ex = File::Data->new($rw, ' +< ');
$i_errs++ unless ref($o_ex);
print "[$i_test] read-write file($rw) => o_ex($o_ex)\n" if $i_errs;

my $o_rx = File::Data->new($rx); # extra
$i_errs++ unless ref($o_rx);
print "[$i_test] read-write file($rx) => o_rx($o_rx)\n" if $i_errs;

($i_errs == 0) ? ok(1) : ok(0);
# =============================================================================

# DUFF
# =============================================================================
$i_test++; # 2
$i_errs = 0;

$File::Data::SILENT=1;

my $o_x = File::Data->new();
$i_errs++ if ref($o_x);
print "[$i_test] read-write file() => o_x($o_x)\n" if $i_errs;

my $o_ur = File::Data->new($ur);
$i_errs++ if ref($o_ur);
print "[$i_test] read-write file($ur) => o_ur($o_ur)\n" if $i_errs;

my $o_xx = File::Data->new($rw, ' << ');
$i_errs++ if ref($o_xx);
print "[$i_test] read-write file($rw) => o_xx($o_xx)\n" if $i_errs;

$File::Data::SILENT=0;

($i_errs == 0) ? ok(1) : ok(0);
# =============================================================================

# STAT
# =============================================================================
$i_test++; # 3
$i_errs = 0;

my $i_stat = my @stat = File::Data->new($ro)->FSTAT('_');
# $i_errs++ unless $i_stat >= 3; # rjsf
print "[$i_test] stat(@stat): ".Dumper(\@stat) if $i_errs;

($i_errs == 0) ? ok(1) : ok(0);
# =============================================================================

# READ
# =============================================================================
$i_test++; # 4
$i_errs = 0;

my $i_ro = my @read = $o_ro->READ('.+');
$i_errs++ unless $i_ro >= 3;
print "[$i_test] read contains $i_ro lines\n".Dumper(\@read) if $i_errs;

my $o_RO = File::Data->new($rx); # extra
my $i_RO = my @READ = $o_RO->read('.+')->RETURN('read');
$i_errs++ unless $i_RO >= 3;
undef $o_RO;
print "[$i_test] READ contains $i_RO lines\n".Dumper(\@READ) if $i_errs;

($i_errs == 0) ? ok(1) : ok(0);
# =============================================================================

# WRITE
# =============================================================================
$i_test++; # 5
$i_errs = 0;

my @write = (
	"here is some irrelevant\n",
	"test data that should end up in the file\n",
	"\n",
	"somewhere\n",
);
my $i_wr = my @writ = $o_rw->WRITE(@write);
$i_errs++ unless $i_wr == 4;
print "[$i_test] write contains $i_wr lines(@writ)\n" if $i_errs;

my $i_WR = my @WRIT = $o_rx->write('xyz')->write(@write)->RETURN('write');
$i_errs++ unless $i_WR == 4;
print "[$i_test] WRITE contains $i_WR lines(@WRIT)\n" if $i_errs;

($i_errs == 0) ? ok(1) : ok(0);
# =============================================================================

# ACCESS
# =============================================================================
$i_test++; # 6
$i_errs = 0;

$File::Data::SILENT=1;
my $i_x = my @x = $o_ro->INSERT(2, "bad insert stuff");
$i_errs++ if $i_x || @x;
foreach my $attempt (qw(APPEND PREPEND REPLACE WRITE)) {
	my $i_x = my @x = $o_ro->$attempt("bad $attempt ", "bad stuff");
	if ($i_x || @x) {
		$i_errs++;
		print "wrote($attempt) to read-only($i_x) file(@x)!\n";
	}
}
$File::Data::SILENT=0;

($i_errs == 0) ? ok(1) : ok(0);
#  =============================================================================

# PREPEND
# =============================================================================
$i_test++; # 7
$i_errs = 0;

my $pre = "prepended this stuff\n";
my $i_pre = my @pre = $o_rw->PREPEND($pre);
$i_errs++ unless $pre[0] eq $pre;
print "[$i_test] prepend(@pre)\n" if $i_errs;

my $i_PRE = my @PRE = $o_rx->prepend($pre)->RETURN('prepend');
$i_errs++ unless $PRE[0] eq $pre;
print "[$i_test] prepend(@PRE)\n" if $i_errs;

($i_errs == 0) ? ok(1) : ok(0);
# =============================================================================

# INSERT
# =============================================================================
$i_test++; # 8
$i_errs = 0;

my $ins = "inserted some stuff at line 2\n";
my $i_ins = my @ins = $o_rw->INSERT(2, $ins); 
$i_errs++ unless $ins[0] eq $ins;
print "[$i_test] insert(@ins)\n" if $i_errs;

my $i_INS = my @INS = $o_rx->insert(2, $ins)->RETURN('insert'); 
$i_errs++ unless $INS[0] eq $ins;
print "[$i_test] INSERT(@INS)\n" if $i_errs;

($i_errs == 0) ? ok(1) : ok(0);
# =============================================================================

# APPEND
# =============================================================================
$i_test++; # 9
$i_errs = 0;

my $app = "appended that stuff\n";
my $i_app = my @app = $o_rw->APPEND($app);
$i_errs++ unless $app[0] eq $app;
print "[$i_test] append(@app)\n" if $i_errs;

my $i_APP = my @APP = $o_rx->append($app)->RETURN('append');
$i_errs++ unless $APP[0] eq $app;
print "[$i_test] APPEND(@APP)\n" if $i_errs;

($i_errs == 0) ? ok(1) : ok(0);
# =============================================================================

# SEARCH
# =============================================================================
$i_test++; # 10
$i_errs = 0;

$File::Data::STRING = 0;
my $str0 = 'ed\s*(\w+\s*\w{2})uff';
my $i_str0 = my @str0 = $o_rw->SEARCH($str0);
$i_errs++ unless $str0[1] eq 'some st';
print "str0($str0): err($i_errs) ".Dumper(\@str0) if $i_errs;

$File::Data::STRING = 1;
my $str1 = '(?ms:line\s*(\d+)\s*(\w+))';
my $i_str1 = my @str1 = $o_rw->SEARCH($str1);
$i_errs++ unless $str1[0] == 2 && $str1[1] eq 'test';
print "str1($str1): err($i_errs) ".Dumper(\@str1) if $i_errs;

# rjsf - SEARCH

($i_errs == 0) ? ok(1) : ok(0);
# =============================================================================

# REPLACE
# =============================================================================
$i_test++; # 11
$i_errs = 0;

$File::Data::STRING = 0;
my $sea0 = '(ed)\s+'; my $rep0 = 'ED ';
my $i_sea0 = my @snr0 = $o_rw->REPLACE($sea0 => $rep0);
$i_errs++ unless $snr0[2] =~ /^insertED some stuff at line 2$/;
print "sea0($sea0) rep($rep0): i($i_sea0) err($i_errs) ".Dumper(\@snr0) if $i_errs;

$File::Data::STRING = 1;
my $sea1 = '(ED)\s+'; my $rep1 = 'Ed ';
my $i_sea1 = my @snr1 = $o_rw->REPLACE($sea1 => $rep1);
$i_errs++ unless $snr1[0] =~ /insertEd some stuff at line 2/s;
print "sea1($sea1) rep($rep1): i($i_sea1) err($i_errs) ".Dumper(\@snr1) if $i_errs;

# rjsf - REPLACE 

($i_errs == 0) ? ok(1) : ok(0);
# =============================================================================

# Feedback 
# =============================================================================
$i_test++; # 12
$i_errs = 0;

print $o_rw->_vars if $File::Data::DEBUG;

($i_errs == 0) ? ok(1) : ok(0);
# =============================================================================

package File::Data::Test;

sub new { return  bless({}, shift); }

sub read {
	my $self = shift;
	my $err  = join('', @_);
	my $length = length($err);
	print "read failure handler - length($length):\n  $err\n";
}

sub error { # returns length of arg string/s
	my $self = shift;
	my $err  = join('', @_);
	my $length = length($err);
	print "error failure handler - length($length):\n  $err\n";
}

1;

# =============================================================================

__END__

# reuse
$i_test++; # 13
my $o_reuse = File::Data->new($rw);
print "[$i_test] re-use for file($rw) => o_reuse($o_reuse)\n";
(ref($o_reuse)) ? ok(4) : ok(0);

# error handler
$i_test++; # 14
undef $o_rw; # close it
my $o_err = File::Data->new('hopefully_NON-existent->file :-)',
		'open'		=> File::Data::Test->new,
		'init'		=> File::Data::Test->new,
		'extract'	=> File::Data::Test->new,
);
my $i_err = my @errs = $o_err->extract('.+');
print "[$i_test] err extract $i_err line/s (@errs)\n";
($i_err) ? ok(9) : ok(0);

# error handler
$i_test++; # 15
undef $o_rw; # close it
my $i_err = my @err = File::Data->new('hopefully_NON-existent->file :-)',
		'error'	=> \&error_handler,
	
)->extract('.+');
print "[$i_test] reread $i_read line/s (@read)\n";
($i_read == $i_wrote_cnt) ? ok(9) : ok(0);

sub error_handler {
	my $err  = join('', @_);
	print 'error_handler: '.length($err)."\n";
}

# done