1#! /usr/bin/env perl 2# Copyright 2015-2016 The OpenSSL Project Authors. All Rights Reserved. 3# 4# Licensed under the Apache License 2.0 (the "License"). You may not use 5# this file except in compliance with the License. You can obtain a copy 6# in the file LICENSE in the source distribution or at 7# https://www.openssl.org/source/license.html 8 9 10use strict; 11use warnings; 12 13use Math::BigInt; 14 15use OpenSSL::Test qw/:DEFAULT data_file/; 16 17setup("test_bn"); 18 19my @files = qw( bnexp.txt bnmod.txt bnmul.txt bnshift.txt bnsum.txt bngcd.txt ); 20 21plan tests => 1 + scalar(@files); 22 23foreach my $f ( @files ) { 24 ok(run(test(["bntest", data_file($f)])), 25 "running bntest $f"); 26} 27ok(run(test(["bntest"])), "running bntest"); 28
