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

Timestamp:

Jun 29, 2012, 7:09:55 PM (12 years ago)

Author:

Sam Habiel

Message:

BSDX25 refactoring, continued

File:

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

Scheduling/trunk/m/BSDXUT1.m

@@ -1 @@
-BSDXUT1 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 6/28/12 10:17am
+BSDXUT1 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 6/29/12 12:32pm
         ;;1.7T1;BSDX;;Aug 31, 2011;Build 18
         ;
+        ;
+EN      ; Run All Unit Tests in this routine
+        D UT08,UT29,UT26,UT31
+        QUIT
         ;
 UT08    ; Unit Tests for BSDX08; Must have patients 1,2,3,4,5 defined in system
@@ -221 +225 @@
         ;
         W "Waiting for 5 seconds for it to finish",! HANG 5
-        W ^BSDXTMP("BSDXCOPY",+^BSDXTMP($J,1)),!
-        W "Last line should say 0",!
+        W:^BSDXTMP("BSDXCOPY",+^BSDXTMP($J,1))'["  0 records" "Copy failed",!
         QUIT
         ;