X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FModule-Metadata.git;a=blobdiff_plain;f=t%2Fmetadata.t;fp=t%2Fmetadata.t;h=72dee4900e91076a08eb4e03ea3cc50895995bf4;hp=9f6f478b9a8ba8a9f230cff941fd24abee8f394b;hb=7a872696eb19cd068b4d295ed5bd80e126ce8996;hpb=4284ed536c2f0b0ece9392119a1652205c34f777

diff --git a/t/metadata.t b/t/metadata.t
index 9f6f478..72dee49 100644
--- a/t/metadata.t
+++ b/t/metadata.t
@@ -332,15 +332,16 @@ while (++$test_case and my ($expected_version, $code) = splice @modules, 0, 2 )
     # Test::Builder will prematurely numify objects, so use this form
     my $errs;
     my $got = $pm_info->version;
-    if ( defined $expected_version ) {
-        ok( $got eq $expected_version,
-            "case $test_case: correct module version (expected '$expected_version')" )
-            or $errs++;
-    } else {
-        ok( !defined($got),
-            "case $test_case: correct module version (expected undef)" )
-            or $errs++;
-    }
+
+    is(
+      $got,
+      $expected_version,
+      "case $test_case: correct module version ("
+        . (defined $expected_version? "'$expected_version'" : 'undef')
+        . ')'
+    )
+    or $errs++;
+
     is( $warnings, '', "case $test_case: no warnings from parsing" ) or $errs++;
     diag "Got: '$got'\nModule contents:\n$code" if $errs;
   }