QAT Qunar Auto Test Util library
QAT::Util
my $res = QAT::Util::do_http_request({
url => 'http://www.qunar.com/'
});
# check request is success
$res->is_success
# get http code
$res->code
# get location header
$res->header('Location');
QAT::Validaotr
use QAT::Validator;
my $spec = '{"foo": INT}';
my $validator = QAT::Validator->new(spec => $spec);
my $data = { foo => 4 };
eval {
$validator->validate($data)
};
if ($@) {
# invalid
} else {
# valid
}
QAT::Validator::QuasiQuote;
use QAT::Validator::QuasiQuote;
my $data = { foo => 4};
my $foo;
eval {
[:validator|
$data ~~ {
foo2: INT :to($foo)
}
|]
};
if ($@) {
# invalid
} else {
# valid
}
my $res = do_http_request({ host => '', port => '', uri => '', url => '', data => '', data_urlencode => '' form => '', });
validator: lhs(?) value <commit> eofile
lhs: variable '~~'
variable: { Text::Balanced::extract_variable($text) }
value: hash
| array
| scalar
| 'true'
| 'false'
| 'null'
| /\-?\d+(\.\d+)?/
| { extract_quotelike($text) }
hash: '{' pair(s? /,/) /,?/ '}' attr(s?)
pair: key ':' value
key: { extract_delimited($text, '"') }
| ident
array: '[' <commit> array_elem ']' attr(s?)
array_elem: value
scalar: type <commit> attr(s?)
type: 'STRING'|'INT'| 'IDENT' | 'BOOL'| 'ANY'
attr: ':' ident '(' argument(s /,/) ')' | ':' ident
ident: /^[A-Za-z]\w*/
argument: /^\d+/
| '[]'
| variable
| { extract_quotelike($text) }
| { extract_codeblock($text) }
eofile: /^\Z/
Details see:
http://search.cpan.org/~dconway/Parse-RecDescent-1.965001/lib/Parse/RecDescent.pm
http://search.cpan.org/~adamk/Text-Balanced-2.02/lib/Text/Balanced.pm
1. nonempty string
STRING :nonempty
--- valid
"hello"
--- invalid
""
2. simple hash
{ foo: STRING }
--- valid
{"foo":"dog"}
{"foo":32}
null
{}
--- invalid
{"foo2":32}
32
[]
3. hash required
{ "foo": STRING } :required
--- valid
{"foo":"hello"}
{}
{"foo":null}
--- invalid
null
{"blah":"hi"}
[]
32
4. nonempty hash
{"foo":STRING} :nonempty
--- valid
{"foo": "hello"}
{"foo": null}
--- invalid
null
5. required array
[INT] :required
--- valid
[1,2]
[0]
--- invalid
["hello"]
[1,2,"hello"]
[1.32]
null
6. nonempty array
[INT :required] :nonempty
--- valid
[1]
--- invalid
[]
7. regex matched string
STRING :match(/^\d{4}-\d{2}-\d{2}$/, 'Date')
--- valid
2011-01-20
--- invalid
2011-aaa
9. allowed string
STRING :allowed('password', 'login', 'anonymous')
--- valid
"password"
"login"
--- invalid
"abcd"
10. complex sampe 1
{
ret: BOOL :allowed('false') :required,
errcode: INT :required,
errmsg: STRING :required
}
--- valid
{ "ret": false, "errcode": 100, "errmsg": "No such user." }
--- invalid
{ "ret": true }
{ "ret": false, "errcode": 100, "errmsg": "No such user." }
11. complex sample 2
{
ret: BOOL :allowed('true') :required,
data: [
{
id: INT :required,
name: STRING :match(/^\w+$/, "Name") :nonempty,
sex: STRING :allowed('male', 'female')
}
] :required
}
--- valid
{"ret": true, "data": []}
{"ret": true, "data": [{"id": 1, "name": "zhang", "sex": "male"}]}
--- invalid
{"ret": false}
{"ret": true, "data": [{"id": "aaa", "name": "zhang", "sex": "male"}]}
{"ret": true, "data": [{"id": 2, "name": "", "sex": "male"}]}
{"ret": true, "data": [{"id": 2, "name": "zhang", "sex": "ssss"}]}
11. json data also is spec
{ "ret": true}
{ "foo": "abcd"}
{ "foo": null}
{ "foo": 10.24}
Extra dependencies are in inc directory.
use FindBin;
use lib "$FindBin::Bin/../inc";
use lib "$FindBin::Bin/../lib";
Simple project
see:
samples/Simple
"liseen" [email protected]