1#!/usr/bin/perl
2
3use warnings;
4use strict;
5use Test::Inter;
6my $ti = new Test::Inter $0;
7
8$ti->use_ok('Math::SigFigs');
9
10my $tests="
11
12x      =>
13
140.003  => 1
15
16+0.003 => 1
17
18-0.003 => 1
19
200.103  => 3
21
221.0500 => 5
23
2411.    => 2
25
2611     => 2
27
28110    => 2
29
30110.   => 3
31
320      => 1
33
340.0    => 1
35
361.2e2  => 2
37
380.0e2  => 1
39
40";
41
42$ti->tests(func  => \&CountSigFigs,
43           tests => $tests);
44
45$ti->done_testing();
461;
47
48# Local Variables:
49# mode: cperl
50# indent-tabs-mode: nil
51# cperl-indent-level: 3
52# cperl-continued-statement-offset: 2
53# cperl-continued-brace-offset: 0
54# cperl-brace-offset: 0
55# cperl-brace-imaginary-offset: 0
56# cperl-label-offset: 0
57# End:
58
59