Skip to content
Browse files

added a test case for RT #63568

  • Loading branch information...
1 parent f64c977 commit 24a0556bea0be04a40ffd349bd1bdc64be19bcfd Xavier Caron committed Mar 27, 2012
Showing with 63 additions and 0 deletions.
  1. +49 −0 test_output/cover/cmp_ok.5.0
  2. +14 −0 tests/cmp_ok
View
49 test_output/cover/cmp_ok.5.0
@@ -0,0 +1,49 @@
+Reading database from
+
+
+- ------ ------ ------ ------ ------
+File stmt bran cond sub total
+- ------ ------ ------ ------ ------
+tests/cmp_ok 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/cmp_ok
+
+line err stmt bran cond sub code
+1 #!/usr/bin/perl
+2
+3 # test case for RT #63568 https://rt.cpan.org/Public/Bug/Display.html?id=63568
+4
+5 #
+6
+7 # This software is free. It is licensed under the same terms as Perl itself.
+8
+9 # The latest version of this software should be available from my homepage:
+10 # http://www.pjcj.net
+11
+12 1 1 use Devel::Cover;
+ 1
+ 1
+13 1 1 use Test::More;
+ 1
+ 1
+14 1 cmp_ok('', 'eq', '');
+
+
+Covered Subroutines
+-
+
+Subroutine Count Location
+- ----- ---------------
+BEGIN 1 tests/cmp_ok:12
+BEGIN 1 tests/cmp_ok:13
+
+
View
14 tests/cmp_ok
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+# test case for RT #63568 https://rt.cpan.org/Public/Bug/Display.html?id=63568
+
+# Copyright 2004-2011, Paul Johnson (pjcj@cpan.org)
+
+# 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
+
+use Devel::Cover;
+use Test::More;
+cmp_ok('', 'eq', '');

0 comments on commit 24a0556

Please sign in to comment.
Something went wrong with that request. Please try again.