Comments out unused code

Closes #8, still refs #5

Author: JJ

lib/CompUnit/PrecompilationRepository/Document.pm6

@@ -34,20 +34,20 @@ class CompUnit::PrecompilationRepository::Document is CompUnit::PrecompilationRe
             Nil
     }
 
-    #| Loads a file, returns a handle for precompiled file and checksum. Needs an $id for the precompilation unit, an IO::Path and an array of Compunit::Precompilation store that is assigned by default
-    multi method load(
-        CompUnit::PrecompilationId $id,
-        IO::Path :$source,
-        CompUnit::PrecompilationStore :@precomp-stores = Array[CompUnit::PrecompilationStore].new($.store),
-    ) {
-        my $compiler-id = CompUnit::PrecompilationId.new-without-check($*PERL.compiler.id);
-        my $unit = self!load-file(@precomp-stores, $id);
-        if $unit {
-            return (self!load-handle-for-path($unit), $unit.checksum);
-        }
-        else {
-            $unit.close;
-        }
-        Nil
-    }
+#    #| Loads a file, returns a handle for precompiled file and checksum. Needs an $id for the precompilation unit, an IO::Path and an array of Compunit::Precompilation store that is assigned by default
+#    multi method load-x(
+#        CompUnit::PrecompilationId $id,
+#        IO::Path :$source,
+#        CompUnit::PrecompilationStore :@precomp-stores = Array[CompUnit::PrecompilationStore].new($.store),
+#    ) {
+#        my $compiler-id = CompUnit::PrecompilationId.new-without-check($*PERL.compiler.id);
+#        my $unit = self!load-file(@precomp-stores, $id);
+#        if $unit {
+#            return (self!load-handle-for-path($unit), $unit.checksum);
+#        }
+#        else {
+#            $unit.close;
+#        }
+#        Nil
+#    }
 }

t/007-load-precompile.t

@@ -17,7 +17,7 @@ for <simple sub/simple> -> $doc-name {
     $precomp.precompile("t/doctest/$doc-name.pod6".IO, $key, :force );
     my $handle = $precomp.load($key)[0];
     my $precompiled-pod = nqp::atkey($handle.unit,'$=pod')[0];
-    is-deeply $precompiled-pod, $=pod[0], "Load precompiled pod";
+    is-deeply $precompiled-pod, $=pod[0], "Load precompiled pod $doc-name";
 }
 
 rmtree(cache-name);

t/040-pod-extraction.t

@@ -43,7 +43,7 @@ throws-like { $cache.freeze }, Exception, :message(/'Cannot freeze because some
 ok $cache.update-cache, 'updates without problem';
 
 #--MARKER-- Test 7
-like $cache.pod('a-second-pod-file')[0].contents[1].contents[0], /'Some extra changed text but now it is changed'/, 'new version after update';
+like $cache.pod('a-second-pod-file')[0].contents[1].contents[0], /'Some more text but now it is changed'/, 'new version after update';
 #--MARKER-- Test 8
 lives-ok { $cache.freeze }, 'All updated so now can freeze';