--- t/10-orao.t	2007/08/04 21:04:05	132
+++ t/10-orao.t	2007/08/05 16:06:29	153
@@ -6,7 +6,7 @@
 use blib;
 use lib './lib';
 
-use Test::More tests => 21;
+use Test::More tests => 27;
 use Test::Exception;
 use Data::Dump qw/dump/;
 
@@ -59,3 +59,13 @@
 test_mem( 0x7000 );
 dies_ok { $orao->poke_code( 0xf000, 1 ) } 'access to ro memory';
 
+my $path = '/tmp/foo';
+unlink $path if -e $path;
+
+my $size = 0;
+
+foreach my $data ( qw/a b c foo bar aaaabbbbccccddddeeeeffff/ ) {
+	VRac->append_to_file( $path, $data );
+	$size += length($data);
+	cmp_ok(-s $path, '==', $size);
+}