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
//
// GENERATED FILE
//
use super::*;
use f2rust_std::*;
struct SaveVars {
STATUS: bool,
}
impl SaveInit for SaveVars {
fn new() -> Self {
let mut STATUS: bool = false;
Self { STATUS }
}
}
//$Procedure F_GFBAIL ( Test GFBAIL )
pub fn F_GFBAIL(OK: &mut bool, ctx: &mut Context) -> f2rust_std::Result<()> {
let save = ctx.get_vars::<SaveVars>();
let save = &mut *save.borrow_mut();
//
// SPICELIB functions
//
//
// Local parameters
//
//
// Local Variables
//
//
// Saved everything.
//
//
// Initial values
//
//
// Begin every test family with an open call.
//
testutil::TOPEN(b"F_GFBAIL", ctx)?;
//*********************************************************************
//*
//* Normal cases
//*
//*********************************************************************
//
//---- Case -------------------------------------------------------------
//
testutil::TCASE(b"Make sure function returns FALSE on initial call.", ctx)?;
save.STATUS = true;
save.STATUS = spicelib::GFBAIL();
testutil::CHCKXC(false, b" ", OK, ctx)?;
testutil::CHCKSL(b"STATUS", save.STATUS, false, OK, ctx)?;
//
//---- Case -------------------------------------------------------------
//
testutil::TCASE(b"Make sure function returns FALSE on 2nd call.", ctx)?;
save.STATUS = true;
save.STATUS = spicelib::GFBAIL();
testutil::CHCKXC(false, b" ", OK, ctx)?;
testutil::CHCKSL(b"STATUS", save.STATUS, false, OK, ctx)?;
//*********************************************************************
//*
//* Error cases
//*
//*********************************************************************
//
//---- Case -------------------------------------------------------------
//
testutil::TCASE(
b"Test routine\'s action when a SPICE error condition exists.",
ctx,
)?;
spicelib::SIGERR(b"SPICE(TESTERROR)", ctx)?;
save.STATUS = true;
save.STATUS = spicelib::GFBAIL();
testutil::CHCKXC(true, b"SPICE(TESTERROR)", OK, ctx)?;
testutil::CHCKSL(b"STATUS", save.STATUS, false, OK, ctx)?;
testutil::T_SUCCESS(OK, ctx);
Ok(())
}