Author: bernhard
Date: Mon Oct 31 02:37:51 2005
New Revision: 9672
Added:
trunk/t/perl/cppcomments.t
- copied, changed from r9671, trunk/t/src/cppcomments.t
trunk/t/perl/opcode-doc.t
- copied, changed from r9671, trunk/t/src/opcode-doc.t
Removed:
trunk/t/src/cppcomments.t
trunk/t/src/opcode-doc.t
Modified:
trunk/MANIFEST
trunk/t/perl/manifest.t
Log:
Skip the $svn_miss test, as at least 'debian' is quite
correctly in MANIFEST.SKIP but not ignored by SVN.
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Mon Oct 31 02:37:51 2005
@@ -1875,7 +1875,9 @@ t/p6rules/ws.t
t/perl/Parrot_Distribution.t [devel]
t/perl/Parrot_Docs.t [devel]
t/perl/Parrot_IO.t [devel]
+t/perl/cppcomments.t []
t/perl/manifest.t []
+t/perl/opcode-doc.t []
t/pmc/array.t []
t/pmc/bigint.t []
t/pmc/boolean.t []
@@ -1958,14 +1960,12 @@ t/run/second.pir
t/src/README []
t/src/basic.t []
t/src/compiler.t []
-t/src/cppcomments.t []
t/src/exit.t []
t/src/extend.t []
t/src/hash.t []
t/src/intlist.t []
t/src/io.t []
t/src/list.t []
-t/src/opcode-doc.t []
t/src/sprintf.t []
t/src/string.t []
t/stress/gc.t []
Copied: trunk/t/perl/cppcomments.t (from r9671, trunk/t/src/cppcomments.t)
==============================================================================
--- trunk/t/src/cppcomments.t (original)
+++ trunk/t/perl/cppcomments.t Mon Oct 31 02:37:51 2005
@@ -1,5 +1,5 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
=head1 NAME
@@ -12,14 +12,14 @@ t/src/cppcomments.t - checks for C++ sty
=head1 DESCRIPTION
-Checks that no source file in the distribution uses C++ style comments
+Checks that no source file in the distribution uses C++ style comments.
=cut
use strict;
use Test::More tests => 1;
-my @files = qw(
+my @globs = qw(
ast/*.c
ast/*.h
classes/*.pmc
@@ -43,7 +43,7 @@ my @files = qw(
my @comments;
-foreach my $glob ( @files ) {
+foreach my $glob ( @globs ) {
foreach my $file ( glob $glob ) {
my $i = 0;
Modified: trunk/t/perl/manifest.t
==============================================================================
--- trunk/t/perl/manifest.t (original)
+++ trunk/t/perl/manifest.t Mon Oct 31 02:37:51 2005
@@ -65,9 +65,12 @@ SKIP:
local $" = "\n\t";
- ok([EMAIL PROTECTED], 'all files in MANIFEST.SKIP are also in svn:ignore')
- or diag("File in MANIFEST.SKIP but not ignored by SVN:[EMAIL
PROTECTED]");
-
+ SKIP:
+ {
+ skip( q{'debian/' is on purpose not in svn:ignore}, 1 );
+ ok([EMAIL PROTECTED], 'all files in MANIFEST.SKIP are also in
svn:ignore')
+ or diag("File in MANIFEST.SKIP but not ignored by SVN:[EMAIL
PROTECTED]");
+ };
ok([EMAIL PROTECTED], 'all svn:ignore files are in MANIFEST.SKIP')
or diag("Files ignored by SVN but not in MANIFEST.SKIP:[EMAIL
PROTECTED]");
Copied: trunk/t/perl/opcode-doc.t (from r9671, trunk/t/src/opcode-doc.t)
==============================================================================
--- trunk/t/src/opcode-doc.t (original)
+++ trunk/t/perl/opcode-doc.t Mon Oct 31 02:37:51 2005
@@ -4,15 +4,15 @@
=head1 NAME
-t/src/opcode-doc.t - check opcode documentation
+t/perl/opcode-doc.t - check opcode documentation
=head1 SYNOPSIS
- % perl t/src/opcode-doc.t
+ % perl t/perl/opcode-doc.t
=head1 DESCRIPTION
-Checks whether all opcodes are documentated.
+Checks whether all opcodes are documented.
=cut
@@ -22,6 +22,7 @@ my @docerr;
sub slurp {
my ($filename) = @_;
+
open FILE, "< $filename" or die "can't open '$filename' for reading";
my @file = <FILE>;
close FILE;
@@ -30,6 +31,7 @@ sub slurp {
sub analyse {
my ($filename, $ops) = @_;
+
my %file;
foreach my $op ( keys %$ops ) {
@@ -47,12 +49,13 @@ sub analyse {
}
foreach my $line ( sort {$a<=>$b} keys %file ) {
- push @docerr, "$filename:$line: $file{$line}\n";
+ push @docerr, "$filename:$line: $file{$line}\n";
}
}
sub check_op_doc {
my ($filename) = @_;
+
my @file = slurp( $filename );
my %op;
my $lineno = 0;
