bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Unit test splitting, quoting, escaping

Browse source
This commit is contained in:
Juerd Waalboer 2023-12-28 04:07:10 +01:00
parent 0b2ea27117
commit 7cfdc2b20d
1 changed files with 73 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

73
t/prompt.t Normal file
View file

@ -0,0 +1,73 @@
use v5.32;
use Test::More;
use Test::Exception;
use Test::Warnings ":all";
use experimental 'signatures';
BEGIN { use_ok('RevBank::Prompt'); }
sub are($input, $expected) {
if (ref($expected) eq 'ARRAY') {
my @got = RevBank::Prompt::split_input($input);
is_deeply(\@got, $expected, ">$input<");
my $reconstructed = join " ", map RevBank::Prompt::reconstruct($_), @got;
my @got2 = RevBank::Prompt::split_input($reconstructed);
is_deeply(\@got, \@got2, ">$input< round-trips once");
my $reconstructed2 = join " ", map RevBank::Prompt::reconstruct($_), @got2;
my @got3 = RevBank::Prompt::split_input($reconstructed2);
is_deeply(\@got, \@got3, ">$input< round-trips twice");
} else {
my @got = RevBank::Prompt::split_input($input);
is(scalar @got, 1, "Invalid input >$input< returns 1 element");
is(${ $got[0] }, $expected, "Invalid input >$input< fails at $expected");
}
}
are "foo", [qw/foo/];
are " foo ", [qw/foo/];
are "'foo'", [qw/foo/];
are '"foo"', [qw/foo/];
are "foo bar", [qw/foo bar/];
are "foo bar baz", [qw/foo bar baz/];
are "'foo' 'bar' 'baz'", [qw/foo bar baz/];
are "foo;bar", ['foo', "\0SEPARATOR", 'bar'];
are "foo ;bar", ['foo', "\0SEPARATOR", 'bar'];
are "foo; bar", ['foo', "\0SEPARATOR", 'bar'];
are "foo ; bar", ['foo', "\0SEPARATOR", 'bar'];
are "foo\\;bar", [qw/foo;bar/];
are "foo \\;bar", [qw/foo ;bar/];
are "foo\\; bar", [qw/foo; bar/];
are "foo \\; bar", [qw/foo ; bar/];
are "foo\\0bar", ["foo\0bar"];
are "foo\\abar", ["foo\abar"];
are "foo\\rbar", ["foo\rbar"];
are "foo\\nbar", ["foo\nbar"];
are "foo\\tbar", ["foo\tbar"];
are "foo\\'bar", ["foo'bar"];
are 'foo\\"bar', ["foo\"bar"];
are 'foo\\\\bar', ["foo\\bar"];
are 'foo\\\\\\\\bar', ["foo\\\\bar"];
are "abort", ["\0ABORT"];
are "'abort'", [qw/abort/];
are "\\", 0;
are "'foo", 0;
are "foo'", 0;
are "foo'bar", 0;
are "bar 'foo", 3;
are "bar foo'", 3;
are "bar foo'bar", 3;
are "foo 'bar'\"baz\"", 3;
done_testing;