aboutsummaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/fcp-01.t23
1 files changed, 15 insertions, 8 deletions
diff --git a/t/fcp-01.t b/t/fcp-01.t
index 9ceaf77..9570b58 100644
--- a/t/fcp-01.t
+++ b/t/fcp-01.t
@@ -18,15 +18,22 @@ my $test_file=$base->file('t','fcp-01.t');
my $test_contents=$test_file->slurp;
is_deeply($fc->get($module_file->stringify),
- ['pm',$module_file->stringify,$module_contents]);
+ ['pm',$module_file->stringify,$module_contents],
+ 'parser ok 1');
is_deeply($fc->get($test_file->stringify),
- ['t',$test_file->stringify,$test_contents]);
-is($calls{t},1);
-is($calls{pm},1);
+ ['t',$test_file->stringify,$test_contents],
+ 'parser ok 2');
+is($calls{t},1,'called ok 1');
+is($calls{pm},1,'called ok 2');
is_deeply($fc->get($test_file->stringify),
- ['t',$test_file->stringify,$test_contents]);
-is($calls{t},1);
-is($calls{pm},1);
+ ['t',$test_file->stringify,$test_contents],
+ 'cache ok 1');
+is($calls{t},1,'cache no-call ok 1');
+is($calls{pm},1,'cache no-call ok 2');
$fc->del_parser(qr{\.t$});
is($fc->get($test_file->stringify),
- $test_contents);
+ $test_contents,
+ 'default parser & invalidate ok');
+is($fc->get($test_file),
+ $test_contents,
+ 'cache ok 2');