Author: paultcochrane
Date: Thu Mar 15 11:01:03 2007
New Revision: 17492
Modified:
trunk/t/tools/ops2cutils/01-new.t
trunk/t/tools/ops2cutils/02-usage.t
trunk/t/tools/ops2cutils/03-print_c_header_file.t
trunk/t/tools/ops2cutils/04-print_c_source_top.t
trunk/t/tools/ops2cutils/05-print_c_source_bottom.t
trunk/t/tools/ops2cutils/06-dynamic.t
trunk/t/tools/ops2cutils/07-make_incdir.t
trunk/t/tools/ops2cutils/08-nolines.t
trunk/t/tools/ops2cutils/09-dynamic_nolines.t
trunk/t/tools/ops2cutils/testlib/GenerateCore.pm
trunk/t/tools/ops2pmutils/00-qualify.t
trunk/t/tools/ops2pmutils/01-ops2pmutils.t
trunk/t/tools/ops2pmutils/02-usage.t
trunk/t/tools/ops2pmutils/03-new.t
trunk/t/tools/ops2pmutils/04-prepare_ops.t
trunk/t/tools/ops2pmutils/05-renum_op_map_file.t
trunk/t/tools/ops2pmutils/06-load_op_map_files.t
trunk/t/tools/ops2pmutils/07-no_ops_skip.t
trunk/t/tools/ops2pmutils/08-sort_ops.t
trunk/t/tools/ops2pmutils/09-prepare_real_ops.t
trunk/t/tools/ops2pmutils/10-print_module.t
trunk/t/tools/ops2pmutils/11-print_h.t
Log:
[t/tools] Removed trailing whitespace (part 2)
Modified: trunk/t/tools/ops2cutils/01-new.t
==============================================================================
--- trunk/t/tools/ops2cutils/01-new.t (original)
+++ trunk/t/tools/ops2cutils/01-new.t Thu Mar 15 11:01:03 2007
@@ -60,13 +60,13 @@
} );
$msg = $tie->READLINE;
untie *STDERR or croak "Unable to untie";
- ok(! defined $self,
+ ok(! defined $self,
"Constructor correctly returned undef due to lack of command-line
arguments");
like($msg,
qr/^Parrot::Ops2c::Utils::new\(\) requires 'trans' options/,
"Error message is correct");
}
-
+
{
local @ARGV = qw( gobbledygook );
$tie = tie *STDERR, "Parrot::IO::Capture::Mini"
@@ -77,13 +77,13 @@
} );
$msg = $tie->READLINE;
untie *STDERR or croak "Unable to untie";
- ok(! defined $self,
+ ok(! defined $self,
"Constructor correctly returned undef due to bad class name
command-line argument");
like($msg,
qr/Parrot::Ops2c::Utils::new\(\) requires C, CGoto, CGP, CSwitch
and\/or CPrederef/,
"Got correct error message");
}
-
+
test_single_trans(q{C});
test_single_trans(q{CGoto});
test_single_trans(q{CGP});
@@ -96,7 +96,7 @@
argv => [ @ARGV ],
flag => { core => 1 },
} );
- ok(defined $self,
+ ok(defined $self,
"Constructor correctly returned when provided >= 1 arguments");
}
@@ -107,7 +107,7 @@
flag => { core => 1 },
script => "tools/build/ops2c.pl",
} );
- ok(defined $self,
+ ok(defined $self,
"Constructor correctly returned when provided with explicit
'script' argument");
}
@@ -120,13 +120,13 @@
} );
$msg = $tie->READLINE;
untie *STDERR or croak "Unable to untie";
- ok(! defined $self,
+ ok(! defined $self,
"Constructor correctly returned undef when lacking reference to
options");
like($msg,
qr/^Parrot::Ops2c::Utils::new\(\) requires reference to hash of
command-line options/,
"Error message correctly returned");
}
-
+
ok(chdir($cwd), "returned to starting directory");
}
@@ -142,7 +142,7 @@
argv => [ $trans ],
flag => { core => 1 },
} );
- ok(defined $self,
+ ok(defined $self,
"Constructor correct when provided with single argument $trans");
}
@@ -158,10 +158,10 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable subroutines of
-F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2c.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable subroutines of
+F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2c.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
All the files in this directory are intended to be run B<after>
@@ -170,7 +170,7 @@
F<Configure.pl>, however, you may run these tests as part of F<make
buildtools_tests>.
-F<01-new.t> tests whether C<Parrot::Ops2c::Utils::new()>
+F<01-new.t> tests whether C<Parrot::Ops2c::Utils::new()>
works properly.
=head1 AUTHOR
Modified: trunk/t/tools/ops2cutils/02-usage.t
==============================================================================
--- trunk/t/tools/ops2cutils/02-usage.t (original)
+++ trunk/t/tools/ops2cutils/02-usage.t Thu Mar 15 11:01:03 2007
@@ -112,10 +112,10 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable subroutines of
-F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2c.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable subroutines of
+F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2c.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
All the files in this directory are intended to be run B<after>
@@ -124,7 +124,7 @@
F<Configure.pl>, however, you may run these tests as part of F<make
buildtools_tests>.
-F<02-usage.t> tests whether C<Parrot::Ops2c::Auxiliary::Usage()>
+F<02-usage.t> tests whether C<Parrot::Ops2c::Auxiliary::Usage()>
and F<getoptions()> work properly.
=head1 AUTHOR
Modified: trunk/t/tools/ops2cutils/03-print_c_header_file.t
==============================================================================
--- trunk/t/tools/ops2cutils/03-print_c_header_file.t (original)
+++ trunk/t/tools/ops2cutils/03-print_c_header_file.t Thu Mar 15 11:01:03 2007
@@ -48,7 +48,7 @@
unshift @INC, $tlib;
require Parrot::Ops2c::Utils;
-
+
test_single_trans_and_header(q{C});
test_single_trans_and_header(q{CGoto});
test_single_trans_and_header(q{CGP});
@@ -61,7 +61,7 @@
argv => [ @ARGV ],
flag => { core => 1 },
} );
- ok(defined $self,
+ ok(defined $self,
"Constructor correctly returned when provided >= 1 arguments");
my $c_header_file = $self->print_c_header_file();
ok(-e $c_header_file, "$c_header_file created");
@@ -84,7 +84,7 @@
argv => [ $trans ],
flag => { core => 1 },
} );
- ok(defined $self,
+ ok(defined $self,
"Constructor correct when provided with single argument $trans");
my $c_header_file = $self->print_c_header_file();
@@ -104,10 +104,10 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable subroutines of
-F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2c.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable subroutines of
+F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2c.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
All the files in this directory are intended to be run B<after>
@@ -116,7 +116,7 @@
F<Configure.pl>, however, you may run these tests as part of F<make
buildtools_tests>.
-F<03-print_c_header_file.t> tests whether
+F<03-print_c_header_file.t> tests whether
C<Parrot::Ops2c::Utils::print_c_header_file()> works properly.
=head1 AUTHOR
Modified: trunk/t/tools/ops2cutils/04-print_c_source_top.t
==============================================================================
--- trunk/t/tools/ops2cutils/04-print_c_source_top.t (original)
+++ trunk/t/tools/ops2cutils/04-print_c_source_top.t Thu Mar 15 11:01:03 2007
@@ -64,7 +64,7 @@
argv => $local_argv_ref,
flag => { core => 1 },
} );
- ok(defined $self,
+ ok(defined $self,
"Constructor correctly returned when provided with argument(s):
@{$local_argv_ref}");
my $c_header_file = $self->print_c_header_file();
@@ -90,10 +90,10 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable subroutines of
-F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2c.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable subroutines of
+F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2c.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
All the files in this directory are intended to be run B<after>
@@ -102,7 +102,7 @@
F<Configure.pl>, however, you may run these tests as part of F<make
buildtools_tests>.
-F<04-print_c_source_top.t> tests whether
+F<04-print_c_source_top.t> tests whether
C<Parrot::Ops2c::Utils::print_c_source_top()> work properly.
=head1 AUTHOR
Modified: trunk/t/tools/ops2cutils/05-print_c_source_bottom.t
==============================================================================
--- trunk/t/tools/ops2cutils/05-print_c_source_bottom.t (original)
+++ trunk/t/tools/ops2cutils/05-print_c_source_bottom.t Thu Mar 15 11:01:03 2007
@@ -68,7 +68,7 @@
argv => $local_argv_ref,
flag => { core => 1 },
} );
- ok(defined $self,
+ ok(defined $self,
"Constructor correctly returned when provided with argument(s):
@{$local_argv_ref}");
my $c_header_file = $self->print_c_header_file();
@@ -99,10 +99,10 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable subroutines of
-F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2c.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable subroutines of
+F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2c.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
All the files in this directory are intended to be run B<after>
@@ -111,7 +111,7 @@
F<Configure.pl>, however, you may run these tests as part of F<make
buildtools_tests>.
-F<05-print_c_source_bottom.t> tests whether
+F<05-print_c_source_bottom.t> tests whether
C<Parrot::Ops2c::Utils::print_c_source_bottom()> work properly.
=head1 AUTHOR
Modified: trunk/t/tools/ops2cutils/06-dynamic.t
==============================================================================
--- trunk/t/tools/ops2cutils/06-dynamic.t (original)
+++ trunk/t/tools/ops2cutils/06-dynamic.t Thu Mar 15 11:01:03 2007
@@ -75,7 +75,7 @@
} );
$msg = $tie->READLINE;
untie *STDERR or croak "Unable to untie";
- ok(defined $self,
+ ok(defined $self,
"Constructor correctly returned when provided >= 1 arguments");
like($msg,
qr/Ops file 'dan\.ops' mentioned more than once!/,
@@ -105,7 +105,7 @@
argv => $local_argv_ref,
flag => { dynamic => 1 },
} );
- ok(defined $self,
+ ok(defined $self,
"Constructor correctly returned when provided >= 1 arguments");
my $c_header_file = $self->print_c_header_file();
@@ -138,10 +138,10 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable subroutines of
-F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2c.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable subroutines of
+F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2c.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
All the files in this directory are intended to be run B<after>
@@ -150,7 +150,7 @@
F<Configure.pl>, however, you may run these tests as part of F<make
buildtools_tests>.
-F<06-dynamic.t> tests how well
+F<06-dynamic.t> tests how well
C<Parrot::Ops2c::Utils()> works when the C<--dynamic> flag is passed to
F<tools/build/ops2c.pl>.
Modified: trunk/t/tools/ops2cutils/07-make_incdir.t
==============================================================================
--- trunk/t/tools/ops2cutils/07-make_incdir.t (original)
+++ trunk/t/tools/ops2cutils/07-make_incdir.t Thu Mar 15 11:01:03 2007
@@ -51,21 +51,21 @@
copy(qq{$cwd/$num}, qq{$tdir/$num});
copy(qq{$cwd/$skip}, qq{$tdir/$skip});
my @opsfiles = glob("./src/ops/*.ops");
-
+
mkdir qq{$tdir/lib};
mkdir qq{$tdir/lib/Parrot};
mkdir qq{$tdir/lib/Parrot/Ops2c};
mkdir qq{$tdir/include};
mkdir qq{$tdir/include/parrot};
# mkdir qq{$tdir/include/parrot/oplib};
-
+
my $o2p = Parrot::Ops2pm::Utils->new( {
argv => [ @opsfiles ],
script => "tools/build/ops2pm.pl",
moddir => "lib/Parrot/OpLib",
module => "core.pm",
} );
-
+
$o2p->prepare_ops();
$o2p->load_op_map_files();
$o2p->sort_ops();
@@ -86,7 +86,7 @@
argv => [ @ARGV ],
flag => { core => 1 },
} );
- ok(defined $self,
+ ok(defined $self,
"Constructor correctly returned even though include/parrot/oplib
had to be created");
}
}
@@ -103,7 +103,7 @@
argv => [ $trans ],
flag => { core => 1 },
} );
- ok(defined $self,
+ ok(defined $self,
"Constructor correct when provided with single argument $trans");
}
@@ -119,10 +119,10 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable subroutines of
-F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2c.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable subroutines of
+F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2c.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
All the files in this directory are intended to be run B<after>
@@ -131,7 +131,7 @@
F<Configure.pl>, however, you may run these tests as part of F<make
buildtools_tests>.
-F<07-make_incdir.t> tests whether C<Parrot::Ops2c::Utils::new()>
+F<07-make_incdir.t> tests whether C<Parrot::Ops2c::Utils::new()>
works properly when F<include/parrot/oplib> was not previously created..
=head1 AUTHOR
Modified: trunk/t/tools/ops2cutils/08-nolines.t
==============================================================================
--- trunk/t/tools/ops2cutils/08-nolines.t (original)
+++ trunk/t/tools/ops2cutils/08-nolines.t Thu Mar 15 11:01:03 2007
@@ -54,7 +54,7 @@
argv => [ @ARGV ],
flag => { core => 1, nolines => 1 },
} );
- ok(defined $self,
+ ok(defined $self,
"Constructor correctly returned when provided >= 1 arguments");
my $c_header_file = $self->print_c_header_file();
@@ -88,10 +88,10 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable subroutines of
-F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2c.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable subroutines of
+F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2c.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
All the files in this directory are intended to be run B<after>
@@ -100,8 +100,8 @@
F<Configure.pl>, however, you may run these tests as part of F<make
buildtools_tests>.
-F<08-nolines.t> tests whether
-C<Parrot::Ops2c::Utils::new()> work properly when C<--nolines> option
+F<08-nolines.t> tests whether
+C<Parrot::Ops2c::Utils::new()> work properly when C<--nolines> option
is passed to F<tools/build/ops2c.pl>.
=head1 AUTHOR
Modified: trunk/t/tools/ops2cutils/09-dynamic_nolines.t
==============================================================================
--- trunk/t/tools/ops2cutils/09-dynamic_nolines.t (original)
+++ trunk/t/tools/ops2cutils/09-dynamic_nolines.t Thu Mar 15 11:01:03 2007
@@ -76,7 +76,7 @@
argv => $local_argv_ref,
flag => { dynamic => 1, nolines => 1 },
} );
- ok(defined $self,
+ ok(defined $self,
"Constructor correctly returned when provided >= 1 arguments");
my $c_header_file = $self->print_c_header_file();
@@ -106,10 +106,10 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable subroutines of
-F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2c.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable subroutines of
+F<lib/Parrot/Ops2c/Utils.pm> and F<lib/Parrot/Ops2c/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2c.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
All the files in this directory are intended to be run B<after>
@@ -118,7 +118,7 @@
F<Configure.pl>, however, you may run these tests as part of F<make
buildtools_tests>.
-F<09-dynamic_nolines.t> tests whether
+F<09-dynamic_nolines.t> tests whether
C<Parrot::Ops2c::Utils::new()> work properly when the C<--nolines> and
C<--dynamic> options are passed to F<tools/build/ops2c.pl>.
Modified: trunk/t/tools/ops2cutils/testlib/GenerateCore.pm
==============================================================================
--- trunk/t/tools/ops2cutils/testlib/GenerateCore.pm (original)
+++ trunk/t/tools/ops2cutils/testlib/GenerateCore.pm Thu Mar 15 11:01:03 2007
@@ -33,21 +33,21 @@
copy(qq{$cwd/$num}, qq{$tdir/$num});
copy(qq{$cwd/$skip}, qq{$tdir/$skip});
my @opsfiles = glob("./src/ops/*.ops");
-
+
mkdir qq{$tdir/lib};
mkdir qq{$tdir/lib/Parrot};
mkdir qq{$tdir/lib/Parrot/Ops2c};
mkdir qq{$tdir/include};
mkdir qq{$tdir/include/parrot};
mkdir qq{$tdir/include/parrot/oplib};
-
+
my $o2p = Parrot::Ops2pm::Utils->new( {
argv => [ @opsfiles ],
script => "tools/build/ops2pm.pl",
moddir => "lib/Parrot/OpLib",
module => "core.pm",
} );
-
+
$o2p->prepare_ops();
$o2p->load_op_map_files();
$o2p->sort_ops();
@@ -74,10 +74,10 @@
@srcopsfiles = qw(
src/ops/core.ops src/ops/bit.ops src/ops/cmp.ops
- src/ops/debug.ops src/ops/experimental.ops src/ops/io.ops
- src/ops/math.ops src/ops/object.ops src/ops/pic.ops
- src/ops/pmc.ops src/ops/set.ops src/ops/stack.ops
- src/ops/stm.ops src/ops/string.ops src/ops/sys.ops
+ src/ops/debug.ops src/ops/experimental.ops src/ops/io.ops
+ src/ops/math.ops src/ops/object.ops src/ops/pic.ops
+ src/ops/pmc.ops src/ops/set.ops src/ops/stack.ops
+ src/ops/stm.ops src/ops/string.ops src/ops/sys.ops
src/ops/var.ops
);
@@ -99,7 +99,7 @@
F<tools/build/ops2c.pl>, which in turn is invoked several times by F<make>.
Parrot::Ops2c::Utils has as a prerequisite Parrot::OpLib::core. But
Parrot::OpLib::core is not part of the Parrot distribution, nor does it exist
-at the point F<make> is called. Rather, it is created
+at the point F<make> is called. Rather, it is created
during the Parrot build process prior to the first call to F<ops2c.pl>.
To test Parrot::Ops2c::Utils therefore requires a module which does not exist
@@ -109,9 +109,9 @@
exists only for the duration of a single test file.
This package, GenerateCore, exports upon request a single subroutine,
-C<generate_core>, which (a) creates subdirectories needed underneath a
+C<generate_core>, which (a) creates subdirectories needed underneath a
temporary directory created solely for testing purposes; then
-(b) creates a temporary copy of Parrot::OpLib::core such that
+(b) creates a temporary copy of Parrot::OpLib::core such that
C<Parrot::Ops2c::Utils::new()> can successfully execute.
=head2 C<generate_core()>
@@ -123,13 +123,13 @@
=item * B<Arguments:> Five scalar arguments, in this order:
cwd : String with full path of directory from which
- tests are invoked (generally, the top-level
+ tests are invoked (generally, the top-level
Parrot directory).
- tdir : String holding full path of temporary
- directory into which you have changed for
+ tdir : String holding full path of temporary
+ directory into which you have changed for
testing.
- [EMAIL PROTECTED] : Reference to an array of F<.ops> files
- (generally, the list of arguments to ops2c.pl
+ [EMAIL PROTECTED] : Reference to an array of F<.ops> files
+ (generally, the list of arguments to ops2c.pl
as invoked by make).
$num : Path to ops.num file.
$skip : Path to ops.skip file.
Modified: trunk/t/tools/ops2pmutils/00-qualify.t
==============================================================================
--- trunk/t/tools/ops2pmutils/00-qualify.t (original)
+++ trunk/t/tools/ops2pmutils/00-qualify.t Thu Mar 15 11:01:03 2007
@@ -18,26 +18,26 @@
ok(-f "$FindBin::Bin/../../../src/ops/core.ops", "src/ops/core.ops located");
ok(-f "$FindBin::Bin/../../../src/ops/ops.num", "src/ops/ops.num located");
ok(-f "$FindBin::Bin/../../../src/ops/ops.skip", "src/ops/ops.skip located");
-ok(! -e "$FindBin::Bin/../../../lib/Parrot/OpLib/core.pm",
+ok(! -e "$FindBin::Bin/../../../lib/Parrot/OpLib/core.pm",
"lib/Parrot/OpLib/core.pm correctly does not yet exist");
-ok(! -e "$FindBin::Bin/../../../include/parrot/oplib/ops.h",
+ok(! -e "$FindBin::Bin/../../../include/parrot/oplib/ops.h",
"include/parrot/oplib/ops.h correctly does not yet exist");
my $message = <<END_OF_MESSAGE;
-The files in this directory test the publicly callable methods and
-subroutines of Parrot::Ops2pm::Utils and Parrot::Ops2pm::Auxiliary.
+The files in this directory test the publicly callable methods and
+subroutines of Parrot::Ops2pm::Utils and Parrot::Ops2pm::Auxiliary.
By doing so, they test the functionality of the ops2pm.pl utility.
Since ops2pm.pl is invoked only once during 'make' -- very near the
beginning of the build process -- and since its purpose is to create files
-used later in that process, tests of its functionality can give meaningful
-results only if you run them when your file system under the top-level
-Parrot directory is in a 'pre-make' state, i.e., *before* you have run 'perl
-Configure.pl' but *after* you have run 'make'. These tests should pass
-if run at that point in the build process, but if you have already
-executed 'make', some of these tests will necessarily fail. Hence, they
+used later in that process, tests of its functionality can give meaningful
+results only if you run them when your file system under the top-level
+Parrot directory is in a 'pre-make' state, i.e., *before* you have run 'perl
+Configure.pl' but *after* you have run 'make'. These tests should pass
+if run at that point in the build process, but if you have already
+executed 'make', some of these tests will necessarily fail. Hence, they
should *not* be included in the set of tests run by 'make test'.
In short, these are tests of Parrot::Ops2pm::Utils and
@@ -59,21 +59,21 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable subroutines of
-F<lib/Parrot/Ops2pm/Utils.pm>and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2pm.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable subroutines of
+F<lib/Parrot/Ops2pm/Utils.pm>and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2pm.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
-Since F<ops2pm.pl> is invoked near the beginning of the build process,
-tests of its functionality can give meaningful results only if they
-are run in a way that simulates the status of the file system at the point
-at which F<make> invokes F<ops2pm.pl>. The tests in F<00-qualify.t> attempt
-to confirm that you are at that point. They test for the presence or
-absence of certain files to form a judgment as to whether F<Configure.pl>
-has been run (it should have been) and whether F<make> has been run
-(it should I<not> have been). The tests make certain assumptions
-about what files should be present or not -- assumptions which may be
+Since F<ops2pm.pl> is invoked near the beginning of the build process,
+tests of its functionality can give meaningful results only if they
+are run in a way that simulates the status of the file system at the point
+at which F<make> invokes F<ops2pm.pl>. The tests in F<00-qualify.t> attempt
+to confirm that you are at that point. They test for the presence or
+absence of certain files to form a judgment as to whether F<Configure.pl>
+has been run (it should have been) and whether F<make> has been run
+(it should I<not> have been). The tests make certain assumptions
+about what files should be present or not -- assumptions which may be
invalid if the Parrot build process changes in the future.
=head1 AUTHOR
Modified: trunk/t/tools/ops2pmutils/01-ops2pmutils.t
==============================================================================
--- trunk/t/tools/ops2pmutils/01-ops2pmutils.t (original)
+++ trunk/t/tools/ops2pmutils/01-ops2pmutils.t Thu Mar 15 11:01:03 2007
@@ -36,10 +36,10 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable subroutines of
-F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2pm.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable subroutines of
+F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2pm.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
F<01-ops2pmutils.t> tests whether Parrot::Ops2pm::Utils is exporting the
Modified: trunk/t/tools/ops2pmutils/02-usage.t
==============================================================================
--- trunk/t/tools/ops2pmutils/02-usage.t (original)
+++ trunk/t/tools/ops2pmutils/02-usage.t Thu Mar 15 11:01:03 2007
@@ -76,13 +76,13 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable subroutines of
-F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2pm.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable subroutines of
+F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2pm.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
-F<02-usage.t> tests whether C<Parrot::Ops2pm::Auxiliary::Usage()>
+F<02-usage.t> tests whether C<Parrot::Ops2pm::Auxiliary::Usage()>
works properly.
=head1 AUTHOR
Modified: trunk/t/tools/ops2pmutils/03-new.t
==============================================================================
--- trunk/t/tools/ops2pmutils/03-new.t (original)
+++ trunk/t/tools/ops2pmutils/03-new.t Thu Mar 15 11:01:03 2007
@@ -33,11 +33,11 @@
like($@, qr/Could not find ops file/,
"Got expected error message when file could not be found");
}
-
+
{
- local @ARGV = qw( src/ops/core.ops
+ local @ARGV = qw( src/ops/core.ops
src/ops/bit.ops src/ops/cmp.ops src/ops/debug.ops
- src/ops/experimental.ops src/ops/io.ops src/ops/math.ops
+ src/ops/experimental.ops src/ops/io.ops src/ops/math.ops
src/ops/object.ops src/ops/pic.ops src/ops/pmc.ops
src/ops/set.ops src/ops/stack.ops src/ops/stm.ops
src/ops/string.ops src/ops/sys.ops src/ops/var.ops
@@ -63,13 +63,13 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable subroutines of
-F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2pm.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable subroutines of
+F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2pm.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
-F<03-new.t> tests whether Parrot::Ops2pm::Utils::new()
+F<03-new.t> tests whether Parrot::Ops2pm::Utils::new()
works properly.
=head1 AUTHOR
Modified: trunk/t/tools/ops2pmutils/04-prepare_ops.t
==============================================================================
--- trunk/t/tools/ops2pmutils/04-prepare_ops.t (original)
+++ trunk/t/tools/ops2pmutils/04-prepare_ops.t Thu Mar 15 11:01:03 2007
@@ -31,8 +31,8 @@
# regular case
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $self = Parrot::Ops2pm::Utils->new( {
argv => [ @ARGV ],
@@ -61,8 +61,8 @@
# nolines option is set true
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $self = Parrot::Ops2pm::Utils->new( {
argv => [ @ARGV ],
@@ -91,9 +91,9 @@
# mistakenly list an ops file twice; confirm warning is correct
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
+ src/ops/bit.ops
);
my $self = Parrot::Ops2pm::Utils->new( {
argv => [ @ARGV ],
@@ -148,9 +148,9 @@
# provide experimental.ops as one argument
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
- src/ops/experimental.ops
+ src/ops/core.ops
+ src/ops/bit.ops
+ src/ops/experimental.ops
);
my $self = Parrot::Ops2pm::Utils->new( {
argv => [ @ARGV ],
@@ -179,8 +179,8 @@
# provide a file with good name but bad content
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $cwd = cwd();
{
@@ -207,7 +207,7 @@
nolines => undef,
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
eval { $self->prepare_ops; };
like($@, qr/OPS invalid for.*?cmp\.ops/,
"ops file with bad content correctly detected");
@@ -230,13 +230,13 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable methods of
-F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2pm.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable methods of
+F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2pm.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
-F<04-prepare_ops.t> tests whether C<Parrot::Ops2pm::Utils::prepare_ops()>
+F<04-prepare_ops.t> tests whether C<Parrot::Ops2pm::Utils::prepare_ops()>
works properly.
=head1 TODO
Modified: trunk/t/tools/ops2pmutils/05-renum_op_map_file.t
==============================================================================
--- trunk/t/tools/ops2pmutils/05-renum_op_map_file.t (original)
+++ trunk/t/tools/ops2pmutils/05-renum_op_map_file.t Thu Mar 15 11:01:03 2007
@@ -30,8 +30,8 @@
# regular case
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $cwd = cwd();
{
@@ -53,7 +53,7 @@
renum => 1,
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -68,8 +68,8 @@
# explicit second argument
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $cwd = cwd();
{
@@ -91,7 +91,7 @@
renum => 1,
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -117,13 +117,13 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable methods of
-F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2pm.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable methods of
+F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2pm.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
-F<05-renum_op_map_file.t> tests whether
+F<05-renum_op_map_file.t> tests whether
C<Parrot::Ops2pm::Utils::renum_op_map_file()> works properly.
=head1 TODO
Modified: trunk/t/tools/ops2pmutils/06-load_op_map_files.t
==============================================================================
--- trunk/t/tools/ops2pmutils/06-load_op_map_files.t (original)
+++ trunk/t/tools/ops2pmutils/06-load_op_map_files.t Thu Mar 15 11:01:03 2007
@@ -32,8 +32,8 @@
ok(chdir $main::topdir, "Positioned at top-level Parrot directory");
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $cwd = cwd();
{
@@ -57,7 +57,7 @@
renum => undef,
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -73,8 +73,8 @@
## fail to provide ops.num file
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $cwd = cwd();
{
@@ -98,7 +98,7 @@
renum => undef,
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -113,8 +113,8 @@
# provide defective ops.num file: hole: missing number
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $cwd = cwd();
{
@@ -131,7 +131,7 @@
my $tmpnum = $realnum . q{.tmp};
ok(copy(qq{$cwd/$num}, $tmpnum),
"copied ops.num file to temporary file");
-
+
my $fhin = IO::File->new();
ok(($fhin->open("<$tmpnum")), "Able to open file for reading");
my $fhout = IO::File->new();
@@ -156,7 +156,7 @@
renum => undef,
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -171,8 +171,8 @@
# provide defective ops.num file: opname mentioned twice
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $cwd = cwd();
{
@@ -189,7 +189,7 @@
my $tmpnum = $realnum . q{.tmp};
ok(copy(qq{$cwd/$num}, $tmpnum),
"copied ops.num file to temporary file");
-
+
my $fhin = IO::File->new();
ok(($fhin->open("<$tmpnum")), "Able to open file for reading");
my @outopnames;
@@ -225,7 +225,7 @@
renum => undef,
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -240,8 +240,8 @@
# provide defective ops.skip file: opname also found in ops.num
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $cwd = cwd();
{
@@ -261,7 +261,7 @@
my $tmpskip = $realskip . q{.tmp};
ok(copy(qq{$cwd/$skip}, $tmpskip),
"copied ops.skip file to temporary file");
-
+
my $fhin = IO::File->new();
ok(($fhin->open("<$tmpskip")), "Able to open file for reading");
my @outopnames;
@@ -291,7 +291,7 @@
renum => undef,
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -317,13 +317,13 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable methods of
-F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2pm.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable methods of
+F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2pm.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
-F<06-load_op_map_files.t> tests whether
+F<06-load_op_map_files.t> tests whether
C<Parrot::Ops2pm::Utils::load_op_map_files()> works properly.
=head1 TODO
@@ -339,7 +339,7 @@
$self->{max_op_num} ||= 0;
-Real question: can C<$self->{max_op_num}> ever be C<undef>, C<0>
+Real question: can C<$self->{max_op_num}> ever be C<undef>, C<0>
or empty string?
=item *
Modified: trunk/t/tools/ops2pmutils/07-no_ops_skip.t
==============================================================================
--- trunk/t/tools/ops2pmutils/07-no_ops_skip.t (original)
+++ trunk/t/tools/ops2pmutils/07-no_ops_skip.t Thu Mar 15 11:01:03 2007
@@ -33,8 +33,8 @@
# fail to provide ops.skip file
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $cwd = cwd();
{
@@ -58,7 +58,7 @@
renum => undef,
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -84,10 +84,10 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable subroutines of
-F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2pm.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable subroutines of
+F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2pm.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
F<07-no_ops_skip.t> tests what happens when there is no F<src/ops/ops.skip>
Modified: trunk/t/tools/ops2pmutils/08-sort_ops.t
==============================================================================
--- trunk/t/tools/ops2pmutils/08-sort_ops.t (original)
+++ trunk/t/tools/ops2pmutils/08-sort_ops.t Thu Mar 15 11:01:03 2007
@@ -34,8 +34,8 @@
# regular case
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $cwd = cwd();
{
@@ -59,7 +59,7 @@
renum => undef,
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -79,9 +79,9 @@
# include experimental.ops in @ARGV
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
- src/ops/experimental.ops
+ src/ops/core.ops
+ src/ops/bit.ops
+ src/ops/experimental.ops
);
my $cwd = cwd();
{
@@ -105,7 +105,7 @@
renum => undef,
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -125,9 +125,9 @@
# include experimental.ops in @ARGV; use 'DEVELOPING' to trigger warning
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
- src/ops/experimental.ops
+ src/ops/core.ops
+ src/ops/bit.ops
+ src/ops/experimental.ops
);
my $cwd = cwd();
{
@@ -153,7 +153,7 @@
renum => undef,
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -181,9 +181,9 @@
# include object.ops in @ARGV; use 'DEVELOPING' to trigger warning
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
- src/ops/object.ops
+ src/ops/core.ops
+ src/ops/bit.ops
+ src/ops/object.ops
);
my $cwd = cwd();
{
@@ -209,7 +209,7 @@
renum => undef,
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -237,9 +237,9 @@
# include object.ops in @ARGV; do not use 'DEVELOPING' to trigger warning
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
- src/ops/object.ops
+ src/ops/core.ops
+ src/ops/bit.ops
+ src/ops/object.ops
);
my $cwd = cwd();
{
@@ -265,7 +265,7 @@
renum => undef,
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -302,13 +302,13 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable subroutines of
-F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2pm.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable subroutines of
+F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2pm.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
-F<08-sort_ops.t> tests whether
+F<08-sort_ops.t> tests whether
C<Parrot::Ops2pm::Utils::sort_ops()> works properly.
=head1 AUTHOR
Modified: trunk/t/tools/ops2pmutils/09-prepare_real_ops.t
==============================================================================
--- trunk/t/tools/ops2pmutils/09-prepare_real_ops.t (original)
+++ trunk/t/tools/ops2pmutils/09-prepare_real_ops.t Thu Mar 15 11:01:03 2007
@@ -32,8 +32,8 @@
ok(chdir $main::topdir, "Positioned at top-level Parrot directory");
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $cwd = cwd();
{
@@ -57,7 +57,7 @@
renum => undef,
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -67,7 +67,7 @@
ok(-f $skip, "ops.skip located after renumbering");
ok($self->sort_ops(), "sort_ops returned successfully");
-
+
ok($self->prepare_real_ops(),
"prepare_real_ops() returned successfully");
@@ -77,8 +77,8 @@
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $cwd = cwd();
{
@@ -97,7 +97,7 @@
my $tmpnum = $realnum . q{.tmp};
ok(copy(qq{$cwd/$num}, $tmpnum),
"copied ops.num file to temporary file");
-
+
my $fhin = IO::File->new();
ok(($fhin->open("<$tmpnum")), "Able to open file for reading");
my @outlines;
@@ -131,7 +131,7 @@
renum => undef,
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -141,7 +141,7 @@
ok(-f $skip, "ops.skip located after renumbering");
ok($self->sort_ops(), "sort_ops returned successfully");
-
+
eval { $self->prepare_real_ops(); };
# like($@, qr/number mismatch/,
# "Number mismatch correctly detected");
@@ -164,13 +164,13 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable methods of
-F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2pm.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable methods of
+F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2pm.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
-F<09-prepare_real_ops.t> tests whether
+F<09-prepare_real_ops.t> tests whether
C<Parrot::Ops2pm::Utils::prepare_real_ops()> works properly.
=head1 TODO
Modified: trunk/t/tools/ops2pmutils/10-print_module.t
==============================================================================
--- trunk/t/tools/ops2pmutils/10-print_module.t (original)
+++ trunk/t/tools/ops2pmutils/10-print_module.t Thu Mar 15 11:01:03 2007
@@ -32,8 +32,8 @@
ok(chdir $main::topdir, "Positioned at top-level Parrot directory");
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $cwd = cwd();
{
@@ -61,7 +61,7 @@
# inc_f => "ops.h",
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -71,7 +71,7 @@
ok(-f $skip, "ops.skip located after renumbering");
ok($self->sort_ops(), "sort_ops returned successfully");
-
+
ok($self->prepare_real_ops(),
"prepare_real_ops() returned successfully");
@@ -80,7 +80,7 @@
"core.pm file written");
# Todo: test characteristics of .pm file written
-
+
ok(chdir $cwd, 'changed back to starting directory after testing');
}
}
@@ -88,8 +88,8 @@
# --no-lines command-line option
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $cwd = cwd();
{
@@ -117,7 +117,7 @@
# inc_f => "ops.h",
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -127,14 +127,14 @@
ok(-f $skip, "ops.skip located after renumbering");
ok($self->sort_ops(), "sort_ops returned successfully");
-
+
ok($self->prepare_real_ops(),
"prepare_real_ops() returned successfully");
ok($self->print_module(), "print_module() returned true");
ok(-f qq{$tdir/$self->{moddir}/$self->{module}},
"core.pm file written");
-
+
my $fhin = IO::File->new();
ok(($fhin->open("<$tdir/$self->{moddir}/$self->{module}")),
"Able to open file for reading");
@@ -148,7 +148,7 @@
"No '#line' directives found in generated C code");
# Todo: more tests of characteristics of .pm file written
-
+
ok(chdir $cwd, 'changed back to starting directory after testing');
}
}
@@ -167,13 +167,13 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable methods of
-F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2pm.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable methods of
+F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2pm.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
-F<10-print_module.t> tests whether
+F<10-print_module.t> tests whether
C<Parrot::Ops2pm::Utils::print_module()> works properly.
=head1 TODO
Modified: trunk/t/tools/ops2pmutils/11-print_h.t
==============================================================================
--- trunk/t/tools/ops2pmutils/11-print_h.t (original)
+++ trunk/t/tools/ops2pmutils/11-print_h.t Thu Mar 15 11:01:03 2007
@@ -31,8 +31,8 @@
ok(chdir $main::topdir, "Positioned at top-level Parrot directory");
{
local @ARGV = qw(
- src/ops/core.ops
- src/ops/bit.ops
+ src/ops/core.ops
+ src/ops/bit.ops
);
my $cwd = cwd();
{
@@ -60,7 +60,7 @@
inc_f => "ops.h",
} );
isa_ok($self, q{Parrot::Ops2pm::Utils});
-
+
ok($self->prepare_ops, "prepare_ops() returned successfully");
ok(defined($self->{ops}), "'ops' key has been defined");
@@ -70,7 +70,7 @@
ok(-f $skip, "ops.skip located after renumbering");
ok($self->sort_ops(), "sort_ops returned successfully");
-
+
ok($self->prepare_real_ops(),
"prepare_real_ops() returned successfully");
@@ -100,13 +100,13 @@
=head1 DESCRIPTION
-The files in this directory test the publicly callable methods of
-F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
-By doing so, they test the functionality of the F<ops2pm.pl> utility.
-That functionality has largely been extracted
+The files in this directory test the publicly callable methods of
+F<lib/Parrot/Ops2pm/Utils.pm> and F<lib/Parrot/Ops2pm/Auxiliary.pm>.
+By doing so, they test the functionality of the F<ops2pm.pl> utility.
+That functionality has largely been extracted
into the methods of F<Utils.pm>.
-F<11-print_h.t> tests whether
+F<11-print_h.t> tests whether
C<Parrot::Ops2pm::Utils::print_h()> works properly.
=head1 TODO
