use strict;
use warnings;
use Test::More tests => 5;
eval 'use Devel::LineName;';
like $@, qr/Devel::LineName must be use\(\)ed with two args/,
"bare use";
eval 'use Devel::LineName "foo";';
like $@, qr/Devel::LineName must be use\(\)ed with two args/,
"1arg use";
eval 'use Devel::LineName "---", "foo";';
like $@, qr/Invalid Devel::LineName line naming pragma \[---\]/,
"bad pragma";
eval 'use Devel::LineName foo => 12;';
like $@, qr/2nd arg to 'use Devel::LineName' must be a hashref/,
"bad hashref";
eval 'my %x; use Devel::LineName Carp => \%x;';
like $@, qr/Devel::LineName pragma \[Carp\] clashes with the Carp module/,
"pragma clash";