[Slib-discuss] scm-5e4 test failure and mkdir -p patch

[Marijn Schouten (hkBst)]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Hi list,

I hope it is okay to discuss scm here too. BTW I seem to have completely missed 
any
announcement for the latest slib and scm.

Please please please don't assume parent directories exist. The following patch 
fixes
this. -p also makes it not an error if the directory already exists, so you can 
likely
also remove all the directory existence tests...


- --- Makefile.old        2008-01-18 13:56:02.000000000 +0100
+++ Makefile    2008-01-18 13:56:02.000000000 +0100
@@ -506,14 +506,14 @@
~        gzip -f $(DESTDIR)$(infodir)hobbit.info

~ install:       scm.1
- -       test -d $(DESTDIR)$(bindir) || mkdir $(DESTDIR)$(bindir)
- -       test -d $(DESTDIR)$(mandir) || mkdir $(DESTDIR)$(mandir)
- -       test -d $(DESTDIR)$(man1dir) || mkdir $(DESTDIR)$(man1dir)
+       test -d $(DESTDIR)$(bindir) || mkdir -p $(DESTDIR)$(bindir)
+       test -d $(DESTDIR)$(mandir) || mkdir -p $(DESTDIR)$(mandir)
+       test -d $(DESTDIR)$(man1dir) || mkdir -p $(DESTDIR)$(man1dir)
~        -cp scm scmlit $(DESTDIR)$(bindir)
~        -strip $(DESTDIR)$(bindir)scmlit
~        -cp scm.1 $(DESTDIR)$(man1dir)
- -       test -d $(DESTDIR)$(libdir) || mkdir $(DESTDIR)$(libdir)
- -       test -d $(DESTDIR)$(libscmdir) || mkdir $(DESTDIR)$(libscmdir)
+       test -d $(DESTDIR)$(libdir) || mkdir -p $(DESTDIR)$(libdir)
+       test -d $(DESTDIR)$(libscmdir) || mkdir -p $(DESTDIR)$(libscmdir)
~        -cp $(ifiles) $(hobfiles) COPYING r4rstest.scm $(DESTDIR)$(libscmdir)
~        test -f $(DESTDIR)$(libscmdir)require.scm || \
~                cp requires.scm $(DESTDIR)$(libscmdir)require.scm
@@ -523,9 +523,9 @@
~        -cp libscm.dylib $(DESTDIR)$(libdir)

~ installlib:
- -       test -d $(DESTDIR)$(includedir) || mkdir $(DESTDIR)$(includedir)
+       test -d $(DESTDIR)$(includedir) || mkdir -p $(DESTDIR)$(includedir)
~        cp scm.h scmfig.h scmflags.h $(DESTDIR)$(includedir)
- -       test -d $(DESTDIR)$(libdir) || mkdir $(DESTDIR)$(libdir)
+       test -d $(DESTDIR)$(libdir) || mkdir -p $(DESTDIR)$(libdir)
~        cp libscm.a $(DESTDIR)$(libdir)libscm.a

~ uninstall:


Further, scm fails some tests:

errors were:
(SECTION (got expected (call)))
((6 5 6) (#f #t (mult-float-print-test #f)))

log for that section:

SECTION(6 5 6)
(float-print-test #t)  ==> #t
Number readback failure for (+ 1.0 (* -100 2.220446049250313e-16))
0.9999999999999778
Number readback failure for (+ 10.0 (* -100 1.7763568394002504e-15))
9.999999999999822
Number readback failure for (+ 100.0 (* -99 1.4210854715202003e-14))
99.9999999999986
Number readback failure for (+ 1.0e20 (* -98 16384.0))
9.999999999999838e19
Number readback failure for (+ 1.0e50 (* -100 2.076918743413931e34))
9.999999999999792e49
Number readback failure for (+ 1.0000000000000004e100 (* -100 
1.942668892225729e84))
9.999999999999813e99
Number readback failure for (+ 0.1 (* -98 1.3877787807814456e-17))
0.09999999999999865
Number readback failure for (+ 0.01 (* -100 1.734723475976807e-18))
0.009999999999999826
Number readback failure for (+ 0.001 (* -99 2.168404344971009e-19))
9.999999999999785e-4
Number readback failure for (+ 1.0000000000000002e-20 (* -100 
1.504632769052528e-36))
9.999999999999851e-21
Number readback failure for (+ 1.0000000000000004e-50 (* -100 
1.1869459682199747e-66))
9.999999999999886e-51
Number readback failure for (+ 1.0000000000000009e-100 (* -100 
1.2689709186578246e-116))
9.999999999999881e-101
(mult-float-print-test #f)  ==> #f
~ BUT EXPECTED #t
Number readback failure for (+ 3.0 (* -99 4.440892098500626e-16))
2.999999999999956
Number readback failure for (+ 30.0 (* -100 3.552713678800501e-15))
29.999999999999644
Number readback failure for (+ 300.0 (* -100 5.684341886080801e-14))
299.9999999999943
Number readback failure for (+ 3.0e20 (* -99 65536.0))
2.9999999999999346e20
Number readback failure for (+ 3.0000000000000004e50 (* -100 
4.153837486827862e34))
2.9999999999999587e50
Number readback failure for (+ 3.0000000000000004e100 (* -100 
3.885337784451458e84))
2.999999999999963e100
Number readback failure for (+ 0.30000000000000004 (* -100 
5.551115123125783e-17))
0.2999999999999945
Number readback failure for (+ 0.03 (* -100 3.469446951953614e-18))
0.029999999999999648
Number readback failure for (+ 0.003 (* -98 4.336808689942018e-19))
0.0029999999999999577
Number readback failure for (+ 3.0000000000000004e-20 (* -100 
6.018531076210111e-36))
2.99999999999994e-20
Number readback failure for (+ 3.0000000000000017e-50 (* -99 
4.747783872879899e-66))
2.999999999999954e-50
Number readback failure for (+ 3.0000000000000035e-100 (* -100 
5.075883674631299e-116))
2.9999999999999516e-100
(mult-float-print-test #f)  ==> #f
~ BUT EXPECTED #t
Number readback failure for (+ 7.0 (* -100 8.881784197001252e-16))
6.999999999999911
Number readback failure for (+ 70.0 (* -100 1.4210854715202003e-14))
69.99999999999858
Number readback failure for (+ 700.0 (* -99 1.1368683772161602e-13))
699.9999999999887
Number readback failure for (+ 7.0e20 (* -100 131072.0))
6.99999999999987e20
Number readback failure for (+ 7.000000000000001e50 (* -100 
8.307674973655723e34))
6.999999999999918e50
Number readback failure for (+ 7.000000000000004e100 (* -100 
1.5541351137805832e85))
6.999999999999847e100
Number readback failure for (+ 0.7000000000000001 (* -100 
1.1102230246251565e-16))
0.699999999999989
Number readback failure for (+ 0.07000000000000001 (* -100 
1.3877787807814456e-17))
0.06999999999999861
Number readback failure for (+ 0.007000000000000001 (* -100 
8.673617379884035e-19))
0.006999999999999913
Number readback failure for (+ 7.000000000000001e-20 (* -100 
1.2037062152420223e-35))
6.999999999999881e-20
Number readback failure for (+ 7.000000000000002e-50 (* -100 
9.495567745759798e-66))
6.999999999999908e-50
Number readback failure for (+ 7.000000000000003e-100 (* -100 
1.0151767349262594e-115))
6.999999999999903e-100
(mult-float-print-test #f)  ==> #f
~ BUT EXPECTED #t
Number readback failure for (+ 3.141592653589793 (* -100 4.440892098500626e-16))
3.1415926535897487
Number readback failure for (+ 31.41592653589793 (* -98 3.552713678800501e-15))
31.415926535897584
Number readback failure for (+ 314.1592653589793 (* -99 5.684341886080801e-14))
314.1592653589737
Number readback failure for (+ 3.1415926535897935e20 (* -100 65536.0))
3.141592653589728e20
Number readback failure for (+ 3.141592653589793e50 (* -100 
4.153837486827862e34))
3.1415926535897513e50
Number readback failure for (+ 3.1415926535897953e100 (* -100 
3.885337784451458e84))
3.1415926535897558e100
Number readback failure for (+ 0.3141592653589793 (* -100 
5.551115123125783e-17))
0.31415926535897376
Number readback failure for (+ 0.03141592653589793 (* -99 
6.938893903907228e-18))
0.03141592653589725
Number readback failure for (+ 0.003141592653589793 (* -100 
4.336808689942018e-19))
0.0031415926535897495
Number readback failure for (+ 3.1415926535897935e-20 (* -100 
6.018531076210111e-36))
3.1415926535897336e-20
Number readback failure for (+ 3.141592653589794e-50 (* -100 
4.747783872879899e-66))
3.141592653589747e-50
Number readback failure for (+ 3.141592653589795e-100 (* -100 
5.075883674631299e-116))
3.141592653589745e-100
(mult-float-print-test #f)  ==> #f
~ BUT EXPECTED #t
Number readback failure for (+ 2.7182818284590446 (* -100 
4.440892098500626e-16))
2.7182818284590002
Number readback failure for (+ 27.182818284590446 (* -100 
3.552713678800501e-15))
27.18281828459009
Number readback failure for (+ 271.82818284590446 (* -99 5.684341886080801e-14))
271.8281828458988
Number readback failure for (+ 2.7182818284590446e20 (* -100 32768.0))
2.7182818284590117e20
Number readback failure for (+ 2.7182818284590455e50 (* -100 
4.153837486827862e34))
2.7182818284590037e50
Number readback failure for (+ 2.718281828459046e100 (* -100 
3.885337784451458e84))
2.7182818284590086e100
Number readback failure for (+ 0.27182818284590446 (* -99 
5.551115123125783e-17))
0.271828182845899
Number readback failure for (+ 0.027182818284590446 (* -100 
3.469446951953614e-18))
0.0271828182845901
Number readback failure for (+ 0.0027182818284590446 (* -100 
4.336808689942018e-19))
0.0027182818284590015
Number readback failure for (+ 2.7182818284590446e-20 (* -99 
6.018531076210111e-36))
2.7182818284589855e-20
Number readback failure for (+ 2.7182818284590455e-50 (* -99 
4.747783872879899e-66))
2.7182818284589984e-50
Number readback failure for (+ 2.7182818284590464e-100 (* -100 
5.075883674631299e-116))
2.718281828458996e-100
(mult-float-print-test #f)  ==> #f
~ BUT EXPECTED #t

To fully test continuations, Scheme 4, and DELAY/FORCE do:
(test-cont) (test-sc4) (test-delay)

;testing scheme 4 functions;
SECTION(6 7)


Full build and test log available upon request. I am on amd64 architecture.

Marijn

- --
Marijn Schouten (hkBst), Gentoo Lisp project, Gentoo ML
<http://www.gentoo.org/proj/en/lisp/>, #gentoo-{lisp,ml} on FreeNode
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.0.7 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org

iD8DBQFHkKaJp/VmCx0OL2wRArlZAJsHxY6qMrACm8ZKUZd1ejiZchS57wCggXT+
6fDs24hulQneUn6RZ08fXlw=
=qRmd
-----END PGP SIGNATURE-----