r20603 - in /branches/upstream/libtest-deep-perl/current: CHANGES META.yml lib/Test/Deep.pm lib/Test/Deep/Code.pm t/code.t

[emhn-guest at users.alioth.debian.org]

Author: emhn-guest
Date: Sun Jun  1 17:17:53 2008
New Revision: 20603

URL: http://svn.debian.org/wsvn/?sc=1&rev=20603
Log:
[svn-upgrade] Integrating new upstream version, libtest-deep-perl (0.102)

Modified:
    branches/upstream/libtest-deep-perl/current/CHANGES
    branches/upstream/libtest-deep-perl/current/META.yml
    branches/upstream/libtest-deep-perl/current/lib/Test/Deep.pm
    branches/upstream/libtest-deep-perl/current/lib/Test/Deep/Code.pm
    branches/upstream/libtest-deep-perl/current/t/code.t

Modified: branches/upstream/libtest-deep-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-deep-perl/current/CHANGES?rev=20603&op=diff
==============================================================================
--- branches/upstream/libtest-deep-perl/current/CHANGES (original)
+++ branches/upstream/libtest-deep-perl/current/CHANGES Sun Jun  1 17:17:53 2008
@@ -1,3 +1,8 @@
+0.102
+
+Behave well when a code comparator doesn't give diagnostics. Thanks to
+Alex Kapranoff.
+
 0.101
 
 Fix an overloading problem with All and Any. Thanks to Kostas

Modified: branches/upstream/libtest-deep-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-deep-perl/current/META.yml?rev=20603&op=diff
==============================================================================
--- branches/upstream/libtest-deep-perl/current/META.yml (original)
+++ branches/upstream/libtest-deep-perl/current/META.yml Sun Jun  1 17:17:53 2008
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Test-Deep
-version:      0.101
+version:      0.102
 version_from: ./lib/Test/Deep.pm
 installdirs:  perl
 requires:

Modified: branches/upstream/libtest-deep-perl/current/lib/Test/Deep.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-deep-perl/current/lib/Test/Deep.pm?rev=20603&op=diff
==============================================================================
--- branches/upstream/libtest-deep-perl/current/lib/Test/Deep.pm (original)
+++ branches/upstream/libtest-deep-perl/current/lib/Test/Deep.pm Sun Jun  1 17:17:53 2008
@@ -25,7 +25,7 @@
 	$Snobby $Expects $DNE $DNE_ADDR $Shallow
 );
 
-$VERSION = '0.101';
+$VERSION = '0.102';
 
 require Exporter;
 @ISA = qw( Exporter );

Modified: branches/upstream/libtest-deep-perl/current/lib/Test/Deep/Code.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-deep-perl/current/lib/Test/Deep/Code.pm?rev=20603&op=diff
==============================================================================
--- branches/upstream/libtest-deep-perl/current/lib/Test/Deep/Code.pm (original)
+++ branches/upstream/libtest-deep-perl/current/lib/Test/Deep/Code.pm Sun Jun  1 17:17:53 2008
@@ -37,10 +37,20 @@
 Ran coderef at $where on
 
 $data
-
+EOM
+  if (defined($error))
+  {
+    $diag .= <<EOM;
 and it said
 $error
 EOM
+  }
+  else
+  {
+    $diag .= <<EOM;
+it failed but it didn't say why.
+EOM
+  }
 
 	return $diag;
 }

Modified: branches/upstream/libtest-deep-perl/current/t/code.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-deep-perl/current/t/code.t?rev=20603&op=diff
==============================================================================
--- branches/upstream/libtest-deep-perl/current/t/code.t (original)
+++ branches/upstream/libtest-deep-perl/current/t/code.t Sun Jun  1 17:17:53 2008
@@ -11,10 +11,14 @@
 	{
 		return 1;
 	}
-	else
+	elsif ($str eq "feargal")
 	{
-		return (0, "your names not down, you're not coming in");
+		return (0, "your name's not down, you're not coming in");
 	}
+  else
+  {
+    return 0;
+  }
 }
 
 {
@@ -29,7 +33,8 @@
 		"code ok"
 	);
 
-	my ($prem, $res) = check_test(
+  my ($prem, $res);
+	($prem, $res) = check_test(
 		sub {
 			cmp_deeply("feargal", code(\&cmp));
 		},
@@ -39,6 +44,19 @@
 		"code not ok"
 	);
 
-	like($res->{diag}, "/your names not down/", "diagnostics");
+	like($res->{diag}, "/your name's not down/", "diagnostics");
 	like($res->{diag}, "/feargal/", "diagnostics");
+
+	($prem, $res)  = check_test(
+		sub {
+			cmp_deeply("fazzer", code(\&cmp));
+		},
+		{
+			actual_ok => 0,
+		},
+		"code not ok"
+	);
+
+	like($res->{diag}, "/it failed but it didn't say why/", "no diagnostics");
+	like($res->{diag}, "/fazzer/", "no diagnostics");
 }