From: John Darrington 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 +