Use BIO not FILE for test file
[openssl.git] / test / recipes / 10-test_bn.t
index 628512a..f5c3fb1 100644 (file)
@@ -16,7 +16,13 @@ use OpenSSL::Test qw/:DEFAULT srctop_file/;
 
 setup("test_bn");
 
 
 setup("test_bn");
 
-plan tests => 1;
+my @files = (
+    "bnexp.txt", "bnmod.txt", "bnmul.txt", "bnshift.txt", "bnsum.txt"
+    );
+plan tests => 1 + scalar(@files);
 
 
-ok(run(test(["bntest", srctop_file("test", "bntests.txt")])),
-   "running bntest bntests.txt");
+foreach my $f ( @files ) {
+    ok(run(test(["bntest", srctop_file("test", $f)])),
+        "running bntest $f");
+}
+ok(run(test(["bntest"])), "running bntest");