From: John Darrington <john@darrington.wattle.id.au>
Date: Sat, 2 Jul 2011 12:00:17 +0000 (+0200)
Subject: Remove some gnulib modules whichare being flagges as obsolete
X-Git-Tag: v0.7.9~225
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=054ad6cd8f792f10d517b7b314b086bd2807689e;p=pspp-builds.git

Remove some gnulib modules whichare being flagges as obsolete
---

diff --git a/Smake b/Smake
index 383104dd..acd93102 100644
--- a/Smake
+++ b/Smake
@@ -67,13 +67,10 @@ GNULIB_MODULES = \
 	stdbool \
 	stdint \
 	stpcpy \
-	strcase \
 	strerror \
 	strftime \
 	strtod \
 	strtok_r \
-	strtol \
-	strtoul \
 	sys_stat \
 	tempname \
 	trunc \
diff --git a/tests/language/stats/quick-cluster.at b/tests/language/stats/quick-cluster.at
index ce28829e..b2195a47 100644
--- a/tests/language/stats/quick-cluster.at
+++ b/tests/language/stats/quick-cluster.at
@@ -72,3 +72,46 @@ Valid,,500000
 ])
 AT_CLEANUP
 
+
+AT_SETUP([QUICK CLUSTER with weights])
+AT_DATA([qc-weighted.sps], [dnl
+input program.
+loop #i = 1 to 400.
+ compute x = mod (#i, 4).
+ compute w = 5.
+ end case.
+end loop.
+loop #i = 1 to 400.
+ compute x = mod (#i, 4).
+ compute w = 3.
+ end case.
+end loop.
+end file.
+end input program.
+
+weight by w.
+
+QUICK CLUSTER x /CRITERIA = CLUSTER(4) MXITER (100).
+])
+
+AT_CHECK([pspp -o pspp-w.csv qc-weighted.sps])
+
+
+AT_DATA([qc-unweighted.sps], [dnl
+input program.
+loop #i = 1 to 3200.
+ compute x = mod (#i, 4).
+ end case.
+end loop.
+end file.
+end input program.
+
+QUICK CLUSTER x /CRITERIA = CLUSTER(4) MXITER (100).
+])
+
+AT_CHECK([pspp -o pspp-unw.csv qc-unweighted.sps])
+
+AT_CHECK([diff pspp-w.csv pspp-unw.csv], [0])
+
+AT_CLEANUP
+