added a test framework

updated README
fixed a couple of bugs in loopback.pl

1 files changed, 45 insertions, 0 deletions

diff --git a/perl/test/write.t b/perl/test/write.t
new file mode 100644
index 0000000..58af2aa
--- /dev/null
+++ b/perl/test/write.t
@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+use test::helper qw($_real $_point);
+use Test::More;
+plan tests => 15;
+my ($data);
+chdir($_point);
+undef $/; # slurp it all
+# create file
+system("echo frogbing >writefile");
+
+# fetch contents of file
+ok(open(FILE,"writefile"),"open");
+$data = <FILE>;
+close(FILE);
+is(length($data),9,"right amount read");
+is($data,"frogbing\n","right data read");
+
+# overwrite part
+ok(open(FILE,'+<',"writefile"),"open");
+ok(seek(FILE,2,0),"seek");
+ok(print(FILE "ib"),"print");
+close(FILE);
+
+# fetch contents of file
+ok(open(FILE,"writefile"),"open");
+$data = <FILE>;
+close(FILE);
+is(length($data),9,"right amount read");
+is($data,"fribbing\n","right data read");
+
+# overwrite part, append some
+ok(open(FILE,'+<',"writefile"),"open");
+ok(seek(FILE,7,0),"seek");
+ok(print(FILE "gle"),"print");
+close(FILE);
+
+# fetch contents of file
+ok(open(FILE,"writefile"),"open");
+$data = <FILE>;
+close(FILE);
+is(length($data),10,"right amount read");
+is($data,"fribbingle","right data read");
+
+# kill file
+unlink("writefile");