This is an automated email from the git hooks/post-receive script. intrigeri pushed a commit to tag debian_version_0_8-1 in repository libparse-debianchangelog-perl.
commit 55cdecc4e72d508fb5cdc7af5556f3448d1839a8 Author: Frank Lichtenheld <fr...@lichtenheld.de> Date: Mon Oct 3 12:11:32 2005 +0000 Initial revision --- t/Parse-DebianChangelog-ChangesFilters.t | 106 +++++++++++++++++++++++++++++++ 1 file changed, 106 insertions(+) diff --git a/t/Parse-DebianChangelog-ChangesFilters.t b/t/Parse-DebianChangelog-ChangesFilters.t new file mode 100644 index 0000000..2c6c086 --- /dev/null +++ b/t/Parse-DebianChangelog-ChangesFilters.t @@ -0,0 +1,106 @@ +# -*- perl -*- +# Before `make install' is performed this script should be runnable with +# `make test'. After `make install' it should work as `perl Parse-DebianChangelog.t' + +######################### + +# change 'tests => 1' to 'tests => last_test_to_print'; + +use strict; +use warnings; + +use Test::More tests => 10; +BEGIN { + use_ok('Parse::DebianChangelog::ChangesFilters', ':all' ); +}; + +use CGI; + +######################### + +my $cgi = new CGI; +$cgi->autoEscape(0); + +my $text = encode_entities( 'hällö & tschüß <tt id="a">:)</tt>' ); + +is( $text, 'hällö & tschüß <tt id="a">:)</tt>', + 'encode_entities' ); + +$text = http_ftp_urls( 'foo http://foo.com/cgi-bin/t.cgi?id=bar&name=bar bar', + $cgi ); + +is( $text, + 'foo <a href="http://foo.com/cgi-bin/t.cgi?id=bar&name=bar">http://foo.com/cgi-bin/t.cgi?id=bar&name=bar</a> bar', + 'http_ftp_urls' ); + +TODO: { + local $TODO = 'bug in detection code'; + + $text = http_ftp_urls( 'foo <http://foo.com/cgi-bin/t.cgi?id=bar&name=bar> bar', + $cgi ); + + is( $text, + 'foo <<a href="http://foo.com/cgi-bin/t.cgi?id=bar&name=bar">http://foo.com/cgi-bin/t.cgi?id=bar&name=bar</a>> bar', + 'http_ftp_urls with complicated embedding' ); +} + +$text = email_to_ddpo( 'Frank Lichtenheld <dj...@debian.org>', $cgi ); + +is( $text, + 'Frank Lichtenheld <<a href="http://qa.debian.org/developer.php?login=dj...@debian.org">dj...@debian.org</a>>', + 'email_to_ddpo' ); + +$text = bugs_to_bts( 'This (Closes: #123456, Bug#4321, #222) (hopefully, maybe closes #72345, too)', + $cgi ); + +is( $text, + 'This (Closes: <a class="buglink" href="http://bugs.debian.org/123456">#123456</a>, <a class="buglink" href="http://bugs.debian.org/4321">Bug#4321</a>, <a class="buglink" href="http://bugs.debian.org/222">#222</a>) (hopefully, maybe closes #72345, too)', + 'bugs_to_bts' ); + +$text = cve_to_mitre( 'SECURITY FIXES (CAN-2005-9999, CVE-2004-9999):', + $cgi ); + +is( $text, + 'SECURITY FIXES (<a href="http://cve.mitre.org/cgi-bin/cvename.cgi?name=CAN-2005-9999">CAN-2005-9999</a>, <a href="http://cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-2004-9999">CVE-2004-9999</a>):', + 'cve_to_mitre' ); + +$text = pseudo_markup( 'This is a test for *emphasised texts -- and* *more*, we can also make this #really really strong#, #really#', + $cgi ); + +is( $text, + 'This is a test for <em>emphasised texts -- and</em> <em>more</em>, we can also make this <strong>really really strong</strong>, <strong>really</strong>', + 'pseudo_markup' ); + +$text = common_licenses( 'And a quick test for /usr/share/common-licenses/GPL-2 license textes', + $cgi ); + +is( $text, + 'And a quick test for <a href="http://www.gnu.org/copyleft/gpl.html">/usr/share/common-licenses/GPL-2</a> license textes', + $cgi ); + +my $complete_text = <<'EOT'; +hällö & tschüß <tt id="a">:)</tt> +foo http://foo.com/cgi-bin/t.cgi?id=bar&name=bar bar +Frank Lichtenheld <dj...@debian.org> +This (Closes: #123456, Bug#4321, #222) (hopefully, maybe closes #72345, too) +SECURITY FIXES (CAN-2005-9999, CVE-2004-9999): +This is a test for *emphasised texts -- and* *more*, we can also make this #really really strong#, #really# +And a quick test for /usr/share/common-licenses/GPL-2 license textes +EOT + ; + +my $complete_result = <<'EOR'; +hällö & tschüß <tt id="a">:)</tt> +foo <a href="http://foo.com/cgi-bin/t.cgi?id=bar&name=bar">http://foo.com/cgi-bin/t.cgi?id=bar&name=bar</a> bar +Frank Lichtenheld <<a href="http://qa.debian.org/developer.php?login=dj...@debian.org">dj...@debian.org</a>> +This (Closes: <a class="buglink" href="http://bugs.debian.org/123456">#123456</a>, <a class="buglink" href="http://bugs.debian.org/4321">Bug#4321</a>, <a class="buglink" href="http://bugs.debian.org/222">#222</a>) (hopefully, maybe closes #72345, too) +SECURITY FIXES (<a href="http://cve.mitre.org/cgi-bin/cvename.cgi?name=CAN-2005-9999">CAN-2005-9999</a>, <a href="http://cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-2004-9999">CVE-2004-9999</a>): +This is a test for <em>emphasised texts -- and</em> <em>more</em>, we can also make this <strong>really really strong</strong>, <strong>really</strong> +And a quick test for <a href="http://www.gnu.org/copyleft/gpl.html">/usr/share/common-licenses/GPL-2</a> license textes +EOR + ; + +$text = Parse::DebianChangelog::ChangesFilters::all_filters( $complete_text, + $cgi ); + +is( $text, $complete_result, 'all_filters' ); -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libparse-debianchangelog-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits