t/strict.t

   1 use strict;
   2 use warnings FATAL => 'all';
   3 use Test::More qw(no_plan);
   4
   5 ok(
   6   !eval { require lib::with::preamble::example::strict; 1 },
   7   'strict example dies'
   8 );
   9
  10 like($@, qr{Global symbol "\$orz" requires explicit package name at \S+lib/with/preamble/example/strict.pm line 3}, 'Error has right name and line');