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
|
#!/bin/sh
N=35
M=5000000
O=50000000
ghc -cpp -O -no-recomp -threaded --make mvar-test.hs -o lazy-mvar
ghc -DSTRICT -cpp -O -no-recomp -threaded --make mvar-test.hs -o strict-mvar
ghc -cpp -O -no-recomp -threaded --make chan-test.hs -o lazy-chan
ghc -DSTRICT -cpp -O -no-recomp -threaded --make chan-test.hs -o strict-chan
ghc -cpp -O -no-recomp -threaded --make thread-ring.hs -o lazy-thread-ring
ghc -DSTRICT -cpp -O -no-recomp -threaded --make thread-ring.hs -o strict-thread-ring
echo "******* Testing Chans ************"
echo "** Should be slow:"
/usr/bin/time ./lazy-chan $N +RTS -tstderr -RTS > /dev/null
echo "** Should be fast:"
/usr/bin/time ./strict-chan $N +RTS -tstderr -RTS > /dev/null
echo "** Should be twice as fast (on 2 cores)"
/usr/bin/time ./strict-chan $N +RTS -N2 -tstderr -RTS > /dev/null
echo "******* Testing MVars ************"
echo "** Should have a space leak:"
/usr/bin/time ./lazy-mvar $M +RTS -tstderr -RTS > /dev/null
echo "** Should run in constant space:"
/usr/bin/time ./strict-mvar $M +RTS -tstderr -RTS > /dev/null
echo "** Should pass (2 cores)"
/usr/bin/time ./strict-mvar $M +RTS -N2 -tstderr -RTS > /dev/null
echo "******* Testing thread-ring benchmark ************"
echo "** Should be ok **"
/usr/bin/time ./lazy-thread-ring $O +RTS -tstderr -RTS > /dev/null
echo "** Should be no slower, use constant space **"
/usr/bin/time ./strict-thread-ring $O +RTS -tstderr -RTS > /dev/null
|
