Author: jkeenan
Date: Wed Feb 14 05:32:54 2007
New Revision: 16978
Modified:
branches/buildtools/t/tools/ops2cutils/01-new.t (props changed)
branches/buildtools/t/tools/ops2cutils/02-usage.t (contents, props changed)
branches/buildtools/t/tools/ops2cutils/03-print_c_header_file.t (contents,
props changed)
branches/buildtools/t/tools/ops2cutils/04-print_c_source_top.t (contents,
props changed)
Log:
Set SVN properties on test files. Correct POD errors. Refine tests on
prin_c_source_top().
Modified: branches/buildtools/t/tools/ops2cutils/02-usage.t
==============================================================================
--- branches/buildtools/t/tools/ops2cutils/02-usage.t (original)
+++ branches/buildtools/t/tools/ops2cutils/02-usage.t Wed Feb 14 05:32:54 2007
@@ -1,6 +1,6 @@
#! perl
# Copyright (C) 2006, The Perl Foundation.
-# $Id: 02-usage.t 16894 2007-02-04 22:54:29Z jkeenan $
+# $Id$
# 02-usage.t
use strict;
Modified: branches/buildtools/t/tools/ops2cutils/03-print_c_header_file.t
==============================================================================
--- branches/buildtools/t/tools/ops2cutils/03-print_c_header_file.t
(original)
+++ branches/buildtools/t/tools/ops2cutils/03-print_c_header_file.t Wed Feb
14 05:32:54 2007
@@ -1,6 +1,6 @@
#! perl
# Copyright (C) 2006, The Perl Foundation.
-# $Id: 03-print_c_header_file.t 16948 2007-02-12 03:58:24Z jkeenan $
+# $Id$
# 03-print_c_header_file.t
use strict;
@@ -88,6 +88,7 @@
} );
ok(defined $self,
"Constructor correct when provided with single argument $trans");
+
my $c_header_file = $self->print_c_header_file();
ok(-e $c_header_file, "$c_header_file created");
ok(-s $c_header_file, "$c_header_file has non-zero size");
@@ -111,8 +112,8 @@
That functionality has largely been extracted
into the methods of F<Utils.pm>.
-F<03-print_c_header_file.t> tests whether C<Parrot::Ops2c::Auxiliary::Usage()>
-and F<getoptions()> work properly.
+F<04-print_c_header_file.t> tests whether
+C<Parrot::Ops2c::Utils::print_c_header_file()> work properly.
=head1 AUTHOR
Modified: branches/buildtools/t/tools/ops2cutils/04-print_c_source_top.t
==============================================================================
--- branches/buildtools/t/tools/ops2cutils/04-print_c_source_top.t
(original)
+++ branches/buildtools/t/tools/ops2cutils/04-print_c_source_top.t Wed Feb
14 05:32:54 2007
@@ -1,6 +1,6 @@
#! perl
# Copyright (C) 2006, The Perl Foundation.
-# $Id: 04-print_c_source_top.t 16962 2007-02-13 03:38:24Z jkeenan $
+# $Id$
# 04-print_c_source_top.t
use strict;
@@ -63,12 +63,13 @@
ok(-e $c_header_file, "$c_header_file created");
ok(-s $c_header_file, "$c_header_file has non-zero size");
- my ($SOURCE, $op_func_table_ref, $bs, $index) =
+# my ($SOURCE, $op_func_table_ref, $bs, $index) =
+ my ($SOURCE) =
$self->print_c_source_top();
is(ref($SOURCE), q{GLOB}, "Argument type is filehandle (typeglob)");
- is(ref($op_func_table_ref), q{ARRAY}, "Array reference noted");
- is($bs, q{core_}, "'core_' identified");
- like($index, qr/^\d+$/, "\$index is numeric");
+# is(ref($op_func_table_ref), q{ARRAY}, "Array reference noted");
+# is($bs, q{core_}, "'core_' identified");
+# like($index, qr/^\d+$/, "\$index is numeric");
}
ok(chdir($cwd), "returned to starting directory");
