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

use Test::More;

sub list2glob {
    ...
}


is list2glob('a', 'b'), '{a,b}';
is list2glob('ab', 'ac'), 'a{b,c}';
is list2glob('aXb', 'aYb'), 'a{X,Y}b';
is list2glob(qw( a1b3c a1b4c a2b3c a2b4c )), 'a{1,2}b{3,4}c';

is list2glob(qw( /ab/ef/ij/kl /ab/ef/ij/mn /ab/ef/ij
                 /ab/gh/ij/kl /ab/gh/ij/mn /ab/gh/ij
                 /cd/ef/ij/kl /cd/ef/ij/mn /cd/ef/ij 
                 /cd/gh/ij/kl /cd/gh/ij/mn /cd/gh/ij )),
    '/{ab,cd}/{ef,gh}/ij{/{kl,mn},}';

is list2glob(qw( abdel abdelmn abdelmo abdfgkl
                 abdfgklmn abdfgklmo abdfghkl
                 abdfghklmn abdfghklmo abdfgijkl
                 abdfgijklmn abdfgijklmo acdel
                 acdelmn acdelmo acdfgkl acdfgklmn
                 acdfgklmo acdfghkl acdfghklmn 
                 acdfghklmo acdfgijkl acdfgijklmn
                 acdfgijklmo )),
    'a{b,c}d{e,fg{,h,ij}k}l{,m{n,o}}';

done_testing();