File: 02_functional_negative.t

package info (click to toggle)
libstatistics-lite-perl 3.62-1
  • links: PTS
  • area: main
  • in suites: buster, stretch
  • size: 116 kB
  • ctags: 17
  • sloc: perl: 288; makefile: 2
file content (13 lines) | stat: -rwxr-xr-x 361 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 4;

BEGIN { use_ok( 'Statistics::Lite', ':all' ); }

# basic functional interface continued: negative numbers

is(min(1,-5,8), -5, "call min with negative numbers" );
is(range(-6,-9), 3, "call range with negative values" );
is(range(6,-9), 15, "call range with data crossing 0" );