MT#9067 fix tests

tests/ngcp.lua

@@ -31,13 +31,21 @@ else
     argv = {}
 end
 
-require 'ngcp.ngcp'
-
 local mc,env
 local dp_vars = DPFetch:new()
 local pp_vars = PPFetch:new()
 local up_vars = UPFetch:new()
 
+package.loaded.luasql = nil
+package.preload['luasql.mysql'] = function ()
+    luasql = {}
+    luasql.mysql = function ()
+        return env
+    end
+end
+
+require 'ngcp.ngcp'
+
 TestNGCP = {} --class
 
     function TestNGCP:setUp()

tests/ngcp_dp.lua

@@ -29,11 +29,18 @@ else
     argv = {}
 end
 
-require 'ngcp.dp'
-
 local mc,env,con
 local dp_vars = DPFetch:new()
 
+package.loaded.luasql = nil
+package.preload['luasql.mysql'] = function ()
+    luasql = {}
+    luasql.mysql = function ()
+        return env
+    end
+end
+require 'ngcp.dp'
+
 TestNGCPDomainPrefs = {} --class
 
     function TestNGCPDomainPrefs:setUp()

tests/ngcp_pp.lua

@@ -29,11 +29,18 @@ else
     argv = {}
 end
 
-require 'ngcp.dp'
-
 local mc,env,con
 local pp_vars = PPFetch:new()
 
+package.loaded.luasql = nil
+package.preload['luasql.mysql'] = function ()
+    luasql = {}
+    luasql.mysql = function ()
+        return env
+    end
+end
+require 'ngcp.dp'
+
 TestNGCPPeerPrefs = {} --class
 
     function TestNGCPPeerPrefs:setUp()

tests/ngcp_up.lua

@@ -29,11 +29,19 @@ else
     argv = {}
 end
 
-require 'ngcp.up'
-
 local mc,env,con
 local up_vars = UPFetch:new()
 
+package.loaded.luasql = nil
+package.preload['luasql.mysql'] = function ()
+    luasql = {}
+    luasql.mysql = function ()
+        return env
+    end
+end
+
+require 'ngcp.up'
+
 TestNGCPUserPrefs = {} --class
 
     function TestNGCPUserPrefs:setUp()