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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
# Tests for the module zsh/mathfunc
%prep
if ( zmodload -i zsh/mathfunc ) >/dev/null 2>&1; then
zmodload -i zsh/mathfunc
else
ZTST_unimplemented="The module zsh/mathfunc is not available."
fi
%test
# -g makes pi available in later tests
float -gF 5 pi
(( pi = 4 * atan(1.0) ))
print $pi
0:Basic operation with atan
>3.14159
float -F 5 result
(( result = atan(3,2) ))
print $result
0:atan with two arguments
>0.98279
print $(( atan(1,2,3) ))
1:atan can't take three arguments
?(eval):1: wrong number of arguments: atan(1,2,3)
float r1=$(( rand48() ))
float r2=$(( rand48() ))
float r3=$(( rand48() ))
# Yes, this is a floating point equality test like they tell
# you not to do. As the pseudrandom sequence is deterministic,
# this is the right thing to do in this case.
if (( r1 == r2 )); then
print "Seed not updated correctly the first time"
else
print "First two random numbers differ, OK"
fi
if (( r2 == r3 )); then
print "Seed not updated correctly the second time"
else
print "Second two random numbers differ, OK"
fi
0:rand48 with default initialisation
F:This test fails if your math library doesn't have erand48().
>First two random numbers differ, OK
>Second two random numbers differ, OK
seed=f45677a6cbe4
float r1=$(( rand48(seed) ))
float r2=$(( rand48(seed) ))
seed2=$seed
float r3=$(( rand48(seed) ))
float r4=$(( rand48(seed2) ))
# Yes, this is a floating point equality test like they tell
# you not to do. As the pseudrandom sequence is deterministic,
# this is the right thing to do in this case.
if (( r1 == r2 )); then
print "Seed not updated correctly the first time"
else
print "First two random numbers differ, OK"
fi
if (( r2 == r3 )); then
print "Seed not updated correctly the second time"
else
print "Second two random numbers differ, OK"
fi
if (( r3 == r4 )); then
print "Identical seeds generate identical numbers, OK"
else
print "Indeterminate result from identical seeds"
fi
0:rand48 with pre-generated seed
F:This test fails if your math library doesn't have erand48().
>First two random numbers differ, OK
>Second two random numbers differ, OK
>Identical seeds generate identical numbers, OK
float -F 5 pitest
(( pitest = 4.0 * atan(1) ))
# This is a string test of the output to 5 digits.
if [[ $pi = $pitest ]]; then
print "OK, atan on an integer seemed to work"
else
print "BAD: got $pitest instead of $pi"
fi
0:Conversion of arguments from integer
>OK, atan on an integer seemed to work
float -F 5 result
typeset str
for str in 0 0.0 1 1.5 -1 -1.5; do
(( result = abs($str) ))
print $result
done
0:Use of abs on various numbers
>0.00000
>0.00000
>1.00000
>1.50000
>1.00000
>1.50000
print $(( sqrt(-1) ))
1:Non-negative argument checking for square roots.
?(eval):1: math: argument to sqrt out of range
|
