From 3e8a744fcb9a15e18d76bdf40a7275b57b6d4ded Mon Sep 17 00:00:00 2001
From: JJ Merelo <jjmerelo@gmail.com>
Date: Wed, 26 Feb 2020 20:43:25 +0100
Subject: [PATCH] Getting better at #18

Seeing some light at the end of the tunnel for #16 and #13. Also just eliminating debug code. And found also #18
---
 t/040-pod-extraction.t | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/t/040-pod-extraction.t b/t/040-pod-extraction.t
index db1206e..1dfd2d1 100644
--- a/t/040-pod-extraction.t
+++ b/t/040-pod-extraction.t
@@ -19,16 +19,15 @@ diag 'Test pod extraction';
 
 mkdir DOC;
 (DOC ~ '/a-pod-file.pod6').IO.spurt(q:to/POD-CONTENT/);
-    =pod A test file
-    =TITLE This is a title
+=begin pod
+=TITLE This is a title
 
-    Some text
-
-    =end pod
+Some text
+=end pod
 POD-CONTENT
 
 $cache .= new( :source( DOC ), :path( REP ), :!verbose);
-# $cache.update-cache;
+$cache.update-cache;
 
 #--MARKER-- Test 1
 ok $cache.pod('a-pod-file')[0] ~~ Pod::Block::Named, 'pod is returned from cache';