Use >= as the default atom range

[perl/modules/CPANPLUS-Dist-Gentoo.git] / t / 30-atom-new.t

diff --git a/t/30-atom-new.t b/t/30-atom-new.t
index c4dcdbe9282cc2bfbfd37d0ee2d8f86933ca1d73..b44f9375d9559790f62678933c19ae9e9b0abdcc 100644 (file)
--- a/t/30-atom-new.t
+++ b/t/30-atom-new.t
@@ -22,18 +22,18 @@ my @tests = (
  [ { category => 'test' }  => $no_info ],
  [ $a0                     => $a0 ],
  [ { %$a0, range => '<=' } => $range_no_ver ],
- [ $a1                     => { %$a1, range => '=' } ],
+ [ $a1                     => { %$a1, range => '>=' } ],
  [ { %$a1, range => '<=' } => { %$a1, range => '<=' } ],
 
  [ { atom => 'test/a' }        => $a0 ],
- [ { atom => 'test/a-1.0' }    => { %$a1, range => '=' } ],
- [ { atom => '>=test/a-v1.0' } => { %$a1, range => '>=' } ],
+ [ { atom => 'test/a-1.0' }    => { %$a1, range => '>=' } ],
+ [ { atom => '=test/a-v1.0' }  => { %$a1, range => '=' } ],
  [ { atom => '=<test/a-v1.0' } => $inv_atom ],
  [ { atom => '>=test/a' }      => $range_no_ver ],
 
  [ { ebuild => undef }                      => $inv_ebuild ],
  [ { ebuild => '/wat/test/a/a.ebuild' }     => $inv_ebuild ],
- [ { ebuild => '/wat/test/a/a-1.0.ebuild' } => { %$a1, range => '=' } ],
+ [ { ebuild => '/wat/test/a/a-1.0.ebuild' } => { %$a1, range => '>=' } ],
  [ { ebuild => '/wat/test/a/b-1.0.ebuild' } => $inv_ebuild ],
 );