File: 02-decompose.t

package info (click to toggle)
libmath-fibonacci-perl 1.5-7
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 100 kB
  • sloc: perl: 71; makefile: 2
file content (20 lines) | stat: -rwxr-xr-x 459 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/perl -sw
##
## 01-basic.t
##
## Copyright (c) 2001, Vipul Ved Prakash.  All rights reserved.
## This code is free software; you can redistribute it and/or modify
## it under the same terms as Perl itself.
##
## $Id: 02-decompose.t,v 1.1.1.1 2001/04/28 19:17:52 vipul Exp $

use Test; 
use lib '../lib';
use Math::Fibonacci qw(decompose isfibonacci);

BEGIN { plan tests => 9 };

my @d = decompose (9372883);
for (@d) { 
    ok(isfibonacci($_));
};