rt/t/api/versions_sorter.t

   1 #!/usr/bin/perl -w
   2
   3 use RT::Test nodata => 1, tests => 3;
   4
   5 use strict;
   6 use warnings;
   7
   8 sub is_right_sorting {
   9     my @order = @_;
  10     my @tmp = sort { int(rand(3)) - 1 } @order;
  11
  12     is_deeply(
  13         [ sort RT::Handle::cmp_version @tmp ],
  14         \@order,
  15         'test sorting of ('. join(' ', @tmp) .')'
  16     );
  17 }
  18
  19 is_right_sorting(qw(1 2 3));
  20 is_right_sorting(qw(1.1 1.2 1.3 2.0 2.1));
  21 is_right_sorting(qw(4.0.0a1 4.0.0alpha2 4.0.0b1 4.0.0beta2 4.0.0pre1 4.0.0pre2 4.0.0rc1 4.0.0rc2 4.0.0));
  22