blob: 3520ed2a9d5bb322ac8aa43040c1852da6b4ea38 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
#!/bin/bash
# Copyright 2020-2021 Gentoo Authors
# Distributed under the terms of the GNU General Public License v2
EAPI=8
source tests-common.sh
inherit qmail
# some numbers are blocked because they are to small even if prime
test_low_numbers() {
tbegin "low numbers"
for i in $(seq 0 6); do
if is_prime ${i}; then
return tend 1 "${i} badly accepted"
fi
done
tend 0
}
# test a given number for being prime
check_prime_number() {
# use factor from coreutils to count the factors
if [[ $(factor $1 | cut -d: -f2 | wc -w) == 1 ]]; then
return $(is_prime $1)
else
return $(is_prime $1 && false || true)
fi
}
test_primes() {
tbegin "factorizations from ${1} to ${2}"
for i in $(seq ${1:?} ${2:?}); do
if ! check_prime_number $i; then
tend 1 "${i} returned bad factorization"
return 1
fi
done
tend 0
}
test_low_numbers
test_primes 7 99
for i in $(seq 100 100 1000); do
test_primes $i $((i + 99))
done
texit
|
