use strict;
use warnings;
-use Test::More tests => 3 + (2 + 2 * 3) * (66 + 4 * 7);
+use Test::More tests => 3 + (2 + 2 * 3) * (69 + 4 * 7);
use CPANPLUS::Dist::Gentoo::Version;
[ "1.1_${_}1", "1.0_${_}2" => 1 ],
} qw(alpha beta pre rc)),
- [ '1.0', '1.0_p' => -1 ],
+ [ '1.0', '1.0_p0' => -1 ],
+ [ '1.0', '1.0_p1' => -1 ],
+ [ '1.0_p', '1.0_p0' => 0 ],
[ '1.0a', '1.0_p' => 1 ],
[ '1.0', '1.0_p1' => -1 ],
[ '1.0_p1', '1.0_p1' => 0 ],
[ '1.0_beta1', '1.0_pre1' => -1 ],
[ '1.0_pre1', '1.0_rc1' => -1 ],
[ '1.0_rc1', '1.0' => -1 ],
- [ '1.0', '1.0_p1' => -1 ],
[ '1.0_alpha', '1.0_alpha_alpha' => 1 ],
[ '1.0_beta', '1.0_beta_beta' => 1 ],
[ '1.0_pre1_rc2', '1.0_pre1_rc2' => 0 ],
[ '1.0_pre1_rc2', '1.0_pre1_rc3' => -1 ],
+ [ '1.0', '1.0-r0' => 0 ],
[ '1.0', '1.0-r1' => -1 ],
[ '1.0-r1', '1.0-r1' => 0 ],
[ '1.0-r1', '1.0-r2' => -1 ],
[ '1.1-r1', '1.0-r2' => 1 ],
+ [ '1.2_p0-r0', '1.2_p', 0 ],
[ '1.2_p1-r1', '1.2_p1', 1 ],
[ '1.2_p1-r1', '1.2_p1_p1', -1 ],
[ '1.2_p1_pre2-r1', '1.2_p1-r1', -1 ],