bugfix, xml() method for version4 was broken

berekuk · Jul 21, 2008 · 4552272 · 4552272
1 parent ff2ee97
commit 4552272
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 1 deletion.
diff --git a/libguitarpro-perl/GuitarPro/NoteEffects/NoteEffects4.pm b/libguitarpro-perl/GuitarPro/NoteEffects/NoteEffects4.pm
@@ -3,6 +3,8 @@ package GuitarPro::NoteEffects::NoteEffects4;
 use strict;
 use warnings;
 
+our @ISA = qw(GuitarPro::NoteEffects);
+
 use GuitarPro::Header;
 use GuitarPro::Bend;
 

diff --git a/libguitarpro-perl/debian/changelog b/libguitarpro-perl/debian/changelog
@@ -1,3 +1,9 @@
+libguitarpro-perl (0.3.1-1) unstable; urgency=low
+
+  * bugfix, xml() method for version4 was broken
+
+ -- Vyacheslav Matjukhin <mmcleric@gmail.com>  Tue, 22 Jul 2008 02:21:05 +0400
+
 libguitarpro-perl (0.3.1) unstable; urgency=low
 
   * gpcheck manpage

diff --git a/libguitarpro-perl/t/piece.t b/libguitarpro-perl/t/piece.t
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-use Test::More  tests => 2;
+use Test::More  tests => 3;
 
 use strict;
 use warnings;
@@ -14,3 +14,6 @@ BEGIN {
 my $piece = new GuitarPro::Piece({file => 't/data/test.gp4'});
 is($piece->version, 'FICHIER GUITAR PRO v4.06');
 
+my $xml = $piece->xml();
+ok('xml() method works');
+