1
From: Ansgar Burchardt <ansgar@43-1.org>
2
Date: Sun, 06 Jun 2010 21:35:17 +0900
4
Subject: Compare versions as numbers, not as strings
6
--- libmodule-info-perl.orig/t/n3_version.t
7
+++ libmodule-info-perl/t/n3_version.t
11
is( $moo->use_version, 0 );
12
-is( $moo->version, '0.12' );
13
-is( $boo->version, '1.35', 'proper quoting in complex expression' );
14
+is( $moo->version, 0.12 );
15
+is( $boo->version, 1.35, 'proper quoting in complex expression' );
18
skip 'version.pm not found', 5 unless $has_version_pm;
20
is( $moo_ver->use_version, 1 );
21
isa_ok( $moo_ver->version, 'version' );
22
- is( $moo_ver->version, '0.120' );
23
+ is( $moo_ver->version, 0.120 );
25
isa_ok( $foo_ver->version, 'version' );
26
- is( $foo_ver->version, '7.254' );
27
+ is( $foo_ver->version, 7.254 );