blob: 75335702802317d5ef47d56f22162b09fa9e5a5f (
plain) (
blame)
1
2
3
4
5
6
7
8
|
# -*- perl -*-
use strict;
use warnings;
use tests::tests;
my ($cwd_removable) = read_text_file ("tests/filesys/extended/can-rmdir-cwd");
$cwd_removable eq 'YES' || $cwd_removable eq 'NO' or die;
check_archive ($cwd_removable eq 'YES' ? {} : {"a" => {}});
pass;
|
