Author: jkeenan
Date: Sat Aug 16 20:28:56 2008
New Revision: 30274
Added:
branches/opsrenum/t/tools/ops2pm/samples/bit_ops.orig
- copied unchanged from r30271,
/branches/opsrenum/t/tools/ops2pm/samples/bit.ops.orig
branches/opsrenum/t/tools/ops2pm/samples/bit_ops.second
- copied unchanged from r30271,
/branches/opsrenum/t/tools/ops2pm/samples/bit.ops.second
branches/opsrenum/t/tools/ops2pm/samples/core_ops.orig
- copied unchanged from r30271,
/branches/opsrenum/t/tools/ops2pm/samples/core.ops.orig
branches/opsrenum/t/tools/ops2pm/samples/ops_num.orig
- copied unchanged from r30271,
/branches/opsrenum/t/tools/ops2pm/samples/ops.num.orig
branches/opsrenum/t/tools/ops2pm/samples/pic_ops.orig
- copied unchanged from r30271,
/branches/opsrenum/t/tools/ops2pm/samples/pic.ops.orig
Removed:
branches/opsrenum/t/tools/ops2pm/samples/bit.ops.orig
branches/opsrenum/t/tools/ops2pm/samples/bit.ops.second
branches/opsrenum/t/tools/ops2pm/samples/core.ops.orig
branches/opsrenum/t/tools/ops2pm/samples/ops.num.orig
branches/opsrenum/t/tools/ops2pm/samples/pic.ops.orig
Modified:
branches/opsrenum/MANIFEST
branches/opsrenum/t/tools/ops2pm/05-renum_op_map_file.t
Log:
Rename sample files to conform to coding standards (no multiple-dot filenames)
and change citations of those files inside 05-ops_renum_map_file.t.
Modified: branches/opsrenum/MANIFEST
==============================================================================
--- branches/opsrenum/MANIFEST (original)
+++ branches/opsrenum/MANIFEST Sat Aug 16 20:28:56 2008
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by tools/dev/mk_manifest_and_skip.pl Sun Jun 22 16:47:50 2008 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Sun Aug 17 03:13:57 2008 UT
#
# See tools/dev/install_files.pl for documentation on the
# format of this file.
@@ -3816,6 +3816,11 @@
t/tools/ops2pm/09-prepare_real_ops.t []
t/tools/ops2pm/10-print_module.t []
t/tools/ops2pm/11-print_h.t []
+t/tools/ops2pm/samples/bit_ops.orig []
+t/tools/ops2pm/samples/bit_ops.second []
+t/tools/ops2pm/samples/core_ops.orig []
+t/tools/ops2pm/samples/ops_num.orig []
+t/tools/ops2pm/samples/pic_ops.orig []
t/tools/pbc_merge.t []
t/tools/pdb.t []
t/tools/pmc2c.t []
Modified: branches/opsrenum/t/tools/ops2pm/05-renum_op_map_file.t
==============================================================================
--- branches/opsrenum/t/tools/ops2pm/05-renum_op_map_file.t (original)
+++ branches/opsrenum/t/tools/ops2pm/05-renum_op_map_file.t Sat Aug 16
20:28:56 2008
@@ -6,7 +6,7 @@
use strict;
use warnings;
-use Test::More tests => 14;
+use Test::More qw(no_plan); # tests => 14;
use Carp;
use Cwd;
use File::Basename;
@@ -41,13 +41,13 @@
##### Stage 1: Generate ops.num de novo #####
my @stage1 = qw(
- core.ops.orig
- bit.ops.orig
- ops.num.orig
+ core_ops.orig
+ bit_ops.orig
+ ops_num.orig
);
copy_into_position($samplesdir, [EMAIL PROTECTED], q{orig}, $opsdir);
foreach my $f ( qw| core bit | ) {
- copy qq{$samplesdir/$f.ops.orig}, qq{src/ops/$f.ops.post}
+ copy qq{$samplesdir/${f}_ops.orig}, qq{src/ops/$f.ops.post}
or croak "Unable to store $f for later testing: $!";
}
($lastcode, $lastnumber) = run_test_stage(
@@ -65,7 +65,7 @@
###### Stage 2: Delete some opcodes and regenerate ops.num #####
- my @stage2 = qw( bit.ops.second );
+ my @stage2 = qw( bit_ops.second );
copy_into_position($samplesdir, [EMAIL PROTECTED], q{second}, $opsdir);
($lastcode, $lastnumber) = run_test_stage(
[ qw(
@@ -82,7 +82,7 @@
##### Stage 3: Add some opcodes and regenerate ops.num #####
- my @stage3 = qw( pic.ops.orig );
+ my @stage3 = qw( pic_ops.orig );
copy_into_position($samplesdir, [EMAIL PROTECTED], q{orig}, $opsdir);
($lastcode, $lastnumber) = run_test_stage(
[ qw(
@@ -102,13 +102,13 @@
##### Stage 4: Again generate ops.num de novo #####
my @stage4 = qw(
- core.ops.orig
- bit.ops.orig
- ops.num.orig
+ core_ops.orig
+ bit_ops.orig
+ ops_num.orig
);
copy_into_position($samplesdir, [EMAIL PROTECTED], q{orig}, $opsdir);
foreach my $f ( qw| core bit | ) {
- copy qq{$samplesdir/$f.ops.orig}, qq{src/ops/$f.ops.post}
+ copy qq{$samplesdir/${f}_ops.orig}, qq{src/ops/$f.ops.post}
or croak "Unable to store $f for later testing: $!";
}
($lastcode, $lastnumber) = run_test_stage(
@@ -129,7 +129,7 @@
###### Stage 5: Delete some opcodes and regenerate ops.num #####
- my @stage5 = qw( bit.ops.second );
+ my @stage5 = qw( bit_ops.second );
copy_into_position($samplesdir, [EMAIL PROTECTED], q{second}, $opsdir);
($lastcode, $lastnumber) = run_test_stage(
[ qw(
@@ -146,7 +146,7 @@
##### Stage 6: Add some opcodes and regenerate ops.num #####
- my @stage6 = qw( pic.ops.orig );
+ my @stage6 = qw( pic_ops.orig );
copy_into_position($samplesdir, [EMAIL PROTECTED], q{orig}, $opsdir);
($lastcode, $lastnumber) = run_test_stage(
[ qw(
@@ -196,6 +196,7 @@
my $fullor = File::Spec->catfile( $samplesdir, $or );
my $real;
($real = $or) =~ s/\.$ext$//;
+ $real =~ s/_/\./g;
my $fullreal = File::Spec->catfile( $opsdir, $real );
copy $fullor, $fullreal or croak "Unable to copy $or";
}
