# $NetBSD: glob.t,v 1.13 2022/08/14 12:54:01 rillig Exp $
#
# Tests for file globbing and matching.

use strict;
use warnings;
use Test;

BEGIN { plan tests => 27, onfail => sub { die } }

require('../lintpkgsrc.pl');

sub test_glob2regex() {

	ok(glob2regex('*'), '^.*$');
	ok(glob2regex('\*'), '');

	ok(glob2regex('?'), '^.$');
	ok(glob2regex('\?'), '');

	# Ordinary characters in glob patterns.
	ok(glob2regex('+'), '^\+$');
	ok(glob2regex('\+'), '');
	ok(glob2regex('|'), '^\|$');
	ok(glob2regex('\|'), '');

	ok(glob2regex('\.'), '');
	ok(glob2regex('\n'), '^n$');
	ok(glob2regex('\\\\'), '');
	ok(glob2regex('\['), '');
	ok(glob2regex('\{'), '');
	ok(glob2regex('\-'), '');

	ok(glob2regex('[a-z]'), '');
	ok(glob2regex('[a-z0-9]'), '');
	ok(glob2regex('[a-z0-9_]'), '');
	ok(glob2regex('[*]'), '');

	ok(glob2regex('*.[ch]'), '^.*\.[ch]$');

	# Outside of braces, the ',' is a regular character.
	ok(glob2regex('a,b'), '');
	ok(glob2regex('{one,two}'), '^(one|two)$');
	ok(glob2regex('{{thi,fou}r,fif}teen'), '^((thi|fou)r|fif)teen$');

	# There is an unbalanced '}' at the very end.
	ok(glob2regex('{four,fif}teen}'), undef);

	# An escaped '[' does not start a character class.
	ok(glob2regex('a\[b*'), '^a\[b.*$');

	ok(glob2regex('a\n*'), '^an.*$');

	# https://gnats.netbsd.org/12996
	ok(glob2regex('libsigc++'), '^libsigc\+\+$');

	my $re = 'a\nb';
	ok("a\nb" =~ $re, 1);
}

sub test_expand_braces() {
	my @examples = (
	    [ '', ],
	    [ 'abc', 'abc' ],
	    [ '{a,b,c}', 'a', 'b', 'c' ],
	    [ '<{opt,}>', '<opt>', '<>' ],
	    [ '<{,opt}>', '<>', '<opt>' ],
	    [ '{0,1,2}', '0', '1', '2' ],
	    [ '{2,1,0}', '2', '1', '0' ],
	    # XXX: duplicate 'thirteen'.
	    [ '{thir,f{our,if}}teen', 'thirteen', 'fourteen', 'thirteen', 'fifteen' ]
	);

	foreach my $example (@examples) {
		my ($str, @expected) = @$example;
		my @actual = expand_braces($str);
		ok(join(' ', @actual), join(' ', @expected));
	}
}

test_glob2regex();
test_expand_braces();