view release on metacpan or  search on metacpan

t/32-filter.t  view on Meta::CPAN

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);

$|++;

# Filters can only be tested with the fallback backend.  The other backends
# may merge events and that make it hard to synchronize.

test(
	setup => sub { create_test_files(qw(foo ignoreme)) },
	description => 'scalar filter',
	expected => {
		foo => EXISTS,
	},
	filter => '/foo$',
	backend => 'Fallback',
);