use strict;
unless (exists $ENV{TEST_DB}) {
plan skip_all => 'environment variable TEST_DB not set';
} else {
plan tests => 2;
y_locked sub { }, 1, "^a", 1, 2, 3;
y_locked { } 1, "^a", 1, 2, 3;
ok (1);
eval { y_locked { die "simsalabim" } "^a", 1, 2, 3; };
ok ($@ =~ /simsalabim/);
}