|
|
- #!/usr/bin/env perl
-
- use strict;
- use warnings;
-
- use lib 'lib';
-
- use Data::Dumper;
- use Test::More tests => 1;
- use App::WRT::Sort qw(sort_entries);
-
- my @unsorted = (
- 'abc',
- 'chapbook',
- 'c',
- 'c/frobnicate',
- 'frobnicate',
- '2012/1/2',
- '2019/6/21',
- '2019/6/2',
- '2014/3/1/a',
- '2014/3/1/frobnicate',
- '2014/3/1/b',
- '1999/12/1',
- 'a/index',
- 'a/ind',
- 'a',
- '2019/6/11',
- '2019/6/1',
- 'b',
- 'supercalifragilisticexpialidociousceteradisestamblishmentarianism'
- );
-
- my $sorted = [
- '1999/12/1',
- '2012/1/2',
- '2014/3/1/a',
- '2014/3/1/b',
- '2014/3/1/frobnicate',
- '2019/6/1',
- '2019/6/2',
- '2019/6/11',
- '2019/6/21',
- 'a',
- 'abc',
- 'a/ind',
- 'a/index',
- 'b',
- 'c',
- 'c/frobnicate',
- 'chapbook',
- 'frobnicate',
- 'supercalifragilisticexpialidociousceteradisestamblishmentarianism'
- ];
-
- my (@result) = sort_entries(@unsorted);
-
- unless (is_deeply($sorted, \@result, "sort_entries() works, more or less")) {
- for (@result) {
- diag($_);
- }
- }
|