diff options
| author | Mark Glines <mark@glines.org> | 2002-04-22 02:24:28 +0000 |
|---|---|---|
| committer | Mark Glines <mark@glines.org> | 2002-04-22 02:24:28 +0000 |
| commit | 8811161f67657253d11214ede54857f810662a91 (patch) | |
| tree | 1f555243af88b77fcea3d256f6f7b8b5f1c05548 /perl/test/statfs.t | |
| parent | 7574b0559706597058a9cb3c056204935f9b00c5 (diff) | |
| download | libfuse-8811161f67657253d11214ede54857f810662a91.tar.gz | |
added a test framework
updated README
fixed a couple of bugs in loopback.pl
Diffstat (limited to 'perl/test/statfs.t')
| -rw-r--r-- | perl/test/statfs.t | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/perl/test/statfs.t b/perl/test/statfs.t new file mode 100644 index 0000000..fb94704 --- /dev/null +++ b/perl/test/statfs.t @@ -0,0 +1,21 @@ +#!/usr/bin/perl +use test::helper qw($_real $_point); +use Test::More; +require 'syscall.ph'; # for SYS_statfs +plan tests => 7; +my ($statfs_data) = " " x 10; +my ($tmp) = $_point; +ok(!syscall(&SYS_statfs,$tmp,$statfs_data),"statfs"); +# FIXME: this is soooooo linux-centric. perhaps parse the output of /bin/df? +my @list = unpack("LSSL8",$statfs_data); +shift(@list); +is(shift(@list),4096,"block size"); +shift(@list); +is(shift(@list),1000000,"blocks"); +is(shift(@list),500000,"blocks free"); +shift(@list); +is(shift(@list),1000000,"files"); +is(shift(@list),500000,"files free"); +shift(@list); +shift(@list); +is(shift(@list),255,"namelen"); |