Adds more low-level tests refs #5

Author: JJ

t/007-load-precompile.t

@@ -7,24 +7,25 @@ use File::Directory::Tree;
 
 plan1;
 
-my$precomp-store= CompUnit::PrecompilationStore::File.new(prefix =>"cache".IO );
+constant cache-name ="cache";
+my$precomp-store= CompUnit::PrecompilationStore::File.new(prefix =>
+ cache-name.IO );
 my$precomp= CompUnit::PrecompilationRepository::Document.new(store =>$precomp-store);
 
-constant doc-name ="simple";
-my$key=nqp::sha1(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];
+for <simple sub/simple> ->$doc-name{
+my$key=nqp::sha1($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";
+}
 
-#--MARKER-- Test 1
-is-deeply$precompiled-pod, $=pod[0], "Load precompiled pod"; 
-
-rmtree("cache"); 
+rmtree(cache-name);
 
 =beginpod
 
-=TITLEpowerfull cache
+=TITLEPowerful cache
 
 Perl6 is quite awesome.
 
-=endpod
+=endpod

t/doctest/simple.pod6

@@ -1,7 +1,7 @@
 =beginpod
 
-=TITLEpowerfull cache
+=TITLEPowerful cache
 
 Perl6 is quite awesome.
 
-=endpod
+=endpod

t/doctest/sub/simple.pod6

@@ -0,0 +1,7 @@
+=beginpod
+
+=TITLEPowerful cache
+
+Perl6 is quite awesome.
+
+=endpod