Author: jkeenan
Date: Sat Jan 27 12:19:38 2007
New Revision: 16821
Modified:
branches/buildtools/t/tools/ops2pmutils/01-ops2pmutils.t
branches/buildtools/t/tools/ops2pmutils/03-new.t
branches/buildtools/t/tools/ops2pmutils/04-prepare_ops.t
branches/buildtools/t/tools/ops2pmutils/05-renum_op_map_file.t
branches/buildtools/t/tools/ops2pmutils/06-load_op_map_files.t
branches/buildtools/t/tools/ops2pmutils/07-no_ops_skip.t
branches/buildtools/t/tools/ops2pmutils/08-sort_ops.t
branches/buildtools/t/tools/ops2pmutils/09-prepare_real_ops.t
branches/buildtools/t/tools/ops2pmutils/11-print_h.t
Log:
Conforming to Parrot coding standards, placing 'use strict' and 'use warnings'
before BEGIN block. Accordingly, first mention of $topdir => our $topdir.
Modified: branches/buildtools/t/tools/ops2pmutils/01-ops2pmutils.t
==============================================================================
--- branches/buildtools/t/tools/ops2pmutils/01-ops2pmutils.t (original)
+++ branches/buildtools/t/tools/ops2pmutils/01-ops2pmutils.t Sat Jan 27
12:19:38 2007
@@ -3,11 +3,13 @@
# $Id$
# 01-ops2pmutils.t
+use strict;
+use warnings;
BEGIN {
use FindBin qw($Bin);
use Cwd qw(cwd realpath);
realpath($Bin) =~ m{^(.*\/parrot)\/[^/]*\/[^/]*\/[^/]*$};
- $topdir = $1;
+ our $topdir = $1;
if (defined $topdir) {
print "\nOK: Parrot top directory located\n";
} else {
@@ -15,8 +17,6 @@
}
unshift @INC, qq{$topdir/lib};
}
-use strict;
-use warnings;
use Test::More tests => 3;
use_ok( 'Parrot::Ops2pm::Utils' );
Modified: branches/buildtools/t/tools/ops2pmutils/03-new.t
==============================================================================
--- branches/buildtools/t/tools/ops2pmutils/03-new.t (original)
+++ branches/buildtools/t/tools/ops2pmutils/03-new.t Sat Jan 27 12:19:38 2007
@@ -3,11 +3,13 @@
# $Id$
# 03-new.t
+use strict;
+use warnings;
BEGIN {
use FindBin qw($Bin);
use Cwd qw(cwd realpath);
realpath($Bin) =~ m{^(.*\/parrot)\/[^/]*\/[^/]*\/[^/]*$};
- $topdir = $1;
+ our $topdir = $1;
if (defined $topdir) {
print "\nOK: Parrot top directory located\n";
} else {
@@ -15,8 +17,6 @@
}
unshift @INC, qq{$topdir/lib};
}
-use strict;
-use warnings;
use Test::More tests => 5;
use_ok( 'Parrot::Ops2pm::Utils' );
Modified: branches/buildtools/t/tools/ops2pmutils/04-prepare_ops.t
==============================================================================
--- branches/buildtools/t/tools/ops2pmutils/04-prepare_ops.t (original)
+++ branches/buildtools/t/tools/ops2pmutils/04-prepare_ops.t Sat Jan 27
12:19:38 2007
@@ -3,11 +3,13 @@
# $Id$
# 04-prepare_ops.t
+use strict;
+use warnings;
BEGIN {
use FindBin qw($Bin);
use Cwd qw(cwd realpath);
realpath($Bin) =~ m{^(.*\/parrot)\/[^/]*\/[^/]*\/[^/]*$};
- $topdir = $1;
+ our $topdir = $1;
if (defined $topdir) {
print "\nOK: Parrot top directory located\n";
} else {
@@ -15,8 +17,6 @@
}
unshift @INC, qq{$topdir/lib};
}
-use strict;
-use warnings;
use Test::More tests => 72;
use Data::Dumper;
use File::Copy;
Modified: branches/buildtools/t/tools/ops2pmutils/05-renum_op_map_file.t
==============================================================================
--- branches/buildtools/t/tools/ops2pmutils/05-renum_op_map_file.t
(original)
+++ branches/buildtools/t/tools/ops2pmutils/05-renum_op_map_file.t Sat Jan
27 12:19:38 2007
@@ -3,11 +3,13 @@
# $Id$
# 05-renum_op_map_file.t
+use strict;
+use warnings;
BEGIN {
use FindBin qw($Bin);
use Cwd qw(cwd realpath);
realpath($Bin) =~ m{^(.*\/parrot)\/[^/]*\/[^/]*\/[^/]*$};
- $topdir = $1;
+ our $topdir = $1;
if (defined $topdir) {
print "\nOK: Parrot top directory located\n";
} else {
@@ -15,8 +17,6 @@
}
unshift @INC, qq{$topdir/lib};
}
-use strict;
-use warnings;
use Test::More tests => 27;
use Cwd;
use Data::Dumper;
Modified: branches/buildtools/t/tools/ops2pmutils/06-load_op_map_files.t
==============================================================================
--- branches/buildtools/t/tools/ops2pmutils/06-load_op_map_files.t
(original)
+++ branches/buildtools/t/tools/ops2pmutils/06-load_op_map_files.t Sat Jan
27 12:19:38 2007
@@ -3,11 +3,13 @@
# $Id$
# 06-load_op_map_files.t
+use strict;
+use warnings;
BEGIN {
use FindBin qw($Bin);
use Cwd qw(cwd realpath);
realpath($Bin) =~ m{^(.*\/parrot)\/[^/]*\/[^/]*\/[^/]*$};
- $topdir = $1;
+ our $topdir = $1;
if (defined $topdir) {
print "\nOK: Parrot top directory located\n";
} else {
@@ -15,8 +17,6 @@
}
unshift @INC, qq{$topdir/lib};
}
-use strict;
-use warnings;
use Test::More tests => 76;
use Cwd;
use Data::Dumper;
Modified: branches/buildtools/t/tools/ops2pmutils/07-no_ops_skip.t
==============================================================================
--- branches/buildtools/t/tools/ops2pmutils/07-no_ops_skip.t (original)
+++ branches/buildtools/t/tools/ops2pmutils/07-no_ops_skip.t Sat Jan 27
12:19:38 2007
@@ -3,11 +3,13 @@
# $Id$
# 07-no_ops_skip.t
+use strict;
+use warnings;
BEGIN {
use FindBin qw($Bin);
use Cwd qw(cwd realpath);
realpath($Bin) =~ m{^(.*\/parrot)\/[^/]*\/[^/]*\/[^/]*$};
- $topdir = $1;
+ our $topdir = $1;
if (defined $topdir) {
print "\nOK: Parrot top directory located\n";
} else {
@@ -15,8 +17,6 @@
}
unshift @INC, qq{$topdir/lib};
}
-use strict;
-use warnings;
use Test::More tests => 14;
use Cwd;
use Data::Dumper;
Modified: branches/buildtools/t/tools/ops2pmutils/08-sort_ops.t
==============================================================================
--- branches/buildtools/t/tools/ops2pmutils/08-sort_ops.t (original)
+++ branches/buildtools/t/tools/ops2pmutils/08-sort_ops.t Sat Jan 27
12:19:38 2007
@@ -3,11 +3,13 @@
# $Id$
# 08-sort_ops.t
+use strict;
+use warnings;
BEGIN {
use FindBin qw($Bin);
use Cwd qw(cwd realpath);
realpath($Bin) =~ m{^(.*\/parrot)\/[^/]*\/[^/]*\/[^/]*$};
- $topdir = $1;
+ our $topdir = $1;
if (defined $topdir) {
print "\nOK: Parrot top directory located\n";
} else {
@@ -15,8 +17,6 @@
}
unshift @INC, qq{$topdir/lib};
}
-use strict;
-use warnings;
use Test::More tests => 91;
use Cwd;
use Data::Dumper;
Modified: branches/buildtools/t/tools/ops2pmutils/09-prepare_real_ops.t
==============================================================================
--- branches/buildtools/t/tools/ops2pmutils/09-prepare_real_ops.t
(original)
+++ branches/buildtools/t/tools/ops2pmutils/09-prepare_real_ops.t Sat Jan
27 12:19:38 2007
@@ -3,11 +3,13 @@
# $Id$
# 09-prepare_real_ops.t
+use strict;
+use warnings;
BEGIN {
use FindBin qw($Bin);
use Cwd qw(cwd realpath);
realpath($Bin) =~ m{^(.*\/parrot)\/[^/]*\/[^/]*\/[^/]*$};
- $topdir = $1;
+ our $topdir = $1;
if (defined $topdir) {
print "\nOK: Parrot top directory located\n";
} else {
@@ -15,9 +17,7 @@
}
unshift @INC, qq{$topdir/lib};
}
-use strict;
-use warnings;
-use Test::More qw(no_plan); # tests => 19;
+use Test::More tests => 38;
use Cwd;
use Data::Dumper;
use File::Copy;
Modified: branches/buildtools/t/tools/ops2pmutils/11-print_h.t
==============================================================================
--- branches/buildtools/t/tools/ops2pmutils/11-print_h.t (original)
+++ branches/buildtools/t/tools/ops2pmutils/11-print_h.t Sat Jan 27
12:19:38 2007
@@ -3,11 +3,13 @@
# $Id$
# 11-print_h.t
+use strict;
+use warnings;
BEGIN {
use FindBin qw($Bin);
use Cwd qw(cwd realpath);
realpath($Bin) =~ m{^(.*\/parrot)\/[^/]*\/[^/]*\/[^/]*$};
- $topdir = $1;
+ our $topdir = $1;
if (defined $topdir) {
print "\nOK: Parrot top directory located\n";
} else {
@@ -15,8 +17,6 @@
}
unshift @INC, qq{$topdir/lib};
}
-use strict;
-use warnings;
use Test::More tests => 23;
use Cwd;
use Data::Dumper;
