Attachment 78102 Details for Bug 63612 – Patch to improve Perl and TAP support. Applies against commit 0c41ac8

[patch] Patch to improve Perl and TAP support. Applies against commit 0c41ac8

perl-magic.patch (text/plain), 4.70 KB, created by Salve J. Nilsen on 2013-04-16 17:24:05 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Salve J. Nilsen

Created: 2013-04-16 17:24:05 UTC

Size: 4.70 KB

patch

obsolete

>diff --git a/freedesktop.org.xml.in b/freedesktop.org.xml.in
>index fdac74f..e4522c6 100644
>--- a/freedesktop.org.xml.in
>+++ b/freedesktop.org.xml.in
>@@ -2826,11 +2826,37 @@ command to generate the output files.
>       <match type="string" value='eval \"exec /usr/local/bin/perl' offset="0"/>
>       <match type="string" value="/bin/perl" offset="1:16"/>
>       <match type="string" value="/bin/env perl" offset="1:16"/>
>+      <match type="string" value="#!perl" offset="0"/>
>+      <match type="string" value="package " offset="0:256"/>
>+      <match type="string" value="use strict" offset="0:256"/>
>+      <match type="string" value="use warnings" offset="0:256"/>
>+      <match type="string" value="use diagnostics" offset="0:256"/>
>+      <match type="string" value="use base " offset="0:256"/>
>+      <match type="string" value="use lib " offset="0:256"/>
>+      <match type="string" value="use Test::" offset="0:256"/>
>+      <match type="string" value="BEGIN {" offset="0:256"/>
>+    </magic>
>+    <magic priority="40">
>+      <match type="string" value="\n=pod" offset="0:256"/>
>+      <match type="string" value="\n=head1 NAME" offset="0:256"/>
>+      <match type="string" value="\n=head1 DESCRIPTION" offset="0:256"/>
>     </magic>
>     <glob pattern="*.pl"/>
>+    <glob pattern="*.PL"/>
>     <glob pattern="*.pm"/>
>     <glob pattern="*.al"/>
>     <glob pattern="*.perl"/>
>+    <glob pattern="*.pod"/>
>+    <glob pattern="*.t" weight="10"/>
>+  </mime-type>
>+  <mime-type type="application/x-tap">
>+    <_comment>Test Anything Protocol output</_comment>
>+    <sub-class-of type="text/plain"/>
>+    <magic priority="50">
>+      <match type="string" value='1..' offset="0"/>
>+      <match type="string" value="ok 1" offset="0:16"/>
>+    </magic>
>+    <glob pattern="*.tap"/>
>   </mime-type>
>   <mime-type type="application/x-php">
>     <_comment>PHP script</_comment>
>@@ -3311,7 +3337,7 @@ command to generate the output files.
>     </magic>
>     <glob pattern="*.tr"/>
>     <glob pattern="*.roff"/>
>-    <glob pattern="*.t"/>
>+    <glob weight="10" pattern="*.t"/>
>   </mime-type>
>   <mime-type type="application/x-troff-man">
>     <_comment>Troff document (with manpage macros)</_comment>
>diff --git a/tests/list b/tests/list
>index f8d2cd6..e848f97 100644
>--- a/tests/list
>+++ b/tests/list
>@@ -272,6 +272,13 @@ test.jnlp application/x-java-jnlp-file
> # Python script
> test.py text/x-python
> test.pyx text/x-python ox
>+# Perl
>+test.pl application/x-perl
>+test.pm application/x-perl
>+test.t application/x-perl
>+# Test Anything Protocol output
>+test1.tap application/x-tap
>+test2.tap application/x-tap
> 
> # xml subtypes
> test.ttx application/x-font-ttx
>diff --git a/tests/test.pl b/tests/test.pl
>new file mode 100644
>index 0000000..306ad8e
>--- /dev/null
>+++ b/tests/test.pl
>@@ -0,0 +1,7 @@
>+#!/usr/bin/env perl
>+
>+use 5.010_001; # Require Perl5 version 10.1 or newer
>+use strict;
>+use warnings;
>+
>+say scalar localtime;  # now
>diff --git a/tests/test.pm b/tests/test.pm
>new file mode 100644
>index 0000000..1c47751
>--- /dev/null
>+++ b/tests/test.pm
>@@ -0,0 +1,9 @@
>+use 5.010_001; # Require Perl5 version 10.1 or newer
>+use strict;
>+use warnings;
>+
>+package test;
>+
>+sub now {
>+    say scalar localtime;  # now
>+}
>diff --git a/tests/test.t b/tests/test.t
>new file mode 100644
>index 0000000..48929e3
>--- /dev/null
>+++ b/tests/test.t
>@@ -0,0 +1,16 @@
>+use Test::More tests => 4;
>+
>+my $true_value = !0;
>+ok( $true_value, "Boolean negation of 0 is true" );
>+
>+SKIP: {
>+    skip("Confused implementor", 1);
>+    is( $true_value, "0 but true", "'0 but true' is true");
>+}
>+
>+TODO: {
>+    local $TODO = "Need fuzzy magic";
>+    is( $true_value, 0.999999999999999, "True-ish in the fuzzy sense");
>+}
>+
>+is( $true_value, 1, "Boolean negation of 0 is 1" );
>diff --git a/tests/test1.tap b/tests/test1.tap
>new file mode 100644
>index 0000000..1b7c373
>--- /dev/null
>+++ b/tests/test1.tap
>@@ -0,0 +1,9 @@
>+1..4
>+ok 1 - Boolean negation of 0 is true
>+ok 2 # skip Confused implementor
>+not ok 3 - True-ish in the fuzzy sense # TODO Need fuzzy magic
>+#   Failed (TODO) test 'True-ish in the fuzzy sense'
>+#   at tests/test.t line 13.
>+#          got: '1'
>+#     expected: '0.999999999999999'
>+ok 4 - Boolean negation of 0 is 1
>diff --git a/tests/test2.tap b/tests/test2.tap
>new file mode 100644
>index 0000000..965b3fd
>--- /dev/null
>+++ b/tests/test2.tap
>@@ -0,0 +1,9 @@
>+ok 1 - Boolean negation of 0 is true
>+ok 2 # skip Confused implementor
>+not ok 3 - True-ish in the fuzzy sense # TODO Need fuzzy magic
>+#   Failed (TODO) test 'True-ish in the fuzzy sense'
>+#   at tests/test.t line 13.
>+#          got: '1'
>+#     expected: '0.999999999999999'
>+ok 4 - Boolean negation of 0 is 1
>+1..4

Actions: View | Splinter Review

Attachments on bug 63612: 78102 | 86830

Use of freedesktop.org services, including Bugzilla, is subject to our Code of Conduct. How we collect and use information is described in our Privacy Policy.