Permalink
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...
1 parent ab1bbce commit a5e79d145394b82ae9f6e9fb2ceb48d9d1e436d0 @skids committed Jan 7, 2013
Showing with 26 additions and 23 deletions.
  1. +1 −3 README.md
  2. +2 −1 lib/Sum.pm6
  3. +2 −1 lib/Sum/Adler.pm6
  4. +2 −1 lib/Sum/MD.pm6
  5. +2 −1 lib/Sum/SHA.pm6
  6. +2 −1 lib/Sum/SipHash.pm6
  7. +3 −3 t/adler.t
  8. +3 −3 t/md.t
  9. +3 −3 t/sha.t
  10. +3 −3 t/siphash.t
  11. +3 −3 t/sum.t
View
4 README.md
@@ -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.
+
View
3 lib/Sum.pm6
@@ -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
View
3 lib/Sum/Adler.pm6
@@ -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
View
3 lib/Sum/MD.pm6
@@ -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
View
3 lib/Sum/SHA.pm6
@@ -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
View
3 lib/Sum/SipHash.pm6
@@ -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
View
6 t/adler.t
@@ -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';
View
6 t/md.t
@@ -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';
View
6 t/sha.t
@@ -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';
View
6 t/siphash.t
@@ -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
View
6 t/sum.t
@@ -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';

0 comments on commit a5e79d1

Please sign in to comment.