diff options
Diffstat (limited to 't/fcp-01.t')
-rw-r--r-- | t/fcp-01.t | 9 |
1 files changed, 9 insertions, 0 deletions
@@ -111,8 +111,17 @@ is($calls{rstuff},1,'called reader'); is($fc->get($wr_file->stringify), 'bad', 'parsed after put'); + +$fc->add_writer(qr{\.stuff$} => sub { die 'bad call' }); +$wr_contents='buh'; +$fc->put($wr_file->stringify,$wr_contents); +is($calls{rstuff},2,'called reader on writer exception'); +is($fc->get($wr_file->stringify), + 'bad', + 'parsed after put with writer exception'); } + is($fc->get('nosuchfile'),undef,'return undef on non-existant files'); { |