2011-05-23 17:18:52 +10:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
|
2012-04-20 18:17:38 +10:00
|
|
|
$COMMAND = "../json-validate";
|
2011-05-23 17:18:52 +10:00
|
|
|
|
2012-06-12 13:03:50 +10:00
|
|
|
@good = <json_data/good/*>;
|
|
|
|
|
@bad = <json_data/bad/*>;
|
2011-05-23 17:18:52 +10:00
|
|
|
$success = 1;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
sub status_to_str {
|
|
|
|
|
$status = shift @_;
|
|
|
|
|
return $status ? "failed" : "passed";
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
foreach $testfile(@good) {
|
|
|
|
|
$status = system("$COMMAND $testfile &>/dev/null");
|
|
|
|
|
$success &&= $status == 0;
|
|
|
|
|
|
|
|
|
|
printf "%s\t%s\n", status_to_str($status), $testfile;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
foreach $testfile(@bad) {
|
|
|
|
|
$status = system("$COMMAND $testfile &>/dev/null");
|
|
|
|
|
$success &&= $status != 0;
|
|
|
|
|
|
|
|
|
|
printf "%s\t%s\n", status_to_str(!$status), $testfile;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
exit !$success
|
