-
- $name = "$dn/ic.f";
- my $ic_sub = \&PublicInbox::Spawn::nodatacow_fd;
- $pp_sub == $ic_sub and
- skip 'Inline::C or Linux kernel headers missing', 2;
- open $fh, '>', $name or BAIL_OUT "open($name): $!";
- $ic_sub->(fileno($fh));
- $res = xqx([$lsattr, $name]);
- like($res, qr/C.*\Q$name\E/, "`C' attribute set on fd with Inline::C");
-
- $name = "$dn/ic.d";
- mkdir($name) or BAIL_OUT "mkdir($name) $!";
- PublicInbox::Spawn::nodatacow_dir($name);
- $res = xqx([$lsattr, '-d', $name]);
- like($res, qr/C.*\Q$name\E/, "`C' attribute set on dir with Inline::C");