File: 09_test_importer_vars_debug0.t

package info (click to toggle)
libstatistics-basic-perl 1.6611-3
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 392 kB
  • sloc: perl: 947; makefile: 2
file content (15 lines) | stat: -rw-r--r-- 237 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 

use t::locale_hack;
use Test;
use Statistics::Basic qw(:all debug=0);

plan tests => 1;

my $warn = 0;
$SIG{__WARN__} = sub {
    $warn++ if $_[0] =~ m/recalc_needed Statistics::Basic::Mean/;
};

my $mean = mean(1,2,3);

ok( $warn, 0 )