Testcript DB39 branchDB38 erbij en iets generieker opgezet

svn path=/Database/trunk/; revision=46283

_UTIL/TestOracle/compare.js

@@ -28,6 +28,7 @@ checkora("all_constraints", "CONSTRAINT_TYPE, TABLE_NAME, DELETE_RULE")
 // INDEX_NAME, zou ik graag controleren maar is vaak systeem gegenereerd
 checkora("all_indexes", "TABLE_NAME, UNIQUENESS")
 
+checkora("all_ind_columns", "INDEX_NAME, TABLE_NAME, COLUMN_NAME, COLUMN_POSITION, DESCEND", "INDEX_OWNER", " AND INDEX_NAME NOT LIKE 'SYS_%'")
 
 var sql = "SELECT *"
         + "  FROM all_tables"
@@ -84,24 +85,28 @@ var sql = "SELECT fac_functie_info"
         + "             WHERE fac_locale_xsl_label = fac_functie_info)";
 checkempty(sql, "ORA- fac_functie_info lcl's die in FAC_LCL.SRC missen");
 
-function checkora(sysview, cols, owner)
+function checkora(sysview, cols, owner, extrawhere)
 {
     owner = owner || 'OWNER';
     var sql = "SELECT " + cols
             + "  FROM " + sysview
             + " WHERE " + owner + " = UPPER('" + olddb + "')"
+            + (extrawhere||"")
             + " MINUS "
             + "SELECT " + cols
             + "  FROM " + sysview
-            + " WHERE " + owner + " = UPPER('" + newdb + "')";
+            + " WHERE " + owner + " = UPPER('" + newdb + "')"
+            + (extrawhere||"");
     checkempty(sql, sysview + " in " + olddb + " maar niet in " + newdb);
     var sql = "SELECT " + cols
             + "  FROM " + sysview
             + " WHERE " + owner + " = UPPER('" + newdb + "')"
+            + (extrawhere||"")
             + " MINUS "
             + "SELECT " + cols
             + "  FROM " + sysview
-            + " WHERE " + owner + " = UPPER('" + olddb + "')";
+            + " WHERE " + owner + " = UPPER('" + olddb + "')"
+            + (extrawhere||"");
     checkempty(sql, sysview + " in " + newdb + " maar niet in " +olddb);
 }
 

_UTIL/TestOracle/testbranch38.bat

@@ -0,0 +1,4 @@
+SET DBVER=38a
+SET DBPRV=37
+SET DBPRVPATH=z:\Archief\FACILITOR\2019\02\DB37\FCLT37.sql
+@testworkCOMMON.bat branchDB38

_UTIL/TestOracle/testwork38.bat

@@ -1,4 +1,4 @@
 SET DBVER=38
 SET DBPRV=37
 SET DBPRVPATH=z:\Archief\FACILITOR\2019\02\DB37\FCLT37.sql
-@testworkCOMMON.bat
+@testworkCOMMON.bat trunk

_UTIL/TestOracle/testwork39.bat

@@ -0,0 +1,4 @@
+SET DBVER=39
+SET DBPRV=38
+SET DBPRVPATH=z:\Archief\FACILITOR\2020.1\DB38\FCLT38.sql
+@testworkCOMMON.bat trunk

_UTIL/TestOracle/testworkCOMMON.bat

@@ -1,9 +1,11 @@
-@SET DBVER=38
-@SET DBPRV=37
-@SET DBPRVPATH=z:\Archief\FACILITOR\2019\02\DB37\FCLT37.sql
+::@SET DBVER=38
+::@SET DBPRV=37
+::@SET DBPRVPATH=z:\Archief\FACILITOR\2019\02\DB37\FCLT37.sql
 ::=============================
 @SET BUILD=z:\Project\FACILITOR\BUILD
 
+@SET SOURCE=z:\Project\FACILITOR\Database\%1
+
 @IF EXIST %DBPRVPATH% GOTO START
 ECHO %DBPRVPATH% niet gevonden
 PAUSE
@@ -13,8 +15,8 @@ GOTO EINDE
 @echo off
 REM Usage: %0
 
-PUSHD z:\Project\FACILITOR\Database\trunk
-CALL mx NOWAIT
+PUSHD %SOURCE%
+CALL mx12 NOWAIT
 POPD
 :START0
 IF EXIST %BUILD%\DB%DBVER%\FCLT%DBVER%.sql GOTO STARTCREA