view release on metacpan or  search on metacpan

t/33-specify-kqueue.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);

$|++;

unless ($^O eq 'darwin' and eval { require IO::KQueue; 1; }) {
	plan skip_all => 'Test only on Mac with IO::KQueue';
}

# 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,
	},
	backend => 'KQueue',
);

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

# 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,
	},
	backend => 'KQueue',
);

# 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,
	},
	backend => 'KQueue',
);

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