[pve-common.git] / test / format_test.pl

#!/usr/bin/perl

use strict;
use warnings;

use lib '../src';
use PVE::JSONSchema;

use Test::More;
use Test::MockModule;

my $valid_configids = [
	'aa', 'a0', 'a_', 'a-', 'a-a', 'a'x100, 'Aa', 'AA',
];
my $invalid_configids = [
	'a', 'a+', '1a', '_a', '-a', '+a', 'A',
];

my $noerr = 1; # easier to test
foreach my $id (@$valid_configids) {
    is(PVE::JSONSchema::pve_verify_configid($id, $noerr), $id, 'valid configid');
}
foreach my $id (@$invalid_configids) {
    is(PVE::JSONSchema::pve_verify_configid($id, $noerr), undef, 'invalid configid');
}

done_testing();
Commit	Line	Data
e37d5924 DJ	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use lib '../src';
	7	use PVE::JSONSchema;
	8
	9	use Test::More;
	10	use Test::MockModule;
	11
	12	my $valid_configids = [
	13	'aa', 'a0', 'a_', 'a-', 'a-a', 'a'x100, 'Aa', 'AA',
	14	];
	15	my $invalid_configids = [
	16	'a', 'a+', '1a', '_a', '-a', '+a', 'A',
	17	];
	18
	19	my $noerr = 1; # easier to test
	20	foreach my $id (@$valid_configids) {
	21	is(PVE::JSONSchema::pve_verify_configid($id, $noerr), $id, 'valid configid');
	22	}
	23	foreach my $id (@$invalid_configids) {
	24	is(PVE::JSONSchema::pve_verify_configid($id, $noerr), undef, 'invalid configid');
	25	}
	26
	27	done_testing();