rsspice 0.1.0

Pure Rust port of the SPICE Toolkit for space geometry
Documentation 
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

//
// GENERATED FILE
//

use super::*;
use f2rust_std::*;

const LNSIZE: i32 = 80;
const WDSIZE: i32 = 32;
const LWSIZE: i32 = 40;

//$Procedure      F_SPKGPX (Family of tests for SPKGPS frame exceptions)
pub fn F_SPKGPX(OK: &mut bool, ctx: &mut Context) -> f2rust_std::Result<()> {
    let mut REF = [b' '; WDSIZE as usize];
    let mut ET: f64 = 0.0;
    let mut LT: f64 = 0.0;
    let mut STATE = StackArray::<f64, 6>::new(1..=6);

    //
    // Local Variables
    //

    //
    // Begin every test family with an open call.
    //
    testutil::TOPEN(b"F_SPKGPX", ctx)?;

    ET = 0.0;

    testutil::TCASE(
        b"Check that we get reasonable unrecognized frame diagnostics subcase 1.",
        ctx,
    )?;

    fstr::assign(&mut REF, b"TRANSGALCTIC");
    spicelib::SPKGPS(-10, ET, &REF, 399, STATE.as_slice_mut(), &mut LT, ctx)?;
    testutil::CHCKXC(true, b"SPICE(UNKNOWNFRAME)", OK, ctx)?;

    testutil::TCASE(
        b"Check that we get reasonable unrecognized frame diagnostics subcase 2.",
        ctx,
    )?;

    fstr::assign(&mut REF, b" ");
    spicelib::SPKGPS(-10, ET, &REF, 399, STATE.as_slice_mut(), &mut LT, ctx)?;
    testutil::CHCKXC(true, b"SPICE(UNKNOWNFRAME)", OK, ctx)?;

    testutil::TCASE(
        b"Check that we get reasonable unrecognized frame diagnostics subcase 3.",
        ctx,
    )?;

    fstr::assign(
        &mut REF,
        &fstr::concat(&fstr::concat(b"MY", &intrinsics::CHAR(9)), b"FRAME"),
    );
    spicelib::SPKGPS(-10, ET, &REF, 399, STATE.as_slice_mut(), &mut LT, ctx)?;
    testutil::CHCKXC(true, b"SPICE(UNKNOWNFRAME)", OK, ctx)?;

    testutil::T_SUCCESS(OK, ctx);
    Ok(())
}