diff --git a/pod-cached.iml b/pod-cached.iml
index 3c3bad6..73ab48b 100644
--- a/pod-cached.iml
+++ b/pod-cached.iml
@@ -22,5 +22,13 @@
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/t/040-pod-extraction.t b/t/040-pod-extraction.t
index 1dfd2d1..93b6998 100644
--- a/t/040-pod-extraction.t
+++ b/t/040-pod-extraction.t
@@ -26,13 +26,6 @@ Some text
=end pod
POD-CONTENT
-$cache .= new( :source( DOC ), :path( REP ), :!verbose);
-$cache.update-cache;
-
-#--MARKER-- Test 1
-ok $cache.pod('a-pod-file')[0] ~~ Pod::Block::Named, 'pod is returned from cache';
-
-
(DOC ~ '/a-second-pod-file.pod6').IO.spurt(q:to/POD-CONTENT/);
=begin pod
=TITLE More and more
@@ -40,20 +33,37 @@ ok $cache.pod('a-pod-file')[0] ~~ Pod::Block::Named, 'pod is returned from cache
Some extra changed text but now it is changed
=end pod
- POD-CONTENT
+POD-CONTENT
+
+$cache .= new( :source( DOC ), :path( REP ), :!verbose);
+$cache.update-cache;
+
+#--MARKER-- Test 1
+ok $cache.pod('a-pod-file')[0] ~~ Pod::Block::Named, 'pod is returned from cache';
$cache .=new(:path( REP ));
my %h = $cache.hash-files;
#--MARKER-- Test 2
-is %h, 'Valid', 'The old version is still in cache, no update-cache';
+is %h, 'Current', 'The old version is still in cache, no
+update-cache';
#--MARKER-- Test 3
lives-ok { $rv = $cache.pod('a-second-pod-file') }, 'Old Pod is provided';
#--MARKER-- Test 4
like $rv[0].contents[1].contents[0],
- /'Some more text but now it is changed'/,
+ /'Some extra changed'/,
'previous text in source';
+(DOC ~ '/a-second-pod-file.pod6').IO.spurt(q:to/POD-CONTENT/);
+ =begin pod
+ =TITLE More and more
+
+ Some more text but now it is changed
+
+ =end pod
+POD-CONTENT
+$cache .=new(:source( DOC ), :path( REP ));
+
diag 'testing freeze';
#--MARKER-- Test 5
throws-like { $cache.freeze }, Exception,
@@ -64,6 +74,7 @@ throws-like { $cache.freeze }, Exception,
ok $cache.update-cache, 'updates without problem';
#--MARKER-- Test 7
+say $cache.pod('a-second-pod-file')[0];
like $cache.pod('a-second-pod-file')[0].contents[1].contents[0],
/'Some more text but now it is changed'/,
'new version after update';