Changeset 1462 for Scheduling/trunk/m/BSDXUT1.m

Timestamp:

Jun 27, 2012, 7:45:33 PM (12 years ago)

Author:

Sam Habiel

Message:

Done refactoring BSDX31 plus all Unit Tests

File:

• Scheduling/trunk/m/BSDXUT1.m (modified) (3 diffs)

Scheduling/trunk/m/BSDXUT1.m

@@ -1 @@
-BSDXUT1 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 6/26/12 4:36pm
+BSDXUT1 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 6/27/12 4:59pm
         ;;1.7T1;BSDX;;Aug 31, 2011;Build 18
         ;
@@ -227 +227 @@
         ; Test 2: Undo NOSHOW
         D NOSHOW^BSDX31(.ZZZ,APPID,0)
-        I $P(^BSDXAPPT(APPID,0),U,10)'="0" W "ERROR T2",!
+        I $P(^BSDXAPPT(APPID,0),U,10)'="" W "ERROR T2",!
         I $P(^DPT(DFN,"S",APPTTIME,0),U,2)'="" W "ERROR T2",!
         ; Test 3: -1
@@ -243 +243 @@
         I $P(^BSDXTMP($J,1),U)'=-100 W "ERROR T6",!
         K BSDXDIE
-        ; Test 7: Restartable transaction
-        N BSDXRESTART S BSDXRESTART=1
-        D NOSHOW^BSDX31(.ZZZ,APPID,1)
-        I $P(^BSDXAPPT(APPID,0),U,10)'=1 W "ERROR T7",!
+        ;
+        ; Test 9
+        ; Error Simulations
+        ; Get start and end times
+        N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
+        N APPTTIME S APPTTIME=$P(TIMES,U)
+        N ENDTIME S ENDTIME=$P(TIMES,U,2)
+        ;
+        ; This tests if we fail without filing anything
+        N ZZZ,DFN
+        S DFN=3
+        D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
+        N APPID S APPID=+$P(^BSDXTMP($J,1),U)
+        N BSDXSIMERR1 S BSDXSIMERR1=1
+        D NOSHOW^BSDX31(.ZZZ,APPID,1)
+        I $P(^BSDXTMP($J,1),U)'=-4 W "ERROR T9.1",!
+        I $P(^BSDXAPPT(APPID,0),U,10)'="" W "ERROR T9.2",!
+        I $P(^DPT(DFN,"S",APPTTIME,0),U,2)'="" W "ERROR T9.3",!
+        K BSDXSIMERR1
+        ;
+        ; This tests if we fail inside BSDXAPI and have to rollback ^BSDXAPPT
+        N BSDXSIMERR2 S BSDXSIMERR2=1
+        D NOSHOW^BSDX31(.ZZZ,APPID,1)
+        I $P(^BSDXTMP($J,1),U)'=-5 W "ERROR T9.4",!
+        I $P(^BSDXAPPT(APPID,0),U,10)'="" W "ERROR T9.5",!
+        I $P(^DPT(DFN,"S",APPTTIME,0),U,2)'="" W "ERROR T9.6",!
+        K BSDXSIMERR2
+        ;
+        ; This test a mumps error in BSDXAPI
+        N BSDXSIMERR3 S BSDXSIMERR3=1
+        D NOSHOW^BSDX31(.ZZZ,APPID,1)
+        I +$P(^BSDXTMP($J,1),U)'=-100 W "ERROR T9.7",!
+        I $P(^BSDXAPPT(APPID,0),U,10)'="" W "ERROR T9.8",!
+        K BSDXSIMERR3
+        ;
+        ; Test 7: Restartable transaction ; Retired
+        ;
+        ; Test 8: UTs for an unlinked resource (not linked to PIMS)
+        N RESNAM S RESNAM="UTCLINICUL" ; Unlinked Clinic
+        N RESIEN
+        D
+        . N $ET S $ET="D ^%ZTER B"
+        . S RESIEN=$$UTCRRES^BSDXUT(RESNAM)
+        . I RESIEN<0 S $EC=",U1," ; not supposed to happen - hard crash if so
+        ;
+        ; Get start and end times
+        N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
+        N APPTTIME S APPTTIME=$P(TIMES,U)
+        N ENDTIME S ENDTIME=$P(TIMES,U,2)
+        ;
+        ; Make appt
+        N ZZZ,DFN
+        S DFN=3
+        D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
+        N APPID S APPID=+$P(^BSDXTMP($J,1),U)
+        ; Test 1: Sanity Check
+        D NOSHOW^BSDX31(.ZZZ,APPID,1)
+        I $P(^BSDXAPPT(APPID,0),U,10)'=1 W "ERROR T8.1",!
+        ; Test 2: Undo NOSHOW
+        D NOSHOW^BSDX31(.ZZZ,APPID,0)
+        I $P(^BSDXAPPT(APPID,0),U,10)'="" W "ERROR T8.2",!
+        ; Test 3: Put it back on...
+        D NOSHOW^BSDX31(.ZZZ,APPID,1)
+        I $P(^BSDXAPPT(APPID,0),U,10)'=1 W "ERROR T8.3",!
+        ;
+        ;
         QUIT