Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Temporarily remove POD synopsys tests.

   Should do Panda now that curried roles work over compilation boundary
   Now, to go test that theory...
  • Loading branch information...
commit a5e79d145394b82ae9f6e9fb2ceb48d9d1e436d0 1 parent ab1bbce
skids authored
4 README.md
View
@@ -3,6 +3,4 @@ perl6sum
Sum:: Perl6 modules implementing checksums, hashes, etc.
-Note to panda users: this package cannot currently be run from
-precompiled binaries, pending rakudo fixes for curried roles
-and POD. It does work when run from source, however.
+
3  lib/Sum.pm6
View
@@ -92,7 +92,8 @@ class X::Sum::Recourse is Exception {
# will become more maintainable. In the meantime, if you edit anything
# above, take care to adjust the sections here.
-$Sum::Doc::synopsis = $=pod[0].content[4..8]>>.content.Str;
+# Disabling this for now until .pir files properly serialize pod
+#$Sum::Doc::synopsis = $=pod[0].content[4..8]>>.content.Str;
=begin pod
3  lib/Sum/Adler.pm6
View
@@ -19,7 +19,8 @@ Sum::Adler
# will become more maintainable. In the meantime, if you edit anything
# above, take care to adjust the sections here.
-$Sum::Adler::Doc::synopsis = $=pod[0].content[4].content.Str;
+# Disabling this for now until .pir files properly serialize pod
+#$Sum::Adler::Doc::synopsis = $=pod[0].content[4].content.Str;
=begin pod
3  lib/Sum/MD.pm6
View
@@ -23,7 +23,8 @@ Sum::MD
# will become more maintainable. In the meantime, if you edit anything
# above, take care to adjust the sections here.
-$Sum::MD::Doc::synopsis = $=pod[0].content[3..4]>>.content.Str;
+# Disabling this for now until .pir files properly serialize pod
+#$Sum::MD::Doc::synopsis = $=pod[0].content[3..4]>>.content.Str;
=begin pod
3  lib/Sum/SHA.pm6
View
@@ -34,7 +34,8 @@ Sum::SHA
# will become more maintainable. In the meantime, if you edit anything
# above, take care to adjust the sections here.
-$Sum::SHA::Doc::synopsis = $=pod[0].content[3..6]>>.content.Str;
+# Disabling this for now until .pir files properly serialize pod
+#$Sum::SHA::Doc::synopsis = $=pod[0].content[3..6]>>.content.Str;
=begin pod
3  lib/Sum/SipHash.pm6
View
@@ -19,7 +19,8 @@ Sum::SipHash
# will become more maintainable. In the meantime, if you edit anything
# above, take care to adjust the sections here.
-$Sum::SipHash::Doc::synopsis = $=pod[0].content[4].content.Str;
+# Disabling this for now until .pir files properly serialize pod
+#$Sum::SipHash::Doc::synopsis = $=pod[0].content[4].content.Str;
=begin pod
6 t/adler.t
View
@@ -3,7 +3,7 @@ BEGIN { @*INC.unshift: './lib'; }
use Test;
-plan 26;
+plan 25;
use Sum::Adler;
ok(1,'We use Sum::Adler and we are still alive');
@@ -72,6 +72,6 @@ class sayer {
method print (*@s) { $.accum ~= [~] @s }
}
my sayer $p .= new();
-{ temp $*OUT = $p; eval $Sum::Adler::Doc::synopsis; }
-is $p.accum, $Sum::Adler::Doc::synopsis.comb(/<.after \#\s> (<.ws> <.xdigit>+)+/).join("\n") ~ "\n", 'Code in manpage synopsis actually works';
+#{ temp $*OUT = $p; eval $Sum::Adler::Doc::synopsis; }
+#is $p.accum, $Sum::Adler::Doc::synopsis.comb(/<.after \#\s> (<.ws> <.xdigit>+)+/).join("\n") ~ "\n", 'Code in manpage synopsis actually works';
6 t/md.t
View
@@ -3,7 +3,7 @@ BEGIN { @*INC.unshift: './lib'; }
use Test;
-plan 61;
+plan 60;
use Sum;
use Sum::MD;
@@ -237,6 +237,6 @@ class sayer {
method print (*@s) { $.accum ~= [~] @s }
}
my sayer $p .= new();
-{ temp $*OUT = $p; eval $Sum::MD::Doc::synopsis; }
-is $p.accum, $Sum::MD::Doc::synopsis.comb(/<.after \#\s> (<.ws> <.xdigit>+)+/).join("\n") ~ "\n", 'Code in manpage synopsis actually works';
+#{ temp $*OUT = $p; eval $Sum::MD::Doc::synopsis; }
+#is $p.accum, $Sum::MD::Doc::synopsis.comb(/<.after \#\s> (<.ws> <.xdigit>+)+/).join("\n") ~ "\n", 'Code in manpage synopsis actually works';
6 t/sha.t
View
@@ -3,7 +3,7 @@ BEGIN { @*INC.unshift: './lib'; }
use Test;
-plan 53;
+plan 52;
use Sum::SHA;
ok 1,'We use Sum::SHA and we are still alive';
@@ -178,5 +178,5 @@ class sayer {
method print (*@s) { $.accum ~= [~] @s }
}
my sayer $p .= new();
-{ temp $*OUT = $p; eval $Sum::SHA::Doc::synopsis; }
-is $p.accum, $Sum::SHA::Doc::synopsis.comb(/<.after \#\s> (<.ws> <.xdigit>+)+/).join("\n") ~ "\n", 'Code in manpage synopsis actually works';
+#{ temp $*OUT = $p; eval $Sum::SHA::Doc::synopsis; }
+#is $p.accum, $Sum::SHA::Doc::synopsis.comb(/<.after \#\s> (<.ws> <.xdigit>+)+/).join("\n") ~ "\n", 'Code in manpage synopsis actually works';
6 t/siphash.t
View
@@ -3,7 +3,7 @@ BEGIN { @*INC.unshift: './lib'; }
use Test;
-plan 71;
+plan 70;
use Sum::SipHash;
ok(1,'We use Sum::SipHash and we are still alive');
@@ -26,8 +26,8 @@ class sayer {
method print (*@s) { $.accum ~= [~] @s }
}
my sayer $p .= new();
-{ temp $*OUT = $p; eval $Sum::SipHash::Doc::synopsis; }
-is $p.accum, $Sum::SipHash::Doc::synopsis.comb(/<.after \#\s> (<.ws> <.xdigit>+)+/).join("\n") ~ "\n", 'Code in manpage synopsis actually works';
+#{ temp $*OUT = $p; eval $Sum::SipHash::Doc::synopsis; }
+#is $p.accum, $Sum::SipHash::Doc::synopsis.comb(/<.after \#\s> (<.ws> <.xdigit>+)+/).join("\n") ~ "\n", 'Code in manpage synopsis actually works';
# These test vectors appear in Aumussen reference C implentation
6 t/sum.t
View
@@ -3,7 +3,7 @@ BEGIN { @*INC.unshift: './lib'; }
use Test;
-plan 72;
+plan 71;
use Sum;
ok(1,'We use Sum and we are still alive');
@@ -232,5 +232,5 @@ class sayer {
method print (*@s) { $.accum ~= [~] @s }
}
my sayer $s .= new();
-{ temp $*OUT = $s; eval $Sum::Doc::synopsis; }
-is $s.accum, $Sum::Doc::synopsis.comb(/<.after \#\s> (<.ws> \d+)+/).join("\n") ~ "\n", 'Code in manpage synopsis actually works';
+#{ temp $*OUT = $s; eval $Sum::Doc::synopsis; }
+#is $s.accum, $Sum::Doc::synopsis.comb(/<.after \#\s> (<.ws> \d+)+/).join("\n") ~ "\n", 'Code in manpage synopsis actually works';
Please sign in to comment.
Something went wrong with that request. Please try again.