#!/usr/bin/perl

use strict;
BEGIN {
	$| = 1;
	$^W = 1;
}

use Test::More 'no_plan';
use File::Remove qw{ remove trash };





# Set up the tests
my @dirs = ("$0.tmp", map { "$0.tmp/$_" } qw(a a/b c c/d e e/f g));

for my $path ( reverse @dirs ) {
	if ( -e $path ) {
		ok( rmdir($path), "rmdir: $path" );
		ok( !-e $path,    "!-e: $path"   );
	}
}

for my $path ( @dirs ) {
	ok( ! -e $path,   "!-e: $path"   );
	ok( mkdir($path, 0777), "mkdir: $path" );
	chmod 0777, $path;
	ok( -e $path,     "-e: $path"    );
}

for my $path (reverse @dirs) {
	ok( -e $path,     "-e: $path"    );
	ok( rmdir($path), "rmdir: $path" );
	ok( !-e $path,    "!-e: $path"   );
}

for my $path ( @dirs ) {
	ok( ! -e $path,   "!-e: $path"   );
	ok( mkdir($path, 0777), "mkdir: $path" );
	chmod 0777, $path;
	ok( -e $path,     "-e: $path"    );
}

for my $path (reverse @dirs) {
	ok( -e $path,          "-e: $path"         );
	ok( remove(\1, $path), "remove \\1: $path" );
	ok( !-e $path,         "!-e: $path"        );
}

for my $path (@dirs) {
	ok( !-e $path,    "!-e: $path"   );
	ok( mkdir($path, 0777), "mkdir: $path" );
	chmod 0777, $path;
	ok( -e $path,     "-e: $path"    );
}

for my $path (reverse @dirs) {
	ok( -e $path,      "-e: $path"     );
	ok( remove($path), "remove: $path" );
	ok( !-e $path,     "!-e: $path"    );
}

for my $path (reverse @dirs) {
	ok( !-e $path, "-e: $path" );
	if (-e _) {
		ok( rmdir($path), "rmdir: $path" );
		ok( !-e $path,    "!-e: $path"   );
	}
}

SKIP: {
	if ($^O eq 'darwin') {
		eval 'use Mac::Glue ();';
		skip "Undelete support requires Mac::Glue", 0 if length $@;
		eval 'Mac::Glue->new("Finder")';
		skip "Undelete support requires Mac::Glue with Finder support", 0 if length $@;
	} elsif ($^O eq 'cygwin' || $^O =~ /^MSWin/) {
		eval 'use Win32::FileOp::Recycle;';
		skip "Undelete support requires Win32::FileOp::Recycle", 0 if length $@;
	} else {
		skip "Undelete support not available by default", 0;
	}

	for my $path (@dirs) {
		ok( !-e $path,    "!-e: $path"   );
		ok( mkdir($path, 0777), "mkdir: $path" );
		chmod 0777, $path;
		ok( -e $path,     "-e: $path"    );
	}

	for my $path (reverse @dirs) {
		ok( -e $path,              "-e: $path"    );
		ok( eval { trash($path) }, "trash: $path" );
		is( $@, '',                "trash: \$@"   );
		ok( !-e $path,             "!-e: $path"   );
	}

	for my $path (reverse @dirs) {
		ok( !-e $path, "-e: $path" );
		if (-e _) {
			ok( rmdir($path), "rmdir: $path" );
			ok( !-e $path,    "!-e: $path"   );
		}
	}

	for my $path (@dirs) {
		ok( !-e $path,    "!-e: $path"   );
		ok( mkdir($path, 0777), "mkdir: $path" );
		chmod 0777, $path;
		ok( -e $path,     "-e: $path"    );
	}

	for my $path (reverse @dirs) {
		ok( -e $path,      "-e: $path"     );
		ok( remove($path), "remove: $path" );
		ok( !-e $path,     "!-e: $path"    );
	}

	for my $path (reverse @dirs) {
		ok( !-e $path, "-e: $path" );
		if (-e _) {
			ok( rmdir($path), "rmdir: $path" );
			ok( !-e $path,    "!-e: $path"   );
		}
	}

	for my $path (@dirs) {
		ok( !-e $path,    "!-e: $path"   );
		ok( mkdir($path, 0777), "mkdir: $path" );
		chmod 0777, $path;
		ok( -e $path,     "-e: $path"    );
	}

	for my $path (reverse @dirs) {
		ok( -e $path, "-e: $path"        );
		ok(
			# Fake callbacks will not remove directories, so trash() would return empty list
			eval { trash({ 'rmdir' => sub { 1 }, 'unlink' => sub { 1 } }, $path); 1 },
			"trash: $path",
		);
		ok( -e $path, "-e: $path"        );
		ok( rmdir($path), "rmdir: $path" );
		ok( !-e $path, "!-e: $path"      );
	}

	UNDELETE: 1;
}