The original message was received at Mon, 26 Jan 2004 16:30:19 -0600 (CST)
from ch34.cc.ndsu.NoDak.edu [134.129.90.54]
----- The following addresses had permanent fatal errors -----
<richard(a)condor-post.com>
(reason: 550 5.1.1 <richard(a)condor-post.com>... User unknown)
----- Transcript of session follows -----
... while talking to mail.condor-post.com.:
>>> DATA
<<< 550 5.1.1 <richard(a)condor-post.com>... User unknown
550 5.1.1 <richard(a)condor-post.com>... User unknown
<<< 503 5.0.0 Need RCPT (recipient)
BANNED FILENAME ALERT
Our virus checker found
banned filenames: data.pif, .exe
in your email to the following recipient:
-> henkv(a)pop.cs.kuleuven.ac.be
Delivery of the email was stopped!
Please check your system for viruses,
or ask your system administrator to do so.
For your reference, here are headers from your email:
------------------------- BEGIN HEADERS -----------------------------
Received: from hermes.cs.kuleuven.ac.be (hermes.cs.kuleuven.ac.be [134.58.40.3])
by dr-zook.cs.kuleuven.ac.be (Another_good_MTA) with ESMTP id A8CCA1BB75
for <henkv(a)pop.cs.kuleuven.ac.be>; Mon, 26 Jan 2004 23:02:03 +0100 (CET)
Received: from haskell.org (cc11.cc.ndsu.NoDak.edu [134.129.90.145])
by hermes.cs.kuleuven.ac.be (A_Good_MTA/0.6.11) with ESMTP id i0QM22e01183
for <henk.vandecasteele(a)cs.kuleuven.ac.be>; Mon, 26 Jan 2004 23:02:02 +0100 (MET)
Message-Id: <200401262202.i0QM22e01183(a)hermes.cs.kuleuven.ac.be>
From: libraries(a)haskell.org
To: henk.vandecasteele(a)cs.kuleuven.ac.be
Subject: Mail Delivery System
Date: Mon, 26 Jan 2004 16:01:59 -0600
MIME-Version: 1.0
Content-Type: multipart/mixed;
boundary="----=_NextPart_000_0007_0A433E71.1B693C1D"
X-Priority: 3
X-MSMail-Priority: Normal
-------------------------- END HEADERS ------------------------------
More feedback... basically, it works!
I get one batch of warnings when compiling:
[[
Compiling Distribution.Package ( ../Distribution/Package.hs,
../Distribution/Pac
kage.o )
../Distribution/Package.hs:317:
Warning: Pattern match(es) are non-exhaustive
In a record-update construct:
Patterns not matched:
NoVersion
NumberedVersion _ _ _
../Distribution/Package.hs:319:
Warning: Pattern match(es) are non-exhaustive
In a record-update construct:
Patterns not matched:
NoVersion
NumberedVersion _ _ _
../Distribution/Package.hs:321:
Warning: Pattern match(es) are non-exhaustive
In a record-update construct:
Patterns not matched:
NoVersion
NumberedVersion _ _ _
../Distribution/Package.hs:324:
Warning: Pattern match(es) are non-exhaustive
In a record-update construct:
Patterns not matched:
NoVersion
DateVersion _ _ _
../Distribution/Package.hs:326:
Warning: Pattern match(es) are non-exhaustive
In a record-update construct:
Patterns not matched:
NoVersion
DateVersion _ _ _
../Distribution/Package.hs:328:
Warning: Pattern match(es) are non-exhaustive
In a record-update construct:
Patterns not matched:
NoVersion
DateVersion _ _ _
Compiling Main ( Test.hs, Test.o )
Linking ...
]]
...
I get one failure from the unit test:
[[
C:\DEV\Haskell\lib\LibInfrastructure\Distribution>testDist
Cases: 9 Tried: 9 Errors: 0 Failures: 0
Cases: 28 Tried: 28 Errors: 0 Failures: 0
'diff' is not recognized as an internal or external command,
operable program or batch file.
### Failure in: 1:package diff:'diff /tmp/xmlTest /tmp/xmlTestOut' failed
expected: ExitFailure 1
but got: ExitSuccess
Cases: 2 Tried: 2 Errors: 0 Failures: 1
]]
...
This looks like a unix-specific command. I was able to get the test suite
to run successfully by changing test.hs thus:
[[
hUnitTests :: [Test]
hUnitTests = Distribution.Package.hunitTests
++ Distribution.Version.hunitTests
testFilename1 :: String
testFilename1 = "testDist\\xmlTest.tmp"
testFilename2 :: String
testFilename2 = "testDist\\xmlTestOut.tmp"
diffCmd :: String
diffCmd = "fc " ++ testFilename1 ++ " " ++ testFilename2
]]
Giving:
[[
C:\DEV\Haskell\lib\LIBINF~1\DISTRI~1>testDist
Cases: 9 Tried: 9 Errors: 0 Failures: 0
Cases: 28 Tried: 28 Errors: 0 Failures: 0
Comparing files TESTDIST\xmlTest.tmp and TESTDIST\XMLTESTOUT.TMP
FC: no differences encountered
Cases: 2 Tried: 2 Errors: 0 Failures: 0
]]
Rather than depending on an external file compare utility, would it not be
easier to use a test something like:
readFile(testFilename1) == readFile(testFilename2)
?
For example:
[[
testFilename1 :: String
testFilename1 = "testDist/xmlTest.tmp"
testFilename2 :: String
testFilename2 = "testDist/xmlTestOut.tmp"
main :: IO ()
main = do runTestTT $ test Distribution.Package.hunitTests
runTestTT $ test Distribution.Version.hunitTests
writeXml testFilename1 testPackage2
e <- (readXml testFilename1::IO PackageConfig)
writeXml testFilename2 e
f1 <- readFile(testFilename1)
f2 <- readFile(testFilename2)
runTestTT $ test ["write and read" ~: "failed"
~: show e ~=? show testPackage2,
"file compare" ~: f1 ~=? f2 ]
return ()
]]
gives:
[[
C:\DEV\Haskell\lib\LIBINF~1\DISTRI~1>testDist
Cases: 9 Tried: 9 Errors: 0 Failures: 0
Cases: 28 Tried: 28 Errors: 0 Failures: 0
Cases: 2 Tried: 2 Errors: 0 Failures: 0
]]
...
The Windows batch file I used to build this is this:
[[
set WARNINGS=-Wall
set PACKAGES=-package HaXml -package data
set HUNIT=C:\DEV\Haskell\lib\HUnit\
set GHC=C:\DEV\ghc\ghc-6.2\bin\ghc
if "%1"=="clean" goto clean
:all
mkdir testDist
%GHC% -fglasgow-exts %WARNINGS% -i%HUNIT%;.;.. -package HaXml --make
Test.hs -o testDist
goto exit
:clean
DEL *.hi
DEL *.o
DEL /Q testDist\*.*
:exit
]]
...
See my separate message about building HaXml on windows.
#g
--
------------
Graham Klyne
For email:
http://www.ninebynine.org/#Contact
I would like to annouce a new release of the Haskell Cryptographic
Library (1.1.2). See http://www.haskell.org/crypto/ReadMe.html for more
details.
This library collects together existing Haskell cryptographic functions.
This
release contains MD5 and now works with Hugs (November 2003 version).
Dominic Steinitz
