[svn:parrot] r30177 - branches/opsrenum/t/tools/ops2pm

[jkeenan]

Author: jkeenan
Date: Mon Aug 11 18:28:59 2008
New Revision: 30177

Modified:
   branches/opsrenum/t/tools/ops2pm/05-renum_op_map_file.t

Log:
Use correct arguments to Parrot::OpsRenumber.

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     Mon Aug 11 
18:28:59 2008
@@ -19,7 +19,7 @@
     }
     unshift @INC, qq{$topdir/lib};
 }
-use Test::More tests => 27;
+use Test::More qw(no_plan); # tests => 27;
 use Cwd;
 use File::Copy;
 use File::Temp (qw| tempdir |);
@@ -50,9 +50,11 @@
         my $self = Parrot::OpsRenumber->new(
             {
                 argv    => [EMAIL PROTECTED],
-                script  => "tools/build/ops2pm.pl",
-                nolines => undef,
-                renum   => 1,
+                moddir  => "lib/Parrot/OpLib",
+                module  => "core.pm",
+                inc_dir => "include/parrot/oplib",
+                inc_f   => "ops.h",
+                script  => "tools/dev/opsrenumber.pl",
             }
         );
         isa_ok( $self, q{Parrot::OpsRenumber} );
@@ -90,9 +92,11 @@
         my $self = Parrot::OpsRenumber->new(
             {
                 argv    => [EMAIL PROTECTED],
-                script  => "tools/build/ops2pm.pl",
-                nolines => undef,
-                renum   => 1,
+                moddir  => "lib/Parrot/OpLib",
+                module  => "core.pm",
+                inc_dir => "include/parrot/oplib",
+                inc_f   => "ops.h",
+                script  => "tools/dev/opsrenumber.pl",
             }
         );
         isa_ok( $self, q{Parrot::OpsRenumber} );