view release on metacpan or  search on metacpan

t/clean.t  view on Meta::CPAN

	is( count_existing(@$files), 2, 'symlinked top path: dry run left files intact' );

	unlink($link);
}

# -------------------------------------------------------------------------
# missing paths are recorded, a valid path in the same call still works
# -------------------------------------------------------------------------
{
	my ( $dir, $files ) = make_files(qw(a b));
	my $missing = File::Spec->catdir( $dir, 'does_not_exist' );
	my $r = App::FileCleanerByDiskUage->clean( path => [ $dir, $missing ], du => 101 );

	is( scalar( @{ $r->{missing_paths} } ), 1, 'missing path recorded' );
	is( scalar( @{ $r->{path} } ),          1, 'valid path retained' );
}

# -------------------------------------------------------------------------
# dry_run: report what would be removed but leave everything on disk
# -------------------------------------------------------------------------
{