1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
#!/usr/bin/perl
use v5.14;
use warnings;
use Test2::V0;
use Commandable::Invocation;
my $warnings = "";
$SIG{__WARN__} = sub {
local $SIG{__WARN__};
$warnings .= join "", @_;
warn @_;
};
# tokens
{
my $inv = Commandable::Invocation->new( "some words go here" );
is( $inv->peek_token, "some", '->peek_token' );
is( $inv->pull_token, "some", '->pull_token' );
is( $inv->pull_token, "words", '->pull_token again' );
is( $inv->pull_token, "go", '->pull_token again' );
is( $inv->pull_token, "here", '->pull_token again' );
is( $inv->peek_token, undef, '->peek_token at EOF' );
is( $inv->pull_token, undef, '->pull_token at EOF' );
}
# peek_remaining
{
my $inv = Commandable::Invocation->new( "more tokens here" );
is( $inv->peek_remaining, "more tokens here", '->peek_remaining initially' );
$inv->pull_token;
is( $inv->peek_remaining, "tokens here", '->peek_remaining after ->pull_token' );
}
# "quoted tokens"
{
my $inv = Commandable::Invocation->new( q("quoted token" here) );
is( $inv->peek_remaining, q("quoted token" here), '->peek_remaining initially' );
is( $inv->pull_token, "quoted token", '->pull_token yields string' );
is( $inv->peek_remaining, "here", '->peek_remaining after ->pull_token' );
$inv = Commandable::Invocation->new( q("three" "quoted" "tokens") );
is( $inv->pull_token, "three", '->pull_token splits multiple quotes' );
}
# \" escaping
{
my $inv = Commandable::Invocation->new( q(\"quoted\" string token) );
is( $inv->pull_token, '"quoted"', '->pull_token yields de-escaped quote' );
is( $inv->pull_token, 'string', '->pull_token after de-escaped quote' );
$inv = Commandable::Invocation->new( q(\\\\backslash) );
is( $inv->pull_token, "\\backslash", '->pull_token yields de-escaped backslash' );
}
# putback
{
my $inv = Commandable::Invocation->new( "c" );
$inv->putback_tokens( qw( a b ), q("quoted string") );
is( $inv->peek_token, "a", '->peek_token after putback' );
is( $inv->pull_token, "a", '->pull_token after putback' );
is( $inv->pull_token, "b", '->pull_token after putback' );
is( $inv->pull_token, '"quoted string"', '->pull_token after putback' );
is( $inv->pull_token, "c", '->pull_token after putback' );
$inv->putback_tokens( "foo", "bar splot", '"quoted string"' );
is( $inv->peek_remaining, q(foo "bar splot" "\"quoted string\""), '->peek_remaining after putback' );
}
# new_from_tokens
{
my $inv = Commandable::Invocation->new_from_tokens( "one", "two", "three four" );
is( $inv->pull_token, "one", '->pull_token from new_from_tokens' );
is( $inv->pull_token, "two", '->pull_token from new_from_tokens' );
is( $inv->pull_token, "three four", '->pull_token from new_from_tokens' );
}
is( $warnings, "", 'had no warnings' );
done_testing;
|
