1 |
#!/usr/bin/perl |
2 |
use test::helper qw($_real $_point); |
3 |
use Test::More; |
4 |
require 'syscall.ph'; # for SYS_statfs |
5 |
plan tests => 7; |
6 |
my ($statfs_data) = " " x 16; |
7 |
my ($tmp) = $_point; |
8 |
ok(!syscall(&SYS_statfs,$tmp,$statfs_data),"statfs"); |
9 |
# FIXME: this is soooooo linux-centric. perhaps parse the output of /bin/df? |
10 |
my @list = unpack("L!7L2L!7",$statfs_data); |
11 |
print join(', ', @list)."\n"; |
12 |
shift(@list); |
13 |
is(shift(@list),4096,"block size"); |
14 |
is(shift(@list),1000000,"blocks"); |
15 |
is(shift(@list),500000,"blocks free"); |
16 |
shift(@list); |
17 |
is(shift(@list),1000000,"files"); |
18 |
is(shift(@list),500000,"files free"); |
19 |
shift(@list); |
20 |
shift(@list); |
21 |
is(shift(@list),255,"namelen"); |