r41390 - in /trunk/libppix-editortools-perl: .releaserc Changes INSTALL MANIFEST META.yml TODO debian/changelog lib/PPIx/EditorTools.pm t/01-findunmatchedbrace.t t/02-findvariabledeclaration.t t/03-introducetemporaryvariable.t

ryan52-guest at users.alioth.debian.org ryan52-guest at users.alioth.debian.org
Thu Aug 6 03:35:01 UTC 2009 

Author: ryan52-guest
Date: Thu Aug  6 03:34:55 2009
New Revision: 41390

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=41390
Log:
New upstream release

Added:
    trunk/libppix-editortools-perl/.releaserc
      - copied unchanged from r41389, branches/upstream/libppix-editortools-perl/current/.releaserc
Removed:
    trunk/libppix-editortools-perl/INSTALL
    trunk/libppix-editortools-perl/TODO
Modified:
    trunk/libppix-editortools-perl/Changes
    trunk/libppix-editortools-perl/MANIFEST
    trunk/libppix-editortools-perl/META.yml
    trunk/libppix-editortools-perl/debian/changelog
    trunk/libppix-editortools-perl/lib/PPIx/EditorTools.pm
    trunk/libppix-editortools-perl/t/01-findunmatchedbrace.t
    trunk/libppix-editortools-perl/t/02-findvariabledeclaration.t
    trunk/libppix-editortools-perl/t/03-introducetemporaryvariable.t

Modified: trunk/libppix-editortools-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libppix-editortools-perl/Changes?rev=41390&op=diff
==============================================================================
--- trunk/libppix-editortools-perl/Changes (original)
+++ trunk/libppix-editortools-perl/Changes Thu Aug  6 03:34:55 2009
@@ -1,4 +1,8 @@
 Changes for Perl extension PPIx-EditorTools
+
+0.08 2009.08.05
+	- updated location tests to work with the PPI v1.205 (RT#48449) (MGRIMES)
+	- removed the INSTALL file: bad copyright and old install instuctions
 
 0.07 2009.07.21
 	- skip tests if PPI version includes an underscore _ (SZABGAB)

Modified: trunk/libppix-editortools-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libppix-editortools-perl/MANIFEST?rev=41390&op=diff
==============================================================================
--- trunk/libppix-editortools-perl/MANIFEST (original)
+++ trunk/libppix-editortools-perl/MANIFEST Thu Aug  6 03:34:55 2009
@@ -1,3 +1,4 @@
+.releaserc
 Changes
 inc/Module/Install.pm
 inc/Module/Install/Base.pm
@@ -8,7 +9,6 @@
 inc/Module/Install/Metadata.pm
 inc/Module/Install/Win32.pm
 inc/Module/Install/WriteAll.pm
-INSTALL
 lib/PPIx/EditorTools.pm
 lib/PPIx/EditorTools/FindUnmatchedBrace.pm
 lib/PPIx/EditorTools/FindVariableDeclaration.pm
@@ -28,7 +28,6 @@
 t/04-renamepackage.t
 t/05-renamepackagefrompath.t
 t/06-renamevariable.t
-TODO
 xt/95-prereq.t
 xt/96-kwalitee.t
 xt/97-critic.t

Modified: trunk/libppix-editortools-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libppix-editortools-perl/META.yml?rev=41390&op=diff
==============================================================================
--- trunk/libppix-editortools-perl/META.yml (original)
+++ trunk/libppix-editortools-perl/META.yml Thu Aug  6 03:34:55 2009
@@ -26,4 +26,4 @@
   perl: 5.8.0
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.07
+version: 0.08

Modified: trunk/libppix-editortools-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libppix-editortools-perl/debian/changelog?rev=41390&op=diff
==============================================================================
--- trunk/libppix-editortools-perl/debian/changelog (original)
+++ trunk/libppix-editortools-perl/debian/changelog Thu Aug  6 03:34:55 2009
@@ -1,8 +1,9 @@
-libppix-editortools-perl (0.07-1) UNRELEASED; urgency=low
+libppix-editortools-perl (0.08-1) UNRELEASED; urgency=low
 
   * New upstream release
+  * New upstream release
 
- -- Ryan Niebur <ryanryan52 at gmail.com>  Sat, 25 Jul 2009 09:27:07 -0700
+ -- Ryan Niebur <ryanryan52 at gmail.com>  Wed, 05 Aug 2009 20:34:47 -0700
 
 libppix-editortools-perl (0.06-1) unstable; urgency=low
 

Modified: trunk/libppix-editortools-perl/lib/PPIx/EditorTools.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libppix-editortools-perl/lib/PPIx/EditorTools.pm?rev=41390&op=diff
==============================================================================
--- trunk/libppix-editortools-perl/lib/PPIx/EditorTools.pm (original)
+++ trunk/libppix-editortools-perl/lib/PPIx/EditorTools.pm Thu Aug  6 03:34:55 2009
@@ -14,7 +14,7 @@
 use PPI 1.203;
 use PPIx::EditorTools::ReturnObject;
 
-our $VERSION = '0.07';
+our $VERSION = '0.08';
 
 =pod
 

Modified: trunk/libppix-editortools-perl/t/01-findunmatchedbrace.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libppix-editortools-perl/t/01-findunmatchedbrace.t?rev=41390&op=diff
==============================================================================
--- trunk/libppix-editortools-perl/t/01-findunmatchedbrace.t (original)
+++ trunk/libppix-editortools-perl/t/01-findunmatchedbrace.t Thu Aug  6 03:34:55 2009
@@ -26,7 +26,7 @@
 
 isa_ok( $brace,          'PPIx::EditorTools::ReturnObject' );
 isa_ok( $brace->element, 'PPI::Structure::Block' );
-is_deeply( $brace->element->location, [ 4, 7, 7 ], 'unclosed sub' );
+location_is( $brace->element, [ 4, 7, 7 ], 'unclosed sub' );
 
 $brace =
   PPIx::EditorTools::FindUnmatchedBrace->new->find(
@@ -34,4 +34,13 @@
 
 isa_ok( $brace,          'PPIx::EditorTools::ReturnObject' );
 isa_ok( $brace->element, 'PPI::Structure::Block' );
-is_deeply( $brace->element->location, [ 2, 18, 18 ], 'unclosed for block' );
+location_is( $brace->element, [ 2, 18, 18 ], 'unclosed for block' );
+
+sub location_is {
+    my ($element, $location, $desc) = @_;
+
+    my $elem_loc = $element->location;
+    $elem_loc = [ @$elem_loc[0..2] ] if @$elem_loc > 3;
+    is_deeply( $elem_loc, $location, $desc );
+}
+

Modified: trunk/libppix-editortools-perl/t/02-findvariabledeclaration.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libppix-editortools-perl/t/02-findvariabledeclaration.t?rev=41390&op=diff
==============================================================================
--- trunk/libppix-editortools-perl/t/02-findvariabledeclaration.t (original)
+++ trunk/libppix-editortools-perl/t/02-findvariabledeclaration.t Thu Aug  6 03:34:55 2009
@@ -28,5 +28,12 @@
 
 isa_ok( $declaration, 'PPIx::EditorTools::ReturnObject' );
 isa_ok( $declaration->element, 'PPI::Statement::Variable' );
-is_deeply( $declaration->element->location, [ 4, 1, 1 ], 'simple scalar' );
+location_is( $declaration->element, [ 4, 1, 1 ], 'simple scalar' );
 
+sub location_is {
+    my ($element, $location, $desc) = @_;
+
+    my $elem_loc = $element->location;
+    $elem_loc = [ @$elem_loc[0..2] ] if @$elem_loc > 3;
+    is_deeply( $elem_loc, $location, $desc );
+}

Modified: trunk/libppix-editortools-perl/t/03-introducetemporaryvariable.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libppix-editortools-perl/t/03-introducetemporaryvariable.t?rev=41390&op=diff
==============================================================================
--- trunk/libppix-editortools-perl/t/03-introducetemporaryvariable.t (original)
+++ trunk/libppix-editortools-perl/t/03-introducetemporaryvariable.t Thu Aug  6 03:34:55 2009
@@ -34,7 +34,7 @@
 );
 isa_ok( $new_code,          'PPIx::EditorTools::ReturnObject' );
 isa_ok( $new_code->element, 'PPI::Token' );
-is_deeply( $new_code->element->location, [ 2, 5, 5 ], 'temp var location' );
+location_is( $new_code->element, [ 2, 5, 5 ], 'temp var location' );
 eq_or_diff( $new_code->code, <<'RESULT', '10 / 12' );
 use strict; use warnings;
     my $foo = 10 / 12;
@@ -77,3 +77,10 @@
 my $y = ( 3 + 10 / 12 ) * 2;
 RESULT
 
+sub location_is {
+    my ($element, $location, $desc) = @_;
+
+    my $elem_loc = $element->location;
+    $elem_loc = [ @$elem_loc[0..2] ] if @$elem_loc > 3;
+    is_deeply( $elem_loc, $location, $desc );
+}

More information about the Pkg-perl-cvs-commits mailing list