#!/usr/bin/env perl
use strict;
use warnings;

use feature ':5.10';

use FindBin '$RealBin';
use lib $RealBin;

use TestHelpers qw(test_init check);

use Term::ANSIColor;
my $Nfailed = 0;



my $data1 = <<'EOF';
#!/bin/xxx
## xxx
# a b
1 1.69
## asdf
# 1234
20 0.09# xxx
3 0.49 # yyy
4 2.89 ## zzz
5 7.29## zzz
EOF

my $data2 = <<'EOF';
#!/bin/xxx
 ## zzz ##
	
#
#a b

## yyy
  # adsf
# 345
9 -2
8 -4
7 -6
6 -8
5 -10
EOF

my $data_not_ab = <<'EOF';
#!/bin/xxx
# a b c
1 2 3
4 5 6
EOF

my $data3 = <<'EOF';
#!/bin/xxx
# a b c d
4 150 156 3
211 24 3 231
4 150 156 23
211 24 2 231
32 150 156 3
111 24 3 231
EOF

my $data_int_dup = <<'EOF';
# a c c
1 10 A
2 11 B
3 12 C
EOF

# special characters and trailing comments and leading and trailing whitespace
# and empty lines and and empty comments and duplicated fields
my $data_funky = <<'EOF';
## test
 # 
 # x y # z z - 1+
## whoa

bar	5 1 2 22 10 18 # comment
## comment
  bbb	4 7 8 88 11 2   
EOF




test_init('vnl-sort', \$Nfailed,
          '$data1'       => $data1,
          '$data2'       => $data2,
          '$data3'       => $data3,
          '$data_int_dup'=> $data_int_dup,
          '$data_not_ab' => $data_not_ab,
          '$data_funky'  => $data_funky);





check( <<'EOF', qw(-k a), '$data1', '$data2' );
# a b
1 1.69
20 0.09
3 0.49
4 2.89
5 -10
5 7.29
6 -8
7 -6
8 -4
9 -2
EOF

check( <<'EOF', qw(-k a), '$data2', '$data1' );
# a b
1 1.69
20 0.09
3 0.49
4 2.89
5 -10
5 7.29
6 -8
7 -6
8 -4
9 -2
EOF

check( <<'EOF', qw(-k a), '-$data1', '$data2' );
# a b
1 1.69
20 0.09
3 0.49
4 2.89
5 -10
5 7.29
6 -8
7 -6
8 -4
9 -2
EOF

check( <<'EOF', qw(-k a), '$data1', '-$data2' );
# a b
1 1.69
20 0.09
3 0.49
4 2.89
5 -10
5 7.29
6 -8
7 -6
8 -4
9 -2
EOF

check( <<'EOF', qw(-k a), '-$data2' );
# a b
5 -10
6 -8
7 -6
8 -4
9 -2
EOF

check( <<'EOF', qw(-k a), '--$data2' );
# a b
5 -10
6 -8
7 -6
8 -4
9 -2
EOF

check( <<'EOF', qw(-k b), '--$data2' );
# a b
5 -10
9 -2
8 -4
7 -6
6 -8
EOF

check( <<'EOF', qw(-n -k b), '--$data2' );
# a b
5 -10
6 -8
7 -6
8 -4
9 -2
EOF

check( <<'EOF', qw(-n -k a), '$data1', '$data2' );
# a b
1 1.69
3 0.49
4 2.89
5 -10
5 7.29
6 -8
7 -6
8 -4
9 -2
20 0.09
EOF

check( <<'EOF', qw(-n -k b), '$data1', '$data2' );
# a b
5 -10
6 -8
7 -6
8 -4
9 -2
20 0.09
3 0.49
1 1.69
4 2.89
5 7.29
EOF

check( <<'EOF', qw(-n --key b), '$data1', '$data2' );
# a b
5 -10
6 -8
7 -6
8 -4
9 -2
20 0.09
3 0.49
1 1.69
4 2.89
5 7.29
EOF

check( <<'EOF', qw(-n --key=b), '$data1', '$data2' );
# a b
5 -10
6 -8
7 -6
8 -4
9 -2
20 0.09
3 0.49
1 1.69
4 2.89
5 7.29
EOF

# don't have this field
check( 'ERROR', qw(-k x), '$data1', '-$data2' );

# inconsistent fields
check( 'ERROR', qw(-k a), '$data1', '-$data2', '$data_not_ab' );

# unsupported options
check( 'ERROR', qw(-t f),   '$data1' );
check( 'ERROR', qw(-z),     '$data1' );
check( 'ERROR', qw(-o xxx), '$data1' );

################ fancy key-ing

# Sort numerically on each field. Front one most significant
check( <<'EOF', '-k', 'a.n', '-k', 'b.n', '-k', 'c.n', '-k', 'd.n', '$data3' );
# a b c d
4 150 156 3
4 150 156 23
32 150 156 3
111 24 3 231
211 24 2 231
211 24 3 231
EOF

# Sort numerically on each field. Last one most significant
check( <<'EOF', '-k', 'd.n', '-k', 'c.n', '-k', 'b.n', '-k', 'a.n', '$data3' );
# a b c d
4 150 156 3
32 150 156 3
4 150 156 23
211 24 2 231
111 24 3 231
211 24 3 231
EOF

# Sort numerically on each field, except the last. First one most significant
check( <<'EOF', '-k', 'a.n', '-k', 'b.n', '-k', 'c.n', '-k', 'd', '$data3' );
# a b c d
4 150 156 23
4 150 156 3
32 150 156 3
111 24 3 231
211 24 2 231
211 24 3 231
EOF


# Now make sure irrelevant dups don't break me
check( <<'EOF', qw(-k a), '$data_int_dup' );
# a c c
1 10 A
2 11 B
3 12 C
EOF

# But that relevant dups do
check( 'ERROR', qw(-k c), '$data_int_dup' );

# funky data works
check( <<'EOF', '-nk', '1+', '$data_funky' );
# x y # z z - 1+
bbb	4 7 8 88 11 2
bar	5 1 2 22 10 18
EOF

check( 'ERROR', qw(-nk z), '$data_funky' );






if($Nfailed == 0 )
{
    say colored(["green"], "All tests passed!");
    exit 0;
}
else
{
    say colored(["red"], "$Nfailed tests failed!");
    exit 1;
}