From 46c5091e8befe5da53574e712038cba975245f02 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Sun, 9 Sep 2007 09:21:10 +0000
Subject: parser call on putting scalar

git-svn-id: svn://luxion/repos/WebCoso/trunk@285 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 t/fcp-01.t | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 't/fcp-01.t')

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');
 }
-- 
cgit v1.2.3