← Back to branch summary

~ubuntu-branches/ubuntu/quantal/libmodule-info-perl/quantal

« back to all changes in this revision

Viewing changes to t/n2_safe.t

  • Committer: Bazaar Package Importer
  • Author(s): Jay Bonci
  • Date: 2005-07-09 15:30:17 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050709153017-658uhcdk74mtiwmj
Tags: 0.28-1
* New upstream release
* Standards-version bump. No other changes

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/n2_safe.t
 
1
#!/usr/bin/perl -w
 
2
 
 
3
use strict;
 
4
use lib 't/lib';
 
5
use Test::More tests => 8;
 
6
use Module::Info;
 
7
 
 
8
my $moo = Module::Info->new_from_module( 'Moo' );
 
9
 
 
10
is( $moo->version, '0.12' );
 
11
is( $moo->safe, 0 );
 
12
isa_ok( $moo, 'Module::Info::Unsafe' );
 
13
 
 
14
my $safe_moo = Module::Info->new_from_module( 'Moo' );
 
15
$safe_moo->safe(1);
 
16
 
 
17
is( $safe_moo->safe, 1 );
 
18
isa_ok( $safe_moo, 'Module::Info::Safe' );
 
19
 
 
20
eval {
 
21
    $safe_moo->version;
 
22
};
 
23
isnt( $@, undef, '$Moo::VERSION is unsafe' );
 
24
 
 
25
my $safe_foo = Module::Info->new_from_module( 'Foo' );
 
26
$safe_foo->safe(1);
 
27
 
 
28
eval {
 
29
    is( $safe_foo->version, '7.254' );
 
30
};
 
31
is( $@, '', '$Foo::VERSION is safe' );