use Test;
use strict;
use warnings;
BEGIN { plan tests => 46 };

use Unicode::Regex::Set qw(parse);
ok(1); # If we made it this far, we're ok.

ok(parse('[A-Z]'),
	 '[A-Z]');

ok(parse('[a-z A-Z]'),
	 '[a-zA-Z]');

########

# reference -> modification

use vars qw($regex);
$regex = '[A-Z]foobar';

ok(parse(\$regex), '[A-Z]');

ok($regex, 'foobar');

########

ok(parse('[a-z | A-Z]'),
	 '[a-zA-Z]');

ok(parse('[a-z A-Z 0-9]'),
	 '[a-zA-Z0-9]');

ok(parse('[a-z | A-Z | 0-9]'),
	 '[a-zA-Z0-9]');

ok(parse('[a-z  A-Z | 0-9]'),
	 '[a-zA-Z0-9]');

ok(parse('[a-z [A-Z] 0-9]'),
	 '(?:[a-z]|[A-Z]|[0-9])');

ok(parse('[a-z - A-Z]'),
	 '(?:(?![A-Z])[a-z])');

ok(parse('[a-z - A-Z \r \n]'),
	 '(?:(?![A-Z\r\n])[a-z])');

ok(parse('[a-z - A-Z - \r - \n]'),
	 '(?:(?![A-Z\r\n])[a-z])');

ok(parse('[a-z xyz0-9 - A-Z - \r\n]'),
	'(?:(?![A-Z\r\n])[a-zxyz0-9])');

ok(parse('[\p{Latin} - [A-Z - \p{Vowel}]]'),
	'(?:(?!(?:(?![\p{Vowel}])[A-Z]))[\p{Latin}])');

ok(parse('[A-Z & \p{Latin}]'),
	'(?:(?=[\p{Latin}])[A-Z])');

ok(parse('[A-Z & \p{Latin} 0-9]'),
	'(?:(?:(?=[\p{Latin}])[A-Z])|[0-9])');

ok(parse('[A-Z & C-Q & K-S]'),
	'(?:(?=[C-Q])(?=[K-S])[A-Z])');

ok(parse('[\p{A} [\p{B} A-Z] - \p{C} \p{D}]'),
	'(?:(?![\p{C}\p{D}])(?:[\p{A}]|[\p{B}A-Z]))');

ok(parse('[A-Z & [ABC L-Q] & [K-S - QRS]]'),
	'(?:(?=[ABCL-Q])(?=(?:(?![QRS])[K-S]))[A-Z])');

ok(parse('[\p{Latin} & \p{L&} - \p{ASCII}]'),
	'(?:(?![\p{ASCII}])(?:(?=[\p{L&}])[\p{Latin}]))');

ok(parse('[ \[-\] & abc\ xyz ]'),
	'(?:(?=[abc\ xyz])[\[-\]])');

ok(parse('[^ A-Z]'),
	'(?:(?![A-Z])(?s:.))');

ok(parse('[ ^A-Z PERL]'),
	'(?:[^A-Z]|[PERL])');

ok(parse('[^ a-z A-Z 0-9]'),
	'(?:(?![a-zA-Z0-9])(?s:.))');

ok(parse('[^A-Z a-z 0-9]'),
	'(?:(?![A-Za-z0-9])(?s:.))');

ok(parse('[^[A-Z a-z 0-9]]'),
	'(?:(?![A-Za-z0-9])(?s:.))');

ok(parse('[^B-Z & A-D]'),
	'(?:(?!(?:(?=[A-D])[B-Z]))(?s:.))');

ok(parse('[^A-Z - PERL]'),
	'(?:(?!(?:(?![PERL])[A-Z]))(?s:.))');

ok(parse('[A-Z - [^ PERL]]'),
	'(?:(?!(?:(?![PERL])(?s:.)))[A-Z])');

ok(parse('[A-Z & [^JUNK]]'),
	'(?:(?=(?:(?![JUNK])(?s:.)))[A-Z])');

ok(parse('[^ A-Z - [^pqr] ]'),
	'(?:(?!(?:(?!(?:(?![pqr])(?s:.)))[A-Z]))(?s:.))');

ok(parse('[\] \-\ 	 ]'),
	 '[\]\-\ ]');

ok(parse('[\p{letter} \p{decimal number}]'),
	'[\p{letter}\p{decimal number}]');

ok(parse('[\p{alnum} - \P{decimal number}]'),
	'(?:(?![\P{decimal number}])[\p{alnum}])');

ok(parse('[\p{Greek} - \N{GREEK SMALL LETTER ALPHA}]'),
	'(?:(?![\N{GREEK SMALL LETTER ALPHA}])[\p{Greek}])');

ok(parse('[\p{Assigned} - \p{Decimal Digit Number} - a-f A-F]'),
	'(?:(?![\p{Decimal Digit Number}a-fA-F])[\p{Assigned}])');

ok(parse('[\x00-\x7F - ^\p{Latin}]'),
	'(?:(?![^\p{Latin}])[\x00-\x7F])');

ok(parse('[\x00-\x7F ^\p{Latin}]'),
	'(?:[\x00-\x7F]|[^\p{Latin}])');

ok(parse('[\x00-\x7F ^[:alpha:]]'),
	'(?:[\x00-\x7F]|[^[:alpha:]])');

ok(parse('[\x00-\x7F -A-Z]'),
	'(?:[\x00-\x7F]|[-A-Z])');

ok(parse('[0-9 -TEST]'),
	'(?:[0-9]|[-TEST])');

ok(parse('[0- TEST]'),
	'(?:[0-]|[TEST])');

ok(parse('[0\- TEST]'),
	'(?:[0\-]|[TEST])');

ok(parse('[0\c[]'),
	'[0\c[]');

ok(parse('[\c]\c\]'),
	'[\c]\c\]');