← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libmoosex-has-sugar-perl/trusty-proposed

« back to all changes in this revision

Viewing changes to t/05_is.t

  • Committer: Bazaar Package Importer
  • Author(s): Jonathan Yu
  • Date: 2009-09-02 06:01:07 UTC
  • Revision ID: james.westby@ubuntu.com-20090902060107-b3hlktesdbkx44p3
Tags: upstream-0.0404
Import upstream version 0.0404

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/05_is.t
 
1
 
 
2
use strict;
 
3
use warnings;
 
4
 
 
5
use Test::More tests => 9;    # last test to print
 
6
use Test::Exception;
 
7
use Find::Lib './05_is';
 
8
 
 
9
use TestPackage;
 
10
 
 
11
sub cr {
 
12
    return TestPackage->new(@_);
 
13
}
 
14
 
 
15
pass("Syntax Compiles");
 
16
 
 
17
for ( {}, { roattr => "v" }, { rwattr => "v" }, { bareattr => 'v' }, ) {
 
18
    dies_ok( sub { cr( %{$_} ) }, 'Constraints on requirements still work' );
 
19
}
 
20
 
 
21
lives_ok( sub { cr( rwattr => 'v', roattr => 'v', bareattr => 'v', ) }, 'Construction still works' );
 
22
 
 
23
my $i = cr( rwattr => 'v', roattr => 'v', bareattr => 'v', );
 
24
 
 
25
dies_ok( sub { $i->roattr('x') }, "RO works still" );
 
26
 
 
27
lives_ok( sub { $i->rwattr('x') }, 'RW works still' );
 
28
 
 
29
is( $i->rwattr(), 'x', "RW Works as expected" );
 
30