trunk/t/document-split.t

#                              -*- Mode: Perl -*- 
# document-split.t -- 
# ITIID           : $ITI$ $Header $__Header$
# Author          : Ulrich Pfeifer
# Created On      : Sun Sep 15 17:10:53 1996
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Sun Nov 22 18:44:32 1998
# Language        : CPerl
# Update Count    : 22
# Status          : Unknown, Use with caution!
# 
# Copyright (c) 1996-1997, Ulrich Pfeifer
# 

BEGIN { $| = 1; print "1..8\n"; }
END {print "not ok 1\n" unless $loaded;}
use WAIT::Document::Split;
$loaded = 1;
print "ok 1\n";

$test = 2;

my %D;
my $x = tie %D, WAIT::Document::Split, 'sep', '\f', 't/test.ste';
print ((defined $x)? "ok $test\n" : "not ok $test\n"); $test++;
print ((scalar(keys %D) == 16)? "ok $test\n" : "not ok $test\n"); $test++;
my $f = $x->FIRSTKEY;
my($start, $len) = ($f =~ /(\d+) (\d+)/);
print (($start == 0)? "ok $test\n" : "not ok $test\n"); $test++;

undef $x;
untie %D;

my $y = tie %D, WAIT::Document::Split, 'end', '\f', 't/test.ste';
print ((defined $y)? "ok $test\n" : "not ok $test\n"); $test++;

$f = $y->FIRSTKEY;
my ($nlen) = ($f =~ /(\d+)$/);
print (($nlen == $len+2)? "ok $test\n" : "not ok $test\n"); $test++;

$f = $y->NEXTKEY;
($start) = ($f =~ /(\d+) \d+$/);

undef $y;
untie %D;
$y = tie %D, WAIT::Document::Split, 'start', '\f', 't/test.ste';
print ((defined $y)? "ok $test\n" : "not ok $test\n"); $test++;
$f = $y->FIRSTKEY;
$f = $y->NEXTKEY;
my ($nstart) = ($f =~ /(\d+) \d+$/);
print (($nstart == $start-2)? "ok $test\n" : "not ok $test\n"); $test++;


1	ulpfr	10	# -- Mode: Perl --
2			# document-split.t --
3			# ITIID : $ITI$ $Header $__Header$
4			# Author : Ulrich Pfeifer
5			# Created On : Sun Sep 15 17:10:53 1996
6			# Last Modified By: Ulrich Pfeifer
7			# Last Modified On: Sun Nov 22 18:44:32 1998
8			# Language : CPerl
9			# Update Count : 22
10			# Status : Unknown, Use with caution!
11			#
12			# Copyright (c) 1996-1997, Ulrich Pfeifer
13			#
14
15			BEGIN { $\| = 1; print "1..8\n"; }
16			END {print "not ok 1\n" unless $loaded;}
17			use WAIT::Document::Split;
18			$loaded = 1;
19			print "ok 1\n";
20
21			$test = 2;
22
23			my %D;
24			my $x = tie %D, WAIT::Document::Split, 'sep', '\f', 't/test.ste';
25			print ((defined $x)? "ok $test\n" : "not ok $test\n"); $test++;
26			print ((scalar(keys %D) == 16)? "ok $test\n" : "not ok $test\n"); $test++;
27			my $f = $x->FIRSTKEY;
28			my($start, $len) = ($f =~ /(\d+) (\d+)/);
29			print (($start == 0)? "ok $test\n" : "not ok $test\n"); $test++;
30
31			undef $x;
32			untie %D;
33
34			my $y = tie %D, WAIT::Document::Split, 'end', '\f', 't/test.ste';
35			print ((defined $y)? "ok $test\n" : "not ok $test\n"); $test++;
36
37			$f = $y->FIRSTKEY;
38			my ($nlen) = ($f =~ /(\d+)$/);
39			print (($nlen == $len+2)? "ok $test\n" : "not ok $test\n"); $test++;
40
41			$f = $y->NEXTKEY;
42			($start) = ($f =~ /(\d+) \d+$/);
43
44			undef $y;
45			untie %D;
46			$y = tie %D, WAIT::Document::Split, 'start', '\f', 't/test.ste';
47			print ((defined $y)? "ok $test\n" : "not ok $test\n"); $test++;
48			$f = $y->FIRSTKEY;
49			$f = $y->NEXTKEY;
50			my ($nstart) = ($f =~ /(\d+) \d+$/);
51			print (($nstart == $start-2)? "ok $test\n" : "not ok $test\n"); $test++;
52
53