view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

# change 'tests => 1' to 'tests => last_test_to_print';

use Test::Simple tests => 63;
use Language::FP qw/perl2fp fp_eval/;
use strict;
ok(1); # If we made it this far, we're ok (1)

my ($str, $res);

sub fp($) {
    perl2fp(fp_eval shift);
}

sub alltests {

######################################################################
# Miscellaneous (8)

ok(fp '/+:<1 2 3>' eq '<6>');
ok(fp '/*:<1 2 3>' eq '<6>');