fUnit 0.0.1

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (40) hide show
  1. data/INSTALL +19 -0
  2. data/LICENSE +262 -0
  3. data/README +3 -0
  4. data/bin/funit +8 -0
  5. data/docs/HISTORY +20 -0
  6. data/docs/spiel/slides.tex +153 -0
  7. data/docs/why/F90testRun +43 -0
  8. data/docs/why/F90testRun.ps +548 -0
  9. data/docs/why/FluxFunctions.f90 +36 -0
  10. data/docs/why/FluxFunctions.f90.ps +526 -0
  11. data/docs/why/FluxFunctionsTS.f90 +324 -0
  12. data/docs/why/FluxFunctionsTS.f90.ps +1048 -0
  13. data/docs/why/FluxFunctionsTS.ftk +49 -0
  14. data/docs/why/FluxFunctionsTS.ftk.ps +554 -0
  15. data/docs/why/GasModel.f90 +19 -0
  16. data/docs/why/GasModel.f90.ps +496 -0
  17. data/docs/why/GasModelTS+SRC +44 -0
  18. data/docs/why/GasModelTS+SRC.ps +532 -0
  19. data/docs/why/GasModelTS.f90 +168 -0
  20. data/docs/why/GasModelTS.f90.ps +760 -0
  21. data/docs/why/GasModelTS.ftk +22 -0
  22. data/docs/why/GasModelTS.ftk.ps +507 -0
  23. data/docs/why/TestRunner.f90 +28 -0
  24. data/docs/why/TestRunner.f90.ps +511 -0
  25. data/docs/why/land2 +2 -0
  26. data/docs/why/landscape +2 -0
  27. data/docs/why/portrait +2 -0
  28. data/lib/clean +1 -0
  29. data/lib/fortran_deps.rb +109 -0
  30. data/lib/funit/assertions.rb +72 -0
  31. data/lib/funit/functions.rb +124 -0
  32. data/lib/funit/test_suite.rb +180 -0
  33. data/lib/funit.rb +25 -0
  34. data/lib/mklinks +5 -0
  35. data/tests/tc_compile.rb +30 -0
  36. data/tests/tc_fortran_deps.rb +167 -0
  37. data/tests/tc_funit.rb +104 -0
  38. data/tests/tc_test_suite.rb +82 -0
  39. data/tests/ts_funit.rb +6 -0
  40. metadata +85 -0
data/docs/why/FluxFunctionsTS.f90 ADDED
@@ -0,0 +1,324 @@
1
+ ! FluxFunctionsTS.f90 - a Fortran mobility test suite for FluxFunctions.f90
2
+ !
3
+ ! [dynamically generated from FluxFunctionsTS.ftk
4
+ ! by FTKtest Ruby script Wed Nov 07 07:53:00 EST 2001]
5
+
6
+ module FluxFunctionsTS
7
+
8
+ use FluxFunctions
9
+
10
+ implicit none
11
+
12
+ private
13
+
14
+ public :: TSFluxFunctions
15
+
16
+ logical :: noAssertFailed
17
+
18
+ integer :: numTests = 0
19
+ integer :: numAsserts = 0
20
+ integer :: numAssertsTested = 0
21
+ integer :: numFailures = 0
22
+
23
+ ! $Id: FluxFunctionsTS.f90 112 2006-04-05 11:23:45Z kleb $
24
+
25
+ real :: leftState, rightState, interfaceFlux
26
+
27
+ contains
28
+
29
+
30
+ subroutine TestFluxZero
31
+
32
+ real :: state
33
+ state = 0
34
+
35
+ ! IsEqualWithin assertion
36
+ numAsserts = numAsserts + 1
37
+ if (noAssertFailed) then
38
+ if (.not.( 0+ 0.00001 .ge. Flux(state) &
39
+ .and. 0- 0.00001 .le. Flux(state))) then
40
+ print *, " FAILURE: IsEqualWithin in test FluxZero, &
41
+ &line 13 of FluxFunctionsTS.ftk"
42
+ print *, " ", " Flux(state) is not", 0,"within", 0.00001
43
+ noAssertFailed = .false.
44
+ numFailures = numFailures + 1
45
+ else
46
+ numAssertsTested = numAssertsTested + 1
47
+ endif
48
+ endif
49
+
50
+ numTests = numTests + 1
51
+
52
+ end subroutine TestFluxZero
53
+
54
+
55
+ subroutine TestFluxOne
56
+
57
+ real :: state = 1
58
+
59
+ ! IsEqualWithin assertion
60
+ numAsserts = numAsserts + 1
61
+ if (noAssertFailed) then
62
+ if (.not.( 0.5+ 0.00001 .ge. Flux(state) &
63
+ .and. 0.5- 0.00001 .le. Flux(state))) then
64
+ print *, " FAILURE: IsEqualWithin in test FluxOne, &
65
+ &line 18 of FluxFunctionsTS.ftk"
66
+ print *, " ", " Flux(state) is not", 0.5,"within", 0.00001
67
+ noAssertFailed = .false.
68
+ numFailures = numFailures + 1
69
+ else
70
+ numAssertsTested = numAssertsTested + 1
71
+ endif
72
+ endif
73
+
74
+ numTests = numTests + 1
75
+
76
+ end subroutine TestFluxOne
77
+
78
+
79
+ subroutine TestRoeAvgZero
80
+
81
+
82
+ ! IsRealEqual assertion
83
+ numAsserts = numAsserts + 1
84
+ if (noAssertFailed) then
85
+ if (.not.( 0 +2*spacing(real( 0 )).ge. RoeAvg(0.0,0.0) &
86
+ .and. 0 -2*spacing(real( 0 )).le. RoeAvg(0.0,0.0))) then
87
+ print *, " FAILURE: IsRealEqual in test RoeAvgZero, &
88
+ &line 22 of FluxFunctionsTS.ftk"
89
+ print *, " ", " RoeAvg(0.0,0.0) is not", 0 ,"within",2*spacing(real( 0 ))
90
+ noAssertFailed = .false.
91
+ numFailures = numFailures + 1
92
+ else
93
+ numAssertsTested = numAssertsTested + 1
94
+ endif
95
+ endif
96
+
97
+ ! IsFalse assertion
98
+ numAsserts = numAsserts + 1
99
+ if (noAssertFailed) then
100
+ if ( RoeAvg(0.0,0.0).ne.1 ) then
101
+ print *, " FAILURE: IsFalse in test RoeAvgZero, &
102
+ &line 23 of FluxFunctionsTS.ftk"
103
+ print *, " ", " RoeAvg(0.0,0.0).ne.1 is not false"
104
+ noAssertFailed = .false.
105
+ numFailures = numFailures + 1
106
+ else
107
+ numAssertsTested = numAssertsTested + 1
108
+ endif
109
+ endif
110
+
111
+ numTests = numTests + 1
112
+
113
+ end subroutine TestRoeAvgZero
114
+
115
+
116
+ subroutine TestRoeAvgKnown
117
+
118
+
119
+ ! IsRealEqual assertion
120
+ numAsserts = numAsserts + 1
121
+ if (noAssertFailed) then
122
+ if (.not.( 0.5 +2*spacing(real( 0.5 )).ge. RoeAvg(leftState,rightState) &
123
+ .and. 0.5 -2*spacing(real( 0.5 )).le. RoeAvg(leftState,rightState))) then
124
+ print *, " FAILURE: IsRealEqual in test RoeAvgKnown, &
125
+ &line 27 of FluxFunctionsTS.ftk"
126
+ print *, " ", " RoeAvg(leftState,rightState) is not", 0.5 ,"within",2*spacing(real( 0.5 ))
127
+ noAssertFailed = .false.
128
+ numFailures = numFailures + 1
129
+ else
130
+ numAssertsTested = numAssertsTested + 1
131
+ endif
132
+ endif
133
+
134
+ ! IsTrue assertion
135
+ numAsserts = numAsserts + 1
136
+ if (noAssertFailed) then
137
+ if (.not.( RoeAvg(leftState,rightState).lt.0 )) then
138
+ print *, " FAILURE: IsTrue in test RoeAvgKnown, &
139
+ &line 28 of FluxFunctionsTS.ftk"
140
+ print *, " ", " RoeAvg(leftState,rightState).lt.0 is not true"
141
+ noAssertFailed = .false.
142
+ numFailures = numFailures + 1
143
+ else
144
+ numAssertsTested = numAssertsTested + 1
145
+ endif
146
+ endif
147
+
148
+ numTests = numTests + 1
149
+
150
+ end subroutine TestRoeAvgKnown
151
+
152
+
153
+ subroutine TestCentralFluxKnown
154
+
155
+ call CentralFlux( leftState, rightState, interfaceFlux )
156
+
157
+ ! IsEqualWithin assertion
158
+ numAsserts = numAsserts + 1
159
+ if (noAssertFailed) then
160
+ if (.not.( 0.5+ 0.001 .ge. interfaceFlux &
161
+ .and. 0.5- 0.001 .le. interfaceFlux)) then
162
+ print *, " FAILURE: IsEqualWithin in test CentralFluxKnown, &
163
+ &line 33 of FluxFunctionsTS.ftk"
164
+ print *, " ", " interfaceFlux is not", 0.5,"within", 0.001
165
+ noAssertFailed = .false.
166
+ numFailures = numFailures + 1
167
+ else
168
+ numAssertsTested = numAssertsTested + 1
169
+ endif
170
+ endif
171
+
172
+ ! IsEqualWithin assertion
173
+ numAsserts = numAsserts + 1
174
+ if (noAssertFailed) then
175
+ if (.not.( 0.5+ 0.00000001 .ge. interfaceFlux &
176
+ .and. 0.5- 0.00000001 .le. interfaceFlux)) then
177
+ print *, " FAILURE: IsEqualWithin in test CentralFluxKnown, &
178
+ &line 34 of FluxFunctionsTS.ftk"
179
+ print *, " ", " interfaceFlux is not", 0.5,"within", 0.00000001
180
+ noAssertFailed = .false.
181
+ numFailures = numFailures + 1
182
+ else
183
+ numAssertsTested = numAssertsTested + 1
184
+ endif
185
+ endif
186
+
187
+ ! IsEqual assertion
188
+ numAsserts = numAsserts + 1
189
+ if (noAssertFailed) then
190
+ if (.not.( interfaceFlux== 0.5 )) then
191
+ print *, " FAILURE: IsEqual in test CentralFluxKnown, &
192
+ &line 35 of FluxFunctionsTS.ftk"
193
+ print *, " ", " interfaceFlux is not", 0.5
194
+ noAssertFailed = .false.
195
+ numFailures = numFailures + 1
196
+ else
197
+ numAssertsTested = numAssertsTested + 1
198
+ endif
199
+ endif
200
+
201
+ numTests = numTests + 1
202
+
203
+ end subroutine TestCentralFluxKnown
204
+
205
+
206
+ subroutine TestRoeFluxExpansionShock
207
+
208
+ leftState = -1
209
+ call RoeFlux( leftState, rightState, interfaceFlux )
210
+
211
+ ! IsEqual assertion
212
+ numAsserts = numAsserts + 1
213
+ if (noAssertFailed) then
214
+ if (.not.( interfaceFlux== 0 )) then
215
+ print *, " FAILURE: IsEqual in test RoeFluxExpansionShock, &
216
+ &line 41 of FluxFunctionsTS.ftk"
217
+ print *, " ", " interfaceFlux is not", 0
218
+ noAssertFailed = .false.
219
+ numFailures = numFailures + 1
220
+ else
221
+ numAssertsTested = numAssertsTested + 1
222
+ endif
223
+ endif
224
+
225
+ numTests = numTests + 1
226
+
227
+ end subroutine TestRoeFluxExpansionShock
228
+
229
+
230
+ subroutine TestRoeFluxZero
231
+
232
+ rightState = 0
233
+ call RoeFlux( leftState, rightState, interfaceFlux )
234
+
235
+ ! IsRealEqual assertion
236
+ numAsserts = numAsserts + 1
237
+ if (noAssertFailed) then
238
+ if (.not.( 0 +2*spacing(real( 0 )).ge. interfaceFlux &
239
+ .and. 0 -2*spacing(real( 0 )).le. interfaceFlux)) then
240
+ print *, " FAILURE: IsRealEqual in test RoeFluxZero, &
241
+ &line 47 of FluxFunctionsTS.ftk"
242
+ print *, " ", " interfaceFlux is not", 0 ,"within",2*spacing(real( 0 ))
243
+ noAssertFailed = .false.
244
+ numFailures = numFailures + 1
245
+ else
246
+ numAssertsTested = numAssertsTested + 1
247
+ endif
248
+ endif
249
+
250
+ ! IsEqual assertion
251
+ numAsserts = numAsserts + 1
252
+ if (noAssertFailed) then
253
+ if (.not.( interfaceFlux== 0 )) then
254
+ print *, " FAILURE: IsEqual in test RoeFluxZero, &
255
+ &line 48 of FluxFunctionsTS.ftk"
256
+ print *, " ", " interfaceFlux is not", 0
257
+ noAssertFailed = .false.
258
+ numFailures = numFailures + 1
259
+ else
260
+ numAssertsTested = numAssertsTested + 1
261
+ endif
262
+ endif
263
+
264
+ numTests = numTests + 1
265
+
266
+ end subroutine TestRoeFluxZero
267
+
268
+
269
+ subroutine Setup
270
+ leftState = 0
271
+ rightState = 1
272
+ noAssertFailed = .true.
273
+ end subroutine Setup
274
+
275
+
276
+ subroutine Teardown
277
+ end subroutine Teardown
278
+
279
+
280
+ subroutine TSFluxFunctions( nTests, nAsserts, nAssertsTested, nFailures )
281
+
282
+ integer :: nTests
283
+ integer :: nAsserts
284
+ integer :: nAssertsTested
285
+ integer :: nFailures
286
+
287
+ continue
288
+
289
+ call Setup
290
+ call TestFluxZero
291
+ call Teardown
292
+
293
+ call Setup
294
+ call TestFluxOne
295
+ call Teardown
296
+
297
+ call Setup
298
+ call TestRoeAvgZero
299
+ call Teardown
300
+
301
+ call Setup
302
+ call TestRoeAvgKnown
303
+ call Teardown
304
+
305
+ call Setup
306
+ call TestCentralFluxKnown
307
+ call Teardown
308
+
309
+ call Setup
310
+ call TestRoeFluxExpansionShock
311
+ call Teardown
312
+
313
+ call Setup
314
+ call TestRoeFluxZero
315
+ call Teardown
316
+
317
+ nTests = numTests
318
+ nAsserts = numAsserts
319
+ nAssertsTested = numAssertsTested
320
+ nFailures = numFailures
321
+
322
+ end subroutine TSFluxFunctions
323
+
324
+ end module FluxFunctionsTS