r20605 - in /trunk/libtest-deep-perl: CHANGES META.yml debian/changelog 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:22:17 2008
New Revision: 20605

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=20605
Log:
* New upstream release.

Modified:
    trunk/libtest-deep-perl/CHANGES
    trunk/libtest-deep-perl/META.yml
    trunk/libtest-deep-perl/debian/changelog
    trunk/libtest-deep-perl/lib/Test/Deep.pm
    trunk/libtest-deep-perl/lib/Test/Deep/Code.pm
    trunk/libtest-deep-perl/t/code.t

Modified: trunk/libtest-deep-perl/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-deep-perl/CHANGES?rev=20605&op=diff
==============================================================================
--- trunk/libtest-deep-perl/CHANGES (original)
+++ trunk/libtest-deep-perl/CHANGES Sun Jun  1 17:22:17 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: trunk/libtest-deep-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-deep-perl/META.yml?rev=20605&op=diff
==============================================================================
--- trunk/libtest-deep-perl/META.yml (original)
+++ trunk/libtest-deep-perl/META.yml Sun Jun  1 17:22:17 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: trunk/libtest-deep-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-deep-perl/debian/changelog?rev=20605&op=diff
==============================================================================
--- trunk/libtest-deep-perl/debian/changelog (original)
+++ trunk/libtest-deep-perl/debian/changelog Sun Jun  1 17:22:17 2008
@@ -1,3 +1,9 @@
+libtest-deep-perl (0.102-1) unstable; urgency=low
+
+  * New upstream release.
+
+ -- Ernesto Hernández-Novich (USB) <emhn at usb.ve>  Sun,  1 Jun 2008 12:48:27 -0430
+
 libtest-deep-perl (0.101-1) unstable; urgency=low
 
   * New upstream release.

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

Modified: trunk/libtest-deep-perl/lib/Test/Deep/Code.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-deep-perl/lib/Test/Deep/Code.pm?rev=20605&op=diff
==============================================================================
--- trunk/libtest-deep-perl/lib/Test/Deep/Code.pm (original)
+++ trunk/libtest-deep-perl/lib/Test/Deep/Code.pm Sun Jun  1 17:22:17 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: trunk/libtest-deep-perl/t/code.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-deep-perl/t/code.t?rev=20605&op=diff
==============================================================================
--- trunk/libtest-deep-perl/t/code.t (original)
+++ trunk/libtest-deep-perl/t/code.t Sun Jun  1 17:22:17 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");
 }