import Test-Deep 0.102 from CPAN

git-cpan-module:   Test-Deep
git-cpan-version:  0.102
git-cpan-authorid: FDALY
git-cpan-file:     authors/id/F/FD/FDALY/Test-Deep-0.102.tar.gz

Author: Fergal Daly

CHANGES

@@ -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

META.yml

@@ -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:

lib/Test/Deep.pm

@@ -25,7 +25,7 @@ use vars qw(
 	$Snobby $Expects $DNE $DNE_ADDR $Shallow
 );
 
-$VERSION = '0.101';
+$VERSION = '0.102';
 
 require Exporter;
 @ISA = qw( Exporter );

lib/Test/Deep/Code.pm

@@ -37,10 +37,20 @@ sub diagnostics
 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;
 }

t/code.t

@@ -11,10 +11,14 @@ sub cmp
 	{
 		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 @@ sub cmp
 		"code ok"
 	);
 
-	my ($prem, $res) = check_test(
+  my ($prem, $res);
+	($prem, $res) = check_test(
 		sub {
 			cmp_deeply("feargal", code(\&cmp));
 		},
@@ -39,6 +44,19 @@ sub cmp
 		"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");
 }