#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;

my @tests = (
    [ '1-2-3-4'          => [1,2,3,4]       ],
    [ '1--2-3-4'         => [1,-2,3,4]      ],
    [ '-1-2-3-4'         => [-1,2,3,4]      ],
    [ '1-2-3--4'         => [1,2,3,-4]      ],
    [ '-1--2--3--4'      => [-1,-2,-3,-4]   ],
    [ '15--20-25--30'    => [15,-20,25,-30] ],
);


foreach my $test (@tests) {
    my ($raw, $want) = @$test;

    my @got = split /(?<=\d)-/, $raw;

    local $" = ', ';
    is_deeply \@got, $want, "'$raw' => [@$want]";
}

done_testing();