File: load-data.t

package info (click to toggle)
libjson-validator-perl 3.06%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 616 kB
  • sloc: perl: 1,308; makefile: 6
file content (41 lines) | stat: -rw-r--r-- 1,186 bytes parent folder | download
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
  use Mojo::Base -strict;
  use Test::More;
  use JSON::Validator;

  my $validator = JSON::Validator->new;
  my @errors    = $validator->schema('data://main/spec.json')
    ->validate({firstName => 'yikes!'});

  is int(@errors), 1, 'one error';
  is $errors[0]->path,    '/lastName',         'lastName';
  is $errors[0]->message, 'Missing property.', 'required';
  is_deeply $errors[0]->TO_JSON,
    {path => '/lastName', message => 'Missing property.'}, 'TO_JSON';

  use Mojo::File 'path';
  push @INC, path(path(__FILE__)->dirname, 'stack')->to_string;
  require Some::Module;

  eval { Some->validate_age1({age => 1}) };
  like $@, qr{age1\.json}, 'could not find age1.json';

  ok !Some->validate_age0({age => 1}), 'validate_age0';
  ok !Some::Module->validate_age0({age => 1}), 'validate_age0';
  ok !Some::Module->validate_age1({age => 1}), 'validate_age1';

  done_testing;

__DATA__
@@ spec.json

{
  "title": "Example Schema",
  "type": "object",
  "required": ["firstName", "lastName"],
  "properties": {
      "firstName": { "type": "string" },
      "lastName": { "type": "string" },
      "age": { "type": "integer", "minimum": 0, "description": "Age in years" }
  }
}