blob: 9283fa058bc21e150d2338aa2a7877ccdc1e4644 (
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
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
107
108
109
110
111
112
113
114
115
116
|
# Testsuite environment
#
# This file defines the shell functions to analyse a file, elaborat or run
# a design. There are version for expected success and expected failure.
#
# Every test should source and use this file.
# Note: the executable must be set in the GHDL environment variable
# User defined variables (can be set to run the testsuite in some
# configuration, such as optimization or debugging):
# GHDL_FLAGS
# GHDL_ELABFLAGS
# GHDL_SIMFLAGS
#GHDL=ghdl
RM=rm
LN=ln
# Exit in case of failure in shell scripts.
set -e
# Analyze files (no error expected)
analyze ()
{
echo "analyze $@"
$GHDL -a $GHDL_FLAGS $@
}
# Analyze files (failure expected)
analyze_failure ()
{
echo "try to analyze $@"
# for arg in $@; do echo "arg: $arg"; done
if ! $GHDL -a --expect-failure $GHDL_FLAGS $@ ; then
echo "Failure expected"
return 1
fi
}
# Elaborate a design (no error expected)
# Note: somewhat deprecated, use elab_simulate instead.
elab ()
{
echo "elaborate $@"
$GHDL -e $GHDL_FLAGS $GHDL_ELABFLAGS $@
}
# Elaborate a design (failure expected)
# Note: somewhat deprecated, use elab_simulate_failure instead.
elab_failure ()
{
echo "elaborate (failure expected) $@"
$GHDL -e --expect-failure $GHDL_FLAGS $GHDL_ELABFLAGS $@
}
# Simulate a design (no error expected)
# Note: somewhat deprecated, use elab_simulate instead.
simulate ()
{
echo "simulate $@ ($GHDL_FLAGS $@ $GHDL_SIMFLAGS)" >&2
$GHDL -r $GHDL_FLAGS $@ $GHDL_SIMFLAGS
#./$@
}
# Simulate a design (failure expected)
# Note: somewhat deprecated, use elab_simulate_failure instead.
simulate_failure ()
{
echo "simulate (failure expected) $@" >&2
$GHDL -r $GHDL_FLAGS $@ --expect-failure
#./$@
}
# Elaborate and simulate a design (no error expected)
elab_simulate ()
{
echo "elaborate and simulate $@"
$GHDL --elab-run $GHDL_FLAGS $GHDL_ELABFLAGS $@
}
# Elaborate and simulate a design (failure expected)
elab_simulate_failure ()
{
echo "elaborate and simulate (failure expected) $@"
$GHDL --elab-run $GHDL_FLAGS $GHDL_ELABFLAGS $@ --expect-failure
}
# Run a program
run ()
{
echo "run $@"
eval $@
}
# Run a program (failure expected)
run_failure ()
{
echo "run (failure expected) $@"
if eval $@; then
echo "failure expected";
false;
fi
}
# Clean the environment
clean ()
{
if [ $# -eq 0 ]; then
echo "Remove work library"
$GHDL --remove
else
echo "Remove $1 library"
$GHDL --remove --work=$1
fi
}
|
