test/statfs.t

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