← Back to branch summary

~ubuntu-branches/ubuntu/utopic/libdevel-pragma-perl/utopic

« back to all changes in this revision

Viewing changes to t/exception.t

  • Committer: Package Import Robot
  • Author(s): Damyan Ivanov, gregor herrmann, Salvatore Bonaccorso, Damyan Ivanov
  • Date: 2013-10-22 09:41:47 UTC
  • mfrom: (2.1.1 sid)
  • Revision ID: package-import@ubuntu.com-20131022094147-27vu2s1k6ypp0a7p
* Team upload

[ gregor herrmann ]
* debian/control: update {versioned,alternative} (build) dependencies.

[ Salvatore Bonaccorso ]
* Change Vcs-Git to canonical URI (git://anonscm.debian.org)
* Change search.cpan.org based URIs to metacpan.org based URIs

[ Damyan Ivanov ]
* Imported Upstream version 0.60
* add years to main upstream copyright notice
* add ppport.h to debian/copyright (how did this escape NEW review?)
* update (build-)dependencies
* bump debhelper build-dependency to ensure hardening support
* claim conformance with Policy 3.9.4

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/exception.t
8
8
use Test::More tests => 3;
9
9
 
10
10
{
11
 
    use Devel::Pragma qw(my_hints);
 
11
    use Devel::Pragma qw(hints);
12
12
 
13
 
    BEGIN { my_hints->{'Devel::Pragma::Test::Exception'} = 1 }
14
 
    BEGIN { is(my_hints->{'Devel::Pragma::Test::Exception'}, 1, '%^H value set before require') }
 
13
    BEGIN { hints->{'Devel::Pragma::Test::Exception'} = 1 }
 
14
    BEGIN { is(hints->{'Devel::Pragma::Test::Exception'}, 1, '%^H value set before require') }
15
15
    BEGIN { eval 'use DevelPragmaNoSuchFile'; $ERR = $@ }; # BEGIN blocks don't appear to propagate $@
16
16
 
17
17
    like($ERR, qr{^Can't locate DevelPragmaNoSuchFile.pm}, 'require raised an exception');
18
18
 
19
 
    BEGIN { is(my_hints->{'Devel::Pragma::Test::Exception'}, 1, '%^H value still set after require exception') }
 
19
    BEGIN { is(hints->{'Devel::Pragma::Test::Exception'}, 1, '%^H value still set after require exception') }
20
20
}