Skip to content

RegressionTests/testAddDegrees.tl

 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
#!!! TethysL file automatically generated from RegressionTests/testAddDegrees.xml.

mission test {
  test_code {{{
    # Set passed to true because there are no post-run tests.
    # If a crtical syslog is encountered in the code below, the test will fail.
    passed = True
  }}}

  """
  Test adding two angular values.
  """

  arguments {
    SearchBearing = 270 degree
      """
      Bearing to swim searching for front.
      """

    ReturnBearing = NaN degree
      """
      (INTERNAL VARIABLE) Bearing to swim after passing front on inbound leg.
      """
  }

  syslog important "Search bearing: " + SearchBearing~degree
  assign in sequence ReturnBearing = SearchBearing + -180 degree
  syslog important "Calculated return bearing: " + ReturnBearing~degree

  aggregate {
    run in sequence

    break if ( ReturnBearing == 90 degree )

    syslog critical "ReturnBearing is not 90"
  }

  assign in sequence ReturnBearing = SearchBearing - -180 degree
  syslog important "Calculated return bearing: " + ReturnBearing~degree

  aggregate {
    run in sequence

    break if ( ReturnBearing == 450 degree )

    syslog critical "ReturnBearing is not 450"
  }

  assign in sequence ReturnBearing = SearchBearing - 180 degree
  syslog important "Calculated return bearing: " + ReturnBearing~degree

  aggregate {
    run in sequence

    break if ( ReturnBearing == 90 degree )

    syslog critical "ReturnBearing is not 90"
  }

  assign in sequence ReturnBearing = SearchBearing - SearchBearing
  syslog important "Calculated return bearing: " + ReturnBearing~degree

  aggregate {
    run in sequence

    break if ( ReturnBearing == 0 degree )

    syslog critical "ReturnBearing is not 0"
  }
}