Permalink
Browse files

Add moose_constraint test (rt 57173).

  • Loading branch information...
1 parent fdd9f99 commit d195a84098b09de4a0a13e9d5c0df16ba6e3b251 @pjcj committed Jul 13, 2012
Showing with 159 additions and 0 deletions.
  1. +1 −0 Changes
  2. +67 −0 test_output/cover/moose_constraint.5.010000
  3. +63 −0 test_output/cover/moose_constraint.5.016000
  4. +28 −0 tests/moose_constraint
View
@@ -4,6 +4,7 @@ Devel::Cover history
- Fix cover -test on Windows (Christian Walde) (github 24) (rt 75565).
- Better document coverage options (github 23).
- Run in directories containing spaces (rt 62423).
+ - Add moose_constraint test (rt 57173).
Release 0.89 - 15th June 2012
- Fix POD syntax error (gregor herrmann <gregoa@debian.org>) (rt 77599).
@@ -0,0 +1,67 @@
+Reading database from ...
+
+
+------------------------------------------ ------ ------ ------ ------ ------
+File stmt bran cond sub total
+------------------------------------------ ------ ------ ------ ------ ------
+tests/moose_constraint 100.0 n/a n/a 100.0 100.0
+Total 100.0 n/a n/a 100.0 100.0
+------------------------------------------ ------ ------ ------ ------ ------
+
+
+Run: ...
+Perl version: ...
+OS: ...
+Start: ...
+Finish: ...
+
+tests/moose_constraint
+
+line err stmt bran cond sub code
+1 #!/usr/bin/perl
+2
+3 # Copyright 2011-2012, Paul Johnson (paul@pjcj.net)
+4
+5 # This software is free. It is licensed under the same terms as Perl itself.
+6
+7 # The latest version of this software should be available from my homepage:
+8 # http://www.pjcj.net
+9
+10 # __COVER__ skip_test $] < 5.010 || !(eval "use Moose; 23")
+11 # __COVER__ skip_reason Moose not available or unreliable with Devel::Cover
+12
+13 1 1 use 5.010;
+ 1 1
+ 1
+ 1
+ 1
+ 1
+14
+15 package Foo;
+16
+17 1 1 use Moose;
+ 1
+ 1
+18
+19 1 has bar => (
+20 is => 'rw',
+21 isa => 'Maybe[Str]',
+22 );
+23
+24 package main;
+25
+26 1 my $example = Foo->new();
+27 1 $example->bar('whatever');
+28 1 say $example->bar();
+
+
+Covered Subroutines
+-------------------
+
+Subroutine Count Location
+---------- ----- -------------------------
+BEGIN 1 tests/moose_constraint:13
+BEGIN 1 tests/moose_constraint:13
+BEGIN 1 tests/moose_constraint:17
+
+
@@ -0,0 +1,63 @@
+Reading database from ...
+
+
+------------------------------------------ ------ ------ ------ ------ ------
+File stmt bran cond sub total
+------------------------------------------ ------ ------ ------ ------ ------
+tests/moose_constraint 100.0 n/a n/a 100.0 100.0
+Total 100.0 n/a n/a 100.0 100.0
+------------------------------------------ ------ ------ ------ ------ ------
+
+
+Run: ...
+Perl version: ...
+OS: ...
+Start: ...
+Finish: ...
+
+tests/moose_constraint
+
+line err stmt bran cond sub code
+1 #!/usr/bin/perl
+2
+3 # Copyright 2011-2012, Paul Johnson (paul@pjcj.net)
+4
+5 # This software is free. It is licensed under the same terms as Perl itself.
+6
+7 # The latest version of this software should be available from my homepage:
+8 # http://www.pjcj.net
+9
+10 # __COVER__ skip_test $] < 5.010 || !(eval "use Moose; 23")
+11 # __COVER__ skip_reason Moose not available or unreliable with Devel::Cover
+12
+13 1 1 use 5.010;
+ 1
+ 1
+14
+15 package Foo;
+16
+17 1 1 use Moose;
+ 1
+ 1
+18
+19 1 has bar => (
+20 is => 'rw',
+21 isa => 'Maybe[Str]',
+22 );
+23
+24 package main;
+25
+26 1 my $example = Foo->new();
+27 1 $example->bar('whatever');
+28 1 say $example->bar();
+
+
+Covered Subroutines
+-------------------
+
+Subroutine Count Location
+---------- ----- -------------------------
+BEGIN 1 tests/moose_constraint:13
+BEGIN 1 tests/moose_constraint:17
+
+
View
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+# Copyright 2011-2012, Paul Johnson (paul@pjcj.net)
+
+# This software is free. It is licensed under the same terms as Perl itself.
+
+# The latest version of this software should be available from my homepage:
+# http://www.pjcj.net
+
+# __COVER__ skip_test $] < 5.010 || !(eval "use Moose; 23")
+# __COVER__ skip_reason Moose not available or unreliable with Devel::Cover
+
+use 5.010;
+
+package Foo;
+
+use Moose;
+
+has bar => (
+ is => 'rw',
+ isa => 'Maybe[Str]',
+);
+
+package main;
+
+my $example = Foo->new();
+$example->bar('whatever');
+say $example->bar();

0 comments on commit d195a84

Please sign in to comment.