Skip to content

Commit

Permalink
hack
Browse files Browse the repository at this point in the history
  • Loading branch information
tpolecat committed Nov 5, 2024
1 parent c1b2ec9 commit ba42eaa
Showing 1 changed file with 8 additions and 7 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -22,6 +22,7 @@ import lucuma.odb.data.OdbError
import lucuma.odb.graphql.query.ExecutionTestSupport
import lucuma.odb.graphql.query.ObservingModeSetupOperations
import lucuma.odb.json.all.transport.given
import lucuma.core.model.sequence.gmos.DynamicConfig

class setObservationWorkflowState
extends ExecutionTestSupport
Expand Down Expand Up @@ -174,11 +175,11 @@ class setObservationWorkflowState
o <- createGmosNorthLongSlitObservationAs(pi, p, List(t))
v <- recordVisitAs(serviceUser, Instrument.GmosNorth, o)
a <- recordAtomAs(serviceUser, Instrument.GmosNorth, v, SequenceType.Science)
s0 <- recordStepAs(serviceUser, a, Instrument.GmosNorth, gmosNorthArc(0), ArcStep, ObserveClass.PartnerCal)
s0 <- recordStepAs[DynamicConfig.GmosNorth](serviceUser, a, Instrument.GmosNorth, gmosNorthArc(0), ArcStep, ObserveClass.PartnerCal)
_ <- addEndStepEvent(s0)
s1 <- recordStepAs(serviceUser, a, Instrument.GmosNorth, gmosNorthFlat(0), FlatStep, ObserveClass.PartnerCal)
s1 <- recordStepAs[DynamicConfig.GmosNorth](serviceUser, a, Instrument.GmosNorth, gmosNorthFlat(0), FlatStep, ObserveClass.PartnerCal)
_ <- addEndStepEvent(s1)
s2 <- recordStepAs(serviceUser, a, Instrument.GmosNorth, gmosNorthScience(0), scienceStep(0, 0), ObserveClass.Science)
s2 <- recordStepAs[DynamicConfig.GmosNorth](serviceUser, a, Instrument.GmosNorth, gmosNorthScience(0), scienceStep(0, 0), ObserveClass.Science)
_ <- addEndStepEvent(s2)
_ <- assertIO(queryObservationWorkflowState(o), Ongoing)
_ <- testTransitions(o, Ongoing, Inactive)
Expand All @@ -192,13 +193,13 @@ class setObservationWorkflowState
o <- createGmosNorthLongSlitObservationAs(pi, p, List(t))
v <- recordVisitAs(serviceUser, Instrument.GmosNorth, o)
a <- recordAtomAs(serviceUser, Instrument.GmosNorth, v, SequenceType.Science)
s0 <- recordStepAs(serviceUser, a, Instrument.GmosNorth, gmosNorthArc(0), ArcStep, ObserveClass.PartnerCal)
s0 <- recordStepAs[DynamicConfig.GmosNorth](serviceUser, a, Instrument.GmosNorth, gmosNorthArc(0), ArcStep, ObserveClass.PartnerCal)
_ <- addEndStepEvent(s0)
s1 <- recordStepAs(serviceUser, a, Instrument.GmosNorth, gmosNorthFlat(0), FlatStep, ObserveClass.PartnerCal)
s1 <- recordStepAs[DynamicConfig.GmosNorth](serviceUser, a, Instrument.GmosNorth, gmosNorthFlat(0), FlatStep, ObserveClass.PartnerCal)
_ <- addEndStepEvent(s1)
s2 <- recordStepAs(serviceUser, a, Instrument.GmosNorth, gmosNorthScience(0), scienceStep(0, 0), ObserveClass.Science)
s2 <- recordStepAs[DynamicConfig.GmosNorth](serviceUser, a, Instrument.GmosNorth, gmosNorthScience(0), scienceStep(0, 0), ObserveClass.Science)
_ <- addEndStepEvent(s2)
s3 <- recordStepAs(serviceUser, a, Instrument.GmosNorth, gmosNorthScience(0), scienceStep(0, 0), ObserveClass.Science)
s3 <- recordStepAs[DynamicConfig.GmosNorth](serviceUser, a, Instrument.GmosNorth, gmosNorthScience(0), scienceStep(0, 0), ObserveClass.Science)
_ <- addEndStepEvent(s3)
_ <- assertIO(queryObservationWorkflowState(o), Completed)
_ <- testTransitions(o, Completed)
Expand Down

0 comments on commit ba42eaa

Please sign in to comment.