diff options
author | dakkar <dakkar@luxion> | 2007-09-09 09:21:10 +0000 |
---|---|---|
committer | dakkar <dakkar@luxion> | 2007-09-09 09:21:10 +0000 |
commit | 46c5091e8befe5da53574e712038cba975245f02 (patch) | |
tree | 75526ba9a3c74efaed6d294ae74630609ab2429a /t/fcp-01.t | |
parent | symlink following, and most parsers for the test (diff) | |
download | WebCoso-46c5091e8befe5da53574e712038cba975245f02.tar.gz WebCoso-46c5091e8befe5da53574e712038cba975245f02.tar.bz2 WebCoso-46c5091e8befe5da53574e712038cba975245f02.zip |
parser call on putting scalar
git-svn-id: svn://luxion/repos/WebCoso/trunk@285 fcb26f47-9200-0410-b104-b98ab5b095f3
Diffstat (limited to 't/fcp-01.t')
-rw-r--r-- | t/fcp-01.t | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -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'); } |