parser call on putting scalar

git-svn-id: svn://luxion/repos/WebCoso/trunk@285 fcb26f47-9200-0410-b104-b98ab5b095f3

1 files changed, 8 insertions, 0 deletions

diff --git a/t/fcp-01.t b/t/fcp-01.t
index 49a2d66..88ed9bf 100644
--- a/t/fcp-01.t
+++ b/t/fcp-01.t
@@ -103,4 +103,12 @@ is($calls{stuff},3,'called ok 4');
 is($wr_file->slurp,"gino\n${wr_contents}",'written ok 3 (ref)');
 is_deeply($fc->get($wr_file->stringify),$wr_contents,'no stringification');
 ok(! exists $calls{rstuff},'no reader call');
+
+$fc->del_writer(qr{\.stuff$});
+$wr_contents='buh';
+$fc->put($wr_file->stringify,$wr_contents);
+is($calls{rstuff},1,'called reader');
+is($fc->get($wr_file->stringify),
+   'bad',
+   'parsed after put');
 }