Changeset 1461 for Scheduling/trunk/m/BSDXUT.m

Timestamp:

Jun 26, 2012, 8:01:30 PM (13 years ago)

Author:

Sam Habiel

Message:

Refactoring cont.
Many changes in BSDX08. Extensive changes in BSDX31. Creation of BSDXAPI1 as continuation of BSDXAPI.
BSDXUT1 now has UTs for BSDX31. Transactions now gone from BSDX08 and BSDX31.
BSDX08 needs more tests at failure points. BSDX31 still needs analysis for transaction failure and
code for rollback points, plus tests for that.

File:

• Scheduling/trunk/m/BSDXUT.m (modified) (2 diffs)

Scheduling/trunk/m/BSDXUT.m

@@ -1 @@
-BSDXUT ; VEN/SMH - Unit Tests for Scheduling GUI ; 6/22/12 4:27pm
+BSDXUT ; VEN/SMH - Unit Tests for Scheduling GUI ; 6/26/12 11:06am
         ;;1.7T1;BSDX;;Aug 31, 2011;Build 18
         ; Licensed under LGPL
@@ -276 +276 @@
         ;
         ; Test 3: Check for -100
-        N BSDXDIE S BSDXDIE=1
-        D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
-        S APPID=+$P(^BSDXTMP($J,1),U)
+        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)
+        D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
+        S APPID=+$P(^BSDXTMP($J,1),U)
+        N BSDXDIE1 S BSDXDIE1=1
         D APPDEL^BSDX08(.ZZZ,APPID,"PC",1,"Reasons")
         I $P(^BSDXTMP($J,1),"~")'=-100 W "Error in -100",!
-        K BSDXDIE
-        ;
+        K BSDXDIE1
+        ; 
+        ; Test 3.5: Check for -100 with an appointment to rollback.
+        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)
+        D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
+        S APPID=+$P(^BSDXTMP($J,1),U)
+        N BSDXDIE2 S BSDXDIE2=1
+        D APPDEL^BSDX08(.ZZZ,APPID,"PC",1,"Reasons")
+        I $P(^BSDXTMP($J,1),"~")'=-100 W "Error in -100-1",! 
+        I $P(^BSDXAPPT(APPID,0),U,12)'="" W "Error in -100-2",!
+        K BSDXDIE2
         ; Test 4: Restartable transaction -- retired in V 1.7
         ; Test 5: for invalid Appointment ID (-2 and -3)