Testcript DB40 erbij

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

_UTIL/TestOracle/compare.js

@@ -4,6 +4,7 @@ var DBVER = WScript.Arguments(1);
 var newdb = 'TEST_DB' + DBVER;
 var olddb = 'TEST_DB' + DBPRV + 'toDB' + DBVER;
 
+WScript.Echo("CScript Compare.js " + DBPRV + " " + DBVER);
 WScript.Echo("Comparing " + olddb + " to " + newdb)
 
 
@@ -98,7 +99,7 @@ function checkora(sysview, cols, owner, extrawhere)
             + "  FROM " + sysview
             + " WHERE " + owner + " = UPPER('" + newdb + "')"
             + (extrawhere||"");
-    checkempty(sql, sysview + " in " + olddb + " maar niet in " + newdb);
+    checkempty(sql, "ORA- " + sysview + " in " + olddb + " maar niet in " + newdb);
     var sql = "SELECT " + cols
             + "  FROM " + sysview
             + " WHERE " + owner + " = UPPER('" + newdb + "')"
@@ -108,7 +109,7 @@ function checkora(sysview, cols, owner, extrawhere)
             + "  FROM " + sysview
             + " WHERE " + owner + " = UPPER('" + olddb + "')"
             + (extrawhere||"");
-    checkempty(sql, sysview + " in " + newdb + " maar niet in " +olddb);
+    checkempty(sql, "ORA- " + sysview + " in " + newdb + " maar niet in " +olddb);
 }
 
 function checkauto(tbl)

_UTIL/TestOracle/testbranch38.bat

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

_UTIL/TestOracle/testwork39.bat

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

_UTIL/TestOracle/testwork40.bat

@@ -0,0 +1,4 @@
+SET DBVER=40
+SET DBPRV=39
+SET DBPRVPATH=z:\Archief\FACILITOR\2020.2\DB39a\FCLT39a.sql
+@testworkCOMMON.bat trunk