tags 353855 patch
thanks
t/synopsis2 seems to assume that readdir actually returns the
contents of a directory in alphabetically sorted order, which
is of course not true in most cases. The following patch sorts
the results before comparing them to the expected results.
The check in debian/rules clean ensures that one can build the
package twice even if the first build failed in "make test".
I can NMU this fix if you want.
diff -Naur libio-all-perl-0.33/debian/rules libio-all-perl-0.33.new/debian/rules
--- libio-all-perl-0.33/debian/rules 2006-11-12 16:22:52.000000000 +0100
+++ libio-all-perl-0.33.new/debian/rules 2006-11-12 16:23:36.000000000
+0100
@@ -19,6 +19,7 @@
dh_testdir
dh_testroot
-$(MAKE) distclean
+ [ ! -f t/spiffy.t.dontuse ] || mv t/spiffy.t.dontuse t/spiffy.t
dh_clean build-stamp install-stamp
install: install-stamp
diff -Naur libio-all-perl-0.33/t/synopsis2.t
libio-all-perl-0.33.new/t/synopsis2.t
--- libio-all-perl-0.33/t/synopsis2.t 2004-11-30 08:30:41.000000000 +0100
+++ libio-all-perl-0.33.new/t/synopsis2.t 2006-11-12 16:22:01.000000000
+0100
@@ -8,12 +8,16 @@
# Print name and first line of all files in a directory
my $dir = io('t/mydir');
ok($dir->is_dir);
+my @results;
while (my $io = $dir->next) {
if ($io->is_file) {
my $line = $io->name . ' - ' . $io->getline;
- is($line, flip_slash scalar <DATA>);
+ push @results, $line;
}
}
+foreach my $line (sort @results) {
+ is($line, flip_slash scalar <DATA>);
+}
# Print name of all files recursively
is("$_\n", flip_slash scalar <DATA>)
Gruesse,
--
Frank Lichtenheld <[EMAIL PROTECTED]>
www: http://www.djpig.de/
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
