view release on metacpan or  search on metacpan

t/30-event.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use File::Spec;

use lib 't/lib';
use TestSupport qw(create_test_files delete_test_files move_test_files
	modify_attrs_on_test_files test EXISTS DELETED);

$|++;

if ($^O eq 'MSWin32' ) {
	plan skip_all => 'Test temporarily disabled for MSWin32';
}

# ls: +foo +bar +baz
test(
	setup => sub { create_test_files(qw(foo bar baz)) },
	description => 'create three files',
	expected => {
		foo => EXISTS,
		bar => EXISTS,
		baz => EXISTS,
	},
	ignore => '.',
);

# ls: ~foo bar ~baz
test(
	setup => sub { create_test_files(qw(foo baz)) },
	description => 'modify two files',
	expected => {
		foo => EXISTS,
		baz => EXISTS,
	},
);

# ls: foo bar baz +subdir/file
test(
	setup => sub { create_test_files(qw(subdir/file)) },
	description => 'create file in subdirectory',
	expected => {
		subdir => EXISTS,
		'subdir/file' => EXISTS,
	},
);

SKIP: {
	skip "skip attr mods on Win32", 1 if $^O eq 'MSWin32';

	# ls: ~foo ~bar baz subdir/file
	test(
		setup => sub { modify_attrs_on_test_files(qw(foo bar)) },
		description => 'modify attributes',
		expected => {
			'foo' => EXISTS,
			'bar' => EXISTS,
		},
	);
}

# ls: foo bar -baz +bazoo subdir/file
test(
	setup => sub { move_test_files(qw(baz bazoo)) },
	description => 'move file',
	expected => {