File: number.pm

package info (click to toggle)
libjson-validator-perl 5.14%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 1,160 kB
  • sloc: perl: 3,015; makefile: 14
file content (20 lines) | stat: -rw-r--r-- 439 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
package t::test::number;
use t::Helper;

sub basic {
  schema_validate_ok 1, {type => 'number'};
}

sub maximum {
  schema_validate_ok 0, {maximum => 0};
  schema_validate_ok 1, {maximum => 1};
  schema_validate_ok - 1, {maximum => -2}, E('/', '-1 > maximum(-2)');
}

sub minimum {
  schema_validate_ok 0, {minimum => 0};
  schema_validate_ok 1, {minimum => 1};
  schema_validate_ok - 2, {minimum => -1}, E('/', '-2 < minimum(-1)');
}

1;