Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libarchive-zip-perl / libarchive-zip-perl-1.18 / t / 04_readmember.t

diff --git a/dev/i386/libarchive-zip-perl/libarchive-zip-perl-1.18/t/04_readmember.t b/dev/i386/libarchive-zip-perl/libarchive-zip-perl-1.18/t/04_readmember.t
new file mode 100644 (file)
index 0000000..16a2021
--- /dev/null
+++ b/dev/i386/libarchive-zip-perl/libarchive-zip-perl-1.18/t/04_readmember.t
@@ -0,0 +1,51 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
+use Archive::Zip::MemberRead;
+
+use Test::More tests => 8;
+BEGIN {
+    unshift @INC, "t/"; 
+    require( File::Spec->catfile('t', 'common.pl') )
+               or die "Can't load t/common.pl";
+}
+
+use constant FILENAME => File::Spec->catfile(TESTDIR, 'member_read.zip');
+
+my ($zip, $member, $fh, @data);
+$zip  = new Archive::Zip;
+isa_ok( $zip, 'Archive::Zip' );
+@data = ( 'Line 1', 'Line 2', '', 'Line 3', 'Line 4' );
+
+$zip->addString(join("\n", @data), 'string.txt');
+$zip->writeToFileNamed(FILENAME);
+
+$member = $zip->memberNamed('string.txt');
+$fh     = $member->readFileHandle();
+ok( $fh );
+
+my ($line, $not_ok, $ret, $buffer);
+while (defined($line = $fh->getline()))
+{
+       $not_ok = 1 if ($line ne $data[$fh->input_line_number()-1]);
+}
+ok( !$not_ok );
+
+$fh->rewind();
+$ret = $fh->read($buffer, length($data[0]));
+ok( $ret == length($data[0]) );
+ok( $buffer eq $data[0] );
+$fh->close();
+
+#
+# Different usages 
+#
+$fh = new Archive::Zip::MemberRead($zip, 'string.txt');
+ok($fh);
+
+$fh = new Archive::Zip::MemberRead($zip, $zip->memberNamed('string.txt'));
+ok($fh);
+
+$fh = new Archive::Zip::MemberRead($zip->memberNamed('string.txt'));
+ok($fh);