Index: l_pkg/GisTools/test/test_0001/test.tol
===================================================================
--- tol_pkg/GisTools/test/test_0001/test.tol	(revision 3be32d17d47e2f1eaae8da6b504308c7b26bb0df)
+++ 	(revision )
@@ -1,129 +1,0 @@
-/* -*- mode: C++ -*- */
-//////////////////////////////////////////////////////////////////////////////
-// FILE   : test.tol
-// PURPOSE: GisTools test
-//////////////////////////////////////////////////////////////////////////////
-
-Text email_ = "vdebuen@tol-project.org"; 
-Text link_ = ""; 
-Text summary_ = "checking matrix row selection";
-
-//Write here the initial test TOL code if needed
-Real numErr0 = Copy(NError);
-Real numWar0 = Copy(NWarning);
-
-//Random seed setting
-Real PutRandomSeed(0);
-Real rndSeed = GetRandomSeed(0);
-WriteLn("Current Random Seed = "<<rndSeed);
-
-#Require GisTools;
-
-//The order of magnitude required for number of geographic points
-Real point.num.approx = 20000;
-//Number of cities
-Real city.num = 500;
-//Distance around targets
-Real distance = 2000;
-//Factor of Country size respect dtarget distance
-Real coordFactor = 400;
-//Distance of points inside a city
-Real cityInsideDistance = distance / 4;
-
-//Country dimensions
-Real coord.min = -distance*coordFactor;
-Real coord.max = +distance*coordFactor;
-
-//Log-Normal random generation of number of point by city
-Matrix city.points.num = 
-{ 
-  Real sigma = 0.9995;
-  Real ratio = point.num.approx/city.num;
-  Real nu = Log(ratio)-0.5*sigma^2;
-  Round(Exp(Gaussian(city.num,1,nu,0.99995))) 
-};
-Matrix city.points.freq = Frequency(city.points.num,100);
-
-//Exact number of geographic points
-Real point.num = MatSum(city.points.num);
-
-//Locations of cities
-Matrix city.center = BinGroup("<<",For(1,city.num, Matrix(Real city)
-{
-  Rand(1, 2, coord.min, coord.max)
-}));
-
-//Locations of points inside each city as gaussian around the center
-Set city.points = For(1,city.num, Matrix(Real city)
-{
-  Real n = MatDat(city.points.num,city,1); 
-  Real x = MatDat(city.center,city,1);
-  Real y = MatDat(city.center,city,2);
-  Matrix X = Rand(n,1,x,x);
-  Matrix Y = Rand(n,1,y,y);
-  (X|Y)+Gaussian(n, 2, 0, cityInsideDistance)
-});
-
-//All points
-Matrix points = BinGroup("<<",city.points);
-
-//Target point
-Matrix p0 = SubRow(points,[[IntRand(1,point.num)]])+
-           Gaussian(1, 2, 0, cityInsideDistance);
-
-Real t0 = Copy(Time);
-//Selecting neighbors of target in an hipercube
-WriteLn("SelectRowsInHyperCube full ...");
-Set p0.select.idx.HC = GisTools::SelectRowsInHyperCube(
-  points, p0, distance);
-Matrix p0.select.HC = SubRow(points,p0.select.idx.HC);
-Real t1 = Copy(Time);
-WriteLn("SelectRowsInHyperCube full "<<Rows(p0.select.HC)+" items "
-  "Time:"<<(t1-t0));
-
-//Selecting neighbors of target in an hipersphere
-WriteLn("SelectRowsInHyperSphere full ...");
-Set p0.select.idx.HE.1 = GisTools::SelectRowsInHyperSphere(
-  points, p0, distance);
-Matrix p0.select.HE.1 = SubRow(points,p0.select.idx.HE.1);
-Real t2 = Copy(Time);
-WriteLn("SelectRowsInHyperSphere full "<<Rows(p0.select.HE.1)+" items "
-  "Time:"<<(t2-t1));
-
-//Selecting neighbors of target in an hipersphere from the hipercube
-WriteLn("SelectRowsInHyperSphere over SelectRowsInHyperCube ...");
-Set p0.select.idx.HE.2 = GisTools::SelectRowsInHyperSphere(
-  p0.select.HC, p0, distance);
-Matrix p0.select.HE.2 = SubRow(p0.select.HC,p0.select.idx.HE.2);
-Real t3 = Copy(Time);
-WriteLn("SelectRowsInHyperSphere over SelectRowsInHyperCube "<<
-  Rows(p0.select.HE.2)+" items Time:"<<(t3-t2));
-WriteLn("SelectRowsInHyperSphere+SelectRowsInHyperCube Time:"<<(t3-t2+t1-t0));
-
-Real ok.1 = And(
-  Card(p0.select.idx.HE.1) <= Card(p0.select.idx.HC),
-  Card(p0.select.idx.HE.1   *      p0.select.idx.HC) == 
-  Card(p0.select.idx.HE.1));
-Real ok.2 = MatMax(Abs(p0.select.HE.2-p0.select.HE.1))==0;
-
-Real numErr1 = Copy(NError);
-Real numWar1 = Copy(NWarning);
-
-Set partialResults_ = [[numErr0, numErr1, 
-                        ok.1, ok.2]];
-
-//This is a messure of the success of the test 
-Real quality_ = And(numErr1 == numErr0, 
-                    numWar1 == numWar0, 
-                    ok.1, ok.2);
-
-//Return the results 
-Set resultStr_ = @strTestStatus(summary_, link_, quality_,
-                  "Partial results = "<<partialResults_,
-                  "NO DBServerType", "NO DBServerHost", "NO DBAlias",
-                  email_);
-WriteLn(""<<resultStr_);
-resultStr_;
-
-/* */
-
Index: l_pkg/GisTools/test/test_0002/test.tol
===================================================================
--- tol_pkg/GisTools/test/test_0002/test.tol	(revision 3be32d17d47e2f1eaae8da6b504308c7b26bb0df)
+++ 	(revision )
@@ -1,75 +1,0 @@
-/* -*- mode: C++ -*- */
-//////////////////////////////////////////////////////////////////////////////
-// FILE   : test.tol
-// PURPOSE: GisTools test
-//////////////////////////////////////////////////////////////////////////////
-
-Text email_ = "vdebuen@tol-project.org"; 
-Text link_ = ""; 
-Text summary_ = "checking matrix row selection";
-
-//Write here the initial test TOL code if needed
-Real numErr0 = Copy(NError);
-Real numWar0 = Copy(NWarning);
-
-
-#Require GisTools;
-
-Real t1 = Copy(Time);
-Real rndSeed = 0;
-Real data.num = 300000;
-Real class.num =   100;
-
-Matrix Length = Rand(data.num,1,-10000,10000);
-
-WriteLn("Quantile over edge's length ... ");
-Set q.def = Range(1/class.num,1-1/class.num,1/class.num);
-Set q = MatSet(Tra(Quantile(Length, SetCol(q.def))))[1];
-Real t2 = Copy(Time);
-WriteLn("Quantile time "<<(t2-t1)+" seconds");
-
-WriteLn("ClassifyColumnByRank over edge's length... ");
-Matrix length.class = GisTools::ClassifyRowsByRank(Length, q);
-Real t3 = Copy(Time);
-WriteLn("ClassifyColumnByRank time "<<(t3-t2)+" seconds");
-
-Real q.select = IntRand(2,Card(q)-1);
-Set length.select.1 = GisTools::SelectRowsWithValue(
-  length.class,q.select-1);
-Set length.select.2 = GisTools::SelectRowsWithValue(
-  length.class,q.select);
-Set length.select.3 = GisTools::SelectRowsWithValue(
-  length.class,q.select+1);
-Set length.select.4 = GisTools::SelectRowsInInterval(
-  length.class,True,q.select-1,q.select+1,True);
-
-Matrix aux.123 = 
-{
-  Set sel = length.select.1<<length.select.2<<length.select.3;
-  SubRow(Length, Sort(sel,Real(Real a, Real b) {Compare(a,b)}))
-};
-Matrix aux.4 = SubRow(Length, length.select.4);
-
-Real ok.1 = MatMax(Abs(aux.123-aux.4)) == 0;
-
-Real numErr1 = Copy(NError);
-Real numWar1 = Copy(NWarning);
-
-Set partialResults_ = [[numErr0, numErr1, 
-                        ok.1]];
-
-//This is a messure of the success of the test 
-Real quality_ = And(numErr1 == numErr0, 
-                    numWar1 <= numWar0+1, 
-                    ok.1);
-
-//Return the results 
-Set resultStr_ = @strTestStatus(summary_, link_, quality_,
-                  "Partial results = "<<partialResults_,
-                  "NO DBServerType", "NO DBServerHost", "NO DBAlias",
-                  email_);
-WriteLn(""<<resultStr_);
-resultStr_;
-
-/* */
-